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 875 名前：デフォルトの名無しさん [2009/01/27(火) 16:40:44 ] Delphi6.0で （１）2つの自然数nとmが与えられたとき、 nとmの最大公約数を出力するプログラムを書け。 （２）与えられた3×3行列の行列式を計算するプログラムを書け (行列は2次元配列で表すこと。) という課題はどうやってとけばいいのでしょうか？ 876 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 18:36:09 ] 頭を使って解けばいいと思います 877 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 21:48:58 ] 頭じゃなくてDelphi6.0でって書いてあるのに･･･ 878 名前：デフォルトの名無しさん mailto:sage [2009/01/28(水) 02:31:19 ] >>875 動作確認なんてしてないから間違ってたらすまん 改行大杉って怒られたんでつめて書く type   TMatrix3x3 = array[0..2][0..2]of Double; function det3x3(Mat:TMatrix3x3):Double; var   i,j:Integer;   hoge:Extended; begin   Result:=0; //Plus   for i:=0 to 2 do begin     hoge:=1;     for j:=0 to 2 do       hoge:=hoge*Mat[j][(i+j)mod 3];     Result:=Result+hoge;    end; //Minus   for i:=0 to 2 do begin     hoge:=1;     for j:=0 to 2 do        hoge:=hoge*Mat[j][(3+i-j)mod 3];      Result:=Result-hoge;   end; end; 879 名前：デフォルトの名無しさん mailto:sage [2009/01/28(水) 02:32:32 ] 我ながら改行とかインデント崩れすぎﾜﾛﾀ 880 名前：デフォルトの名無しさん mailto:sage [2009/01/28(水) 08:59:15 ] 大丈夫、環境によってはキチンとインデントされて見えてるから。 半角2文字づつ綺麗にインデントされたやつが。 881 名前：デフォルトの名無しさん mailto:sage [2009/01/28(水) 10:09:12 ] 俺のとこもちゃんとなってるよ 882 名前：１２３ [2009/02/11(水) 17:58:34 ] ４４０！を８８１で割ったときの余りをＲを求めよ。また、Ｒ2を８８１で割ったときの余りを求めよ。 883 名前：デフォルトの名無しさん mailto:sage [2009/02/12(木) 01:16:47 ] program prog1(input, output); var i,ans:integer; begin ans := 1; for i := 1 to 440 do begin ans := ans * i mod 881; end; writeln(ans); readln; end. 884 名前：１２３ [2009/02/12(木) 10:02:40 ] さすがです！！！任務完了！ 885 名前：デフォルトの名無しさん mailto:sage [2009/02/13(金) 01:09:04 ] [1] 授業単元：Pascal [2] 問題文(含コード&リンク)： 1から9までの数字を縦横方向に同じものが並ばないように下記の例のように並べる 並べ方が全部で何通りあるかとその並びをすべて列挙する [3] 環境：特になし [4] 期限： 明日まで [5] その他の制限： 例 534681297 685293714 948367125 153472869 426538971 261759483 817945632 379126548 792814356 886 名前：デフォルトの名無しさん mailto:sage [2009/02/13(金) 01:25:52 ] 547 名前： デフォルトの名無しさん [sage] 投稿日： 2009/02/12(木) 17:07:40 Python の宿題ここで答えます Part 1 pc11.2ch.net/test/read.cgi/tech/1153585095/785 C/C++の宿題片付けます 122代目 pc11.2ch.net/test/read.cgi/tech/1232029287/542 Rubyの宿題教えてください。2限目 pc11.2ch.net/test/read.cgi/tech/1200175247/476 こんなんで数独の掲載料もらえるなら俺だって問題送りたい 887 名前：デフォルトの名無しさん mailto:sage [2009/02/13(金) 20:40:20 ] 数独の条件はそれだけじゃないだろ。 888 名前：デフォルトの名無しさん mailto:sage [2009/02/15(日) 13:11:36 ] 課題が全部列挙だとするとマジキチなサイズのレポートが出来上がる

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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