【初心者】課題をクリアしていくスレ【講習会】at GAMEDEV【初心者】課題をクリアしていくスレ【講習会】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト37:名前は開発中のものです。 04/06/14 16:42 9xiGisv8 program Project1; {$APPTYPE CONSOLE} uses SysUtils; var I,N,F:Integer; begin Randomize; I := Random(9); Writeln('数字を入力してください'); while F = 0 do try Readln(N); if N = I then begin Writeln('正解です。Enterを押せば終了します。'); Readln; F := 1; end else if N > I then Writeln('もっと小さいです') else if N < I then Writeln('もっと大きいです'); Except Writeln('数字を入力してください'); end; end. こんなんでどうでしょう 38:名前は開発中のものです。 04/06/14 16:44 9xiGisv8 uses SysUtils; ここは不要でした 39:4 ◆3VUXqvbfSY 04/06/14 16:57 6UsS7uqF やば… >>35 二回ランダム使ってるよ…、ていうか、当てようがねぇ… 何か変数用意して、一回代入したら、もうランダム使っちゃダメだよ。毎回違う値がでるｗ >>38 出来てますよ…うん。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch