Pascalの宿題は俺にやらせろ！！Part2 at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
150:デフォルトの名無しさん 06/02/08 01:19:17 >>149 ダミーセルをつくるのはたぶんだめっていわれます。 151:デフォルトの名無しさん 06/02/08 01:57:34 とりあえず、リストの作成と書き出しをやってみましたが、終了条件を'end'にしているのに endで終わらない・・・。 var init,current:list; datname:string[10]; datid:integer; begin new(init); current:=init; write('名前を入力してください'); readln(datname); write('IDを入力してください'); readln(datid); while datname <> 'end' do begin current^.name:=datname; current^.id:=datid; new(current^.pointer); current:=current^.pointer; write('名前を入力してください:　'); readln(datname); write('IDを入力してください：　'); readln(datid); end; current^.pointer:=nil; {リストの書き出し} current:=init; while current^.pointer <> nil do begin write(current^.name,' ',current^.id); current:=current^.pointer end; writeln end.

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5186日前に更新/280 KB
担当:undef