PASCALでアソボウ
PASCAL使って1〜10までの数字をランダムシャッフル→100マス計算用紙作成。を今日の授業で目論んでいたのですが、配列がわからなかったのでおわりました^^。しかし、その後色々考えて完成!ようは配列ではなく変数のビットに情報を持たせ、whileで回して適当に埋めていくって感じですね。何かビット演算も使えないのでかなり苦労することになったのでしたとさ。配列使えたら超簡単なのになー。
program RANDOM_SHUFFLE; var a, b, c, d, n, save : integer; begin save := 0; for n := 0 to 9 do begin d := 1; while d = 1 do begin a := uRandom(10); c := 1; for b := 1 to a do begin c := c * 2; end; d := save; for b := 1 to a do begin d := d div 2; end; d := d mod 2; end; save := save + c; Writeln(a); end; end.