情報科学１（ G1) ＃１０

情報科学１（G1)＃１０ • テキスト編集のプログラミング • エディタ　プログラムの作成 • 繰り返し • While 文

エディタ コンピュータとの対話 Computer : Command: User : i （文字列を挿入せよ） Computer : Insert What? User : abcdaefgh Computer : *abcdaefgh （ポインタの位置を*で表す） Computer : Command: User : p （ポインタの位置を合わせよ） Computer : Point to What? User : aef Computer : abcd*aefgh

ポインタ：変更が行なわれる位置を示す目印 ２番目のaにポインタをあわせる． abcdaefgh | ポインタの直前に'bbb'を挿入する． abcdbbbaefgh | ポインタの場所から４文字を削除する． abcdefgh |

必要なコマンド • 挿入i(insert) • ポインタの移動p (point) • 削除d (delete) • など．．

エディタプログラムの作成 • 単語'Command:'を出力する． • ユーザのコマンドを入力する． • もしコマンドが 'i' ならば，挿入を実行する． • もしコマンドが 'p' ならば，ポインタの移動を実行する． • もしコマンドが.... （以下省略）

エディタプログラムの作成 writeln('Command:'); readln(command); if command = 'i' then begin 挿入を実行する end; if command = 'p' then begin ポインタの移動を実行す end;

繰り返し　while文 • while条件 do文 • （「条件」が成立する時,「文」を実行）を繰り返し行なう． • 成立しない場合は，次の文へ

program RepetitionA; begin while true do begin writeln('Begin the loop.'); writeln('Here is some more'); end; end. Begin the loop. Here is some more を延々と出力するプログラム．「条件」 true：常に成立する．（つまり止まらない）止める場合：CTL+C

i = 0 i = 1 i = 2 . . . . と9まで出力するプログラム． program RepetitionB; var i :integer; begin i := 0; while i < 10 do begin writeln('i = ',i); i := i+1; end; end.

エディタプログラムの作成 繰り返しコマンドを受け付けるようにする．０．‘Enter Editor.’と出力する．１．単語‘Command:’を出力する．２．ユーザのコマンドを入力する．３．もしコマンドが ‘q‘ ならエディタを終了する．４．もしコマンドが ‘i’ ならば，挿入を実行する．５．もしコマンドが ‘p’ ならば，ポインタの移動を実行する．６．もしコマンドが.... （以下省略） ……… N. 1.へもどる．

エディタプログラムの作成 writeln('Enter Editor.'); text := ''; ptr := 0; command := ''; while command <>'q' do begin writeln('Command:'); readln(command); if command = 'i' then begin 挿入を実行する end; ....... end; writeln('Exit Editor');

エディタプログラムの作成 writeln('Enter Editor.'); text := ''; ptr := 0; command := ''; while command <>'q' do begin writeln('Command:'); readln(command); if command = 'i' then begin 挿入を実行する end; ....... end; writeln('Exit Editor'); textの初期値は長さ０の文字列 pointerの初期値は文字列の先頭 commandの初期値は長さ０の文字列

情報科学１（ G1) ＃１０

情報科学１（ G1) ＃１０

Presentation Transcript