Read Data program Read Datainput output var position

プログラム例１（Read. Data) program Read. Data(input, output); var position 1: string; begin read. Ln(position 1); write. Ln(position 1); end. position 1 メモリ 安藤

プログラム例２（Read. Write. Demo) { p. 41 Read. Write. Demo } program Read. Write. Demo(input, output); var position 1: string; begin write. Ln('Please type in some data. '); read. Ln(position 1); write. Ln('The data have been stored. '); write. Ln('Next the data will be printed. '); write. Ln(position 1); write. Ln('This completes the run. '); end.

プログラム例３（Get. Town. Name) { p. 42 Get. Name. Town } program Get. Name. Town(input, output); var Position. Of. Name, Position. Of. Town: string; begin write. Ln('Hi, tell me your name. '); read. Ln(Position. Of. Name); write. Ln('What town do you live in? '); read. Ln(Position. Of. Town); write. Ln('Can you tell me something? '); write. Ln(Position. Of. Name); write. Ln('How do you like living in'); write. Ln(Position. Of. Town); end.

プログラム例３’（Get. Town. Name. J) { p. 42 Get. Name. Town. J } program Get. Name. Town. J(input, output); var Position. Of. Name, Position. Of. Town: string; begin write. Ln('やあ，君の名前を教えてよ．'); read. Ln(Position. Of. Name); write. Ln('どこに住んでるの? '); read. Ln(Position. Of. Town); write. Ln('何か話してくれる？'); write. Ln(Position. Of. Name); write. Ln(Position. Of. Town); write. Ln('ってどんな感じ？'); end.

セミコロンのつけ方 program First. Tree(input, output); var answer : string; {M} begin {M 1} write. Ln('形式表記法の経験はあるか？'); {end. M 1} {M 2} read. Ln(answer); {end. M 2} {M 3} if answer='はい' then {N} begin {N 1} write. Ln('プログラミングではこれらの形式表記法を’); {N 2} write. Ln(‘実際に使う．'); {N} end else begin write. Ln('Pascalを勉強すると，’); write. Ln(‘表記法の１つが学習できる．'); end; {end. M 3} {M} end.

Book. Adviceのコード（１） yes 数学的なアプローチ をとりますか？ no program Book. Advice(input, output); var answer 1, answer 2, answer 3 : string; begin write. Ln('数学的アプローチをとりますか？'); read. Ln(answer 1); if answer 1='yes' then yes の分岐を扱うコードをここに入れる else no の分岐を扱うコードをここに入れる end.

Book. Adviceのコード（２） プログラミングに興味がありますか， それとも理論に興味がありますか？ 理論 D. Cooper, M. Clancy: Oh! Pascal. D. Harel: Algorithmics. begin write. Ln('プログラミングに興味がありますか？'); write. Ln('それとも理論に興味がありますか？'); read. Ln(answer 2); if answer 2='programming' then begin write. Ln('D. Cooper and M. Clancy著'); write. Ln('"Oh, Pascal!"を薦めます．'); end else begin write. Ln('D. Harel著'); write. Ln('"Algorithmics"を薦めます．'); end

Book. Adviceのコード（３） プログラミング P. Pattis: Karel the Robot. プログラミング中心の本が良いですか，それ ともコンピュータ科学の概論を知りたいです A. Biermann: Great Ideas か？ 概論 in Computer Science. begin write. Ln('プログラミング中心の本がよいですか，'); write. Ln('それともコンピュータ科学の概論を知りたいですか？'); read. Ln(answer 3); if answer 3='programming' then begin write. Ln('R. Pattis著'); write. Ln('"Karel the Robot"がお薦めです．'); end else begin write. Ln('A. Biermann著'); write. Ln('"Great Ideas in Computer Science"がお薦めです．'); end;

Seagull. Classのコード（１） 赤 足の色は 何色です か？ 黒 肌色 緑 program Seagull. Class(input, output); var answer 1: string; begin write. Ln('足の色は何色ですか？'); read. Ln(answer 1); if answer 1='red' then 「赤」の場合のコード; if answer 1='black' then 「黒」の場合のコード; if answer 1='flesh' then 「肌色」の場合のコード; if answer 1='green' then 「緑」の場合のコード; end.