くだすれDelphi(超初心者)その29

みなさん。こんにちゎ。経済学部のささと申します。
パスカル(Delphi)の授業での課題がわかりません。。教えてください！
３科目、１０人分のデータを入力して各人の合計点と科目毎の平均点を出せ！
という課題が出ました。。。

先生に下記を改変するとやりやすいといわれました。repeatとwhileとforまでしか習っていません。
Score :array[0..1000] of integer;　
begin
writeln('入力得点の平均と偏差値を計算します'); writeln('入力後、負の数を入力すると…終了します。');
kazu :=0;
repeat
write('点数は？'); readln(data);
if data >= 0 then
begin　
kazu := kazu + 1;
score[kazu] := data
end
until data < 0;
goukei := 0;　 for i := 1 to kazu do　goukei := goukei + score[i];　 heikin :=goukei / kazu;
goukei :=0;　 for i := 1 to kazu do　 goukei := goukei + Sqr(score[i]);　hensa := sqrt(goukei /kazu - sqr(heikin));
writeln('点数　　偏差値');
for i := 1 to kazu do　 writeln(score[i]:4, 50 +10 * (score[i]-heikin)/ hensa:10:1);
writeln(' 平 均 ＝',heikin:5:1);　 writeln('標準偏差＝',hensa:5:1);
readln;
end.

>>965
どこがどうわからないんだい？

>>965
http://pc8.2ch.net/test/read.cgi/tech/1136994325/

科目数と人数は決まってるから、ふつうにforでまわして配列に入れていけばいいやん

>>968 forでまわして配列ってどういう意味ですか?

>>966全くどう作るか思いつかないという意味です。

宿題スレにいけ

次の質問↓

リソースファイルを使ってexeにwavを埋め込むことは出来ますが
wavでは無くmp3を埋め込むようには出来ないでしょうか。
wavにするとサイズが大きくなりすぎます。
現在は外部からそのままの状態で読み込ませています。

再生はTMediaPlayerを使っています

>>973
単にバイナリとして埋め込めるはずだけど

バイナリと埋め込むにはどうするのですか？

http://homepage2.nifty.com/Mr_XRAY/Halbow/Notes/N008.html

リソースファイル(hoge.rc)用意して、

hoge MP3 "hoge.mp3"

って書く。
プロジェクトに追加。
ビルドしたら埋め込まれる
TResourceStreamとかで取り出す。

var hoge: TResourceStream;
hoge := TResourceStream.Create(hInstance,'HOGE','MP3');
と、取り出すところまでは出来ましたが
これをTMediaPlayerでPlay()やStop()で操作に出来るようするには
どういう方法でやればいいのでしょうか？

↓次の質問どぞー

はぁ？さっさと教えなさい
怒りますよ？

フリーザ様がいるな

>>979
TMediaPlayerでLoadFromStreamを実現する方法を教えてください

>>982
リソースとして取り込んでもTMediaPlayerで扱えない
どうしてもTMediaPlayer使いたいならSaveToFileで
テンポラリにどっかファイル作ってそのファイルをTMediaPlayerで読み込ませる

>>983
コードお願いします

var
　hoge: TResourceStream;
　sFileName: String;
begin
　hoge := TResourceStream.Create(hInstance,'HOGE','MP3');
　hoge.SaveToFile(sFileName);
　MediaPlayer1.FileName := sFileName;
end;

>>984
勝手に名乗るなよ

ついでだから

>>958と似たようなもの見つけました。
>>983サンクス

RS := TResourceStream.Create(hInstance,'HOGE','MP3');
try
if FileExists(ExtractFilePath(Application.ExeName)+'HOGEHOGE.mp3') = False then begin
RS.SaveToFile(ExtractFilePath(Application.ExeName)+'HOGEHOGE.mp3');
end;
finally
RS.Free;
end;
if FileExists(ExtractFilePath(Application.ExeName)+'HOGEHOGE.mp3') then
with MediaPlayer1 do begin
Filename := ExtractFilePath(Application.ExeName)+HOGEHOGE.mp3';
end;

>>986
ちょっと待ってくれ、そっちこそ偽者だろう
こっちはすでに解決しました

↓質問したい人は「ワッフルワッフル」と書き込んでください

>>988
ID出ないとややこしいな。
じゃあちょっと質問。

PlaySound関数を使えばリソースファイルから読み込んで
直接ストリームから再生する事が出来る。
それなのにわざわざ、SaveToFileで書き出してから読み込む
という効率の悪いTMediaPlayerを使う理由は？
TMediaPlayerではTMediaPlayer.Start以外使わない。
つまり機能の面でTMediaPlayerに頼る必要は無い。

PlaySound()が良く分からないとか
TMediaPlayerの方が簡単・分かりやすいとかその程度の理由ではなく
どうしてもTMediaPlayerでないとOSの動作の仕様上困るって言う理由がある。
その理由を100字以内で明確に書いて下さい。

なにこの流れ

>>990
お前がTMediaPlayerでって言ったんだろうが
アホか？

なぜTMediaPlayerでって言ったのか、その理由聞いてるんだろ。
日本語大丈夫？

はいはい自演乙

流れをまとめると、

リソースにmp3埋め込んで、TMediaPlayerで再生ってどうやるの？
↓
〜〜で××すればできる
↓
分かりました。ところで私がTMediaPlayer使う理由ってなんですか？100字以内で答えなさい
↓
(ﾟДﾟ)ﾊｧ?

この場合おかしいのはどっちよ？

>>993
煽るくらいならあんたが答えてやりなよｗ

すいません。トリップ付いてるのは偽者です。
私の方はもう解決しましたので、気を悪くされないようお願いします…。

>分かりました。ところで私がTMediaPlayer使う理由ってなんですか？100字以内で答えなさい
これは
978◆TvbdT7pwtkが真の978ではない(978を騙った)と断定する988に対して聞いていること。
自問自答じゃないだろ。

私怨はよそでやってくれ

>>997
書けるはずが無い。
なぜならお前は私ではないからだ。

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。