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 934 名前：930 mailto:sage [2009/06/18(木) 02:44:28 ] これは、自分が思ってるよりも複雑でした。 パターンが３種類ということ以外にも、配列を複数個使って回してるようです。 Delphi6 personalで、C言語からPascalに書き換えてみたいと思います。 >>925さんじゃないですけど、非常に勉強になります。 932さん、ありがとうございました。 935 名前：デフォルトの名無しさん [2009/06/18(木) 18:04:27 ] 　Pascalで書いてみた。 　932氏のプログラムと違うのは式を計算する方法だけ。 　･･･だと思うんだけど、どう違うかまではまだ読みきれてない。 　結果は同じでした。 　FreePascalなんで変なオプション入ってる。 　あと、同じ理由で文字コードUTF-8です。 one.freespace.jp/amber_ale/text/kadai.pas 936 名前：デフォルトの名無しさん mailto:sage [2009/06/18(木) 22:53:12 ] >>935 932さんも、935さんもネストが深くても、全体的にコードがすっきりして見やすいです。 課題をいかに分解し、一つ一つの処理にするかが、センスなんだなぁと思いました。 初心者には、勉強になります。 935さんのコードは、文字コードをSJISにして、オプションを一つ削除することで、 Delphi6 personalで実行できました。 937 名前：デフォルトの名無しさん [2009/06/23(火) 14:31:05 ] integer変数ｎに適当な与えてｎを素因数分解し、 その結果を表示するプログラムを作りなさい。 神様まってますっ！！ 938 名前：デフォルトの名無しさん mailto:sage [2009/06/23(火) 17:39:32 ] そんな簡単なものも思いつかないようだとプログラム関係への道は止めた方が良い。 939 名前：デフォルトの名無しさん mailto:sage [2009/06/23(火) 18:08:16 ] >>938 スレタイをいちおくまんかい嫁。 940 名前：デフォルトの名無しさん mailto:sage [2009/06/24(水) 16:08:26 ] >>939 お前は>>1を同じ数だけ読んでこい ＞■全く分かってない阿呆も放置しないで優しく対応 これをやっただけだろ 941 名前：デフォルトの名無しさん [2009/06/24(水) 16:42:38 ] >>937 できますた lispで作るとこんなもんです。 ↓ (defun p (n) (do ((x 2 (1+ x)) (y n)) ((= y 1)) (do ((z x)) ((/= 0 (mod y z))) (print z) (setf y (/ y z))))) 942 名前：デフォルトの名無しさん mailto:sage [2009/06/24(水) 20:51:42 ] >>937 C言語 /* (defun p (n)   (do ((x 2 (1+ x)) (y n))     ((= y 1))     (do ((z x))       ((/= 0 (mod y z)))       (print z)       (setf y (/ y z))     )   ) ) */ void p(int n) {   int x, y, z;   for(x=2, y=n; y != 1; x++) {     for(z=x; y % z == 0; ) {       printf("*%d", z);       y = y / z;     }   } } int main() {   int n;   scanf("%d", &n);   printf("1");   p(n); }

---

---

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

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