いろんな言語で宿題ス ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
653:デフォルトの名無しさん 10/02/09 08:10:02 >>642 ？ 654:デフォルトの名無しさん 10/02/09 08:26:31 http://pc12.2ch.net/test/read.cgi/tech/1263824755/535 # [1] 授業単元：プログラミング # [2] 問題文(含コード&リンク)： # まず次の内容のテキストファイルを準備せよ。 # （メモ帳で作成し、test02.txtという名前で保存すること） # # abc # 123 # def # 456 # ghi # 789 # jkl # 000 # # 次に、作成したテキストファイルから内容を読み出し、 # 各行の先頭に 01 02 03 というように番号を付加して # 画面に出力するプログラムを作成せよ。 655:デフォルトの名無しさん 10/02/09 08:38:03 >>654 % Prolog 'テキストファイルから内容を読み出し、各行の先頭に 01 02 03 というように番号を付加して画面に出力する' :- get_lines('test02.txt',L), '各行の先頭に 01 02 03 というように番号を付加して画面に出力する'(1,L). '各行の先頭に 01 02 03 というように番号を付加して画面に出力する'(_,[]) :- !. '各行の先頭に 01 02 03 というように番号を付加して画面に出力する'(N,[Line|R]) :- write_formatted_atom('%2d',[N],A), 空白を0に置換する(A,A2), write_formatted('%t %t\n',[A2,Line]), N2 is N + 1, '各行の先頭に 01 02 03 というように番号を付加して画面に出力する'(N2,R). 空白を0に置換する(A,A2) :- atom_chars(A,L), ならびの置換(' ','0',L,L2), atom_chars(A2,L2).
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4394日前に更新/462 KB
担当:undef