Pascalの宿題は俺にやらせろ！！Part2

1 名前：デフォルトの名無しさん mailto:sage [2006/01/12(木) 00:45:25 ] 教育用（？）プログラムPascalの宿題をやって頂くスレ ■丸投げOK ■全く分かってない阿呆も放置しないで優しく対応 ■他言語はよそ逝け( ﾟДﾟ)ｺﾞﾙｧ ■DelphiもTurbo Pascalも完全対応 【本家】 www.borland.co.jp/delphi/ 【前スレ】 pc8.2ch.net/test/read.cgi/tech/1089719714 【関連スレ】 くだすれDelphi（超初心者用）その１5 pc5.2ch.net/test/read.cgi/tech/1087823906/l50 Pascal の初心者用の質問・相談所 pc5.2ch.net/test/read.cgi/tech/1009903617/l50 【Delphi初心者】今から始めるDelphi Part01 pc5.2ch.net/test/read.cgi/tech/1062422335/l50 368 名前：デフォルトの名無しさん [2006/07/15(土) 22:06:51 ] 長文で失礼します。 (1) 配列にしまわれたいくつかの整数をデータとして， 棒グラフを作成するプログラムをかけ。 （入力データ x は 0<= x <=100 をみたすとする。） Hint: 以下の作業を，i=1 から i=n まで， n 回繰り返す （ for 文や repeat 文を用いる） 作業： x 方向に位置をずらしながら， a[i] に応じた高さの細長い長方形を n 個描く 50 未満のデータに対する「棒」は赤色で表示し， 50 以上のデータに対する「棒」は青色で表示するようにせよ。 という課題なのですが 369 名前：デフォルトの名無しさん [2006/07/15(土) 22:07:29 ] var n : integer; a : array[1..20] of integer; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add(Edit1.Text); n := n + 1; a[n] := StrToInt(Edit1.Text); Edit1.Clear; Edit1.SetFocus; end; procedure TForm1.Button2Click(Sender: TObject); var i : integer; begin with PaintBox1.Canvas do begin for i= 1 to n do //棒グラフ作成？ 370 名前：３６８　３６９ [2006/07/15(土) 22:08:25 ] end; procedure TForm1.Button3Click(Sender: TObject); begin Memo1.Clear; Edit1.Clear; Edit1.SetFocus; end; end. という状態です。 ここまでに誤りがあるのか、また、肝心の空欄部分はどうすればいいか 教えていただけたら幸いです。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef