Реферат Обробка набору даних, представленого у вигляді файлу

????????????????????????????? ????????????????? »; [2]: =«? Прізвище? Оплата? Номер? Доп. кошти? »; (fail, zap); i:=length (zap.familiya) to 9 do.familiya: =« »+ Zap.familiya;

{end for} ord (zap.sredstva) +1 of

: sredstvastr:=« факс-модем »;

: sredstvastr:=« модем »;

: sredstvastr:=« факс »;

: sredstvastr:=« нету »;;

{end case} (zap.oplata, oplatastr); i:=length (oplatastr) to 8 do:=oplatastr + « »;

{end for} (zap.nomerATS, nomerATSstr); i:=length (nomerATSstr) to 9 do:=nomerATSstr + « »;[k]:=«?????????????????????????????????????????????????»;[k+1]:=«?»+zap.familiya+«?»+oplatastr+«?»+nomerATSstr+«?»+sredstvastr+«?»;:=k+2;eof(fail);

{end repeat} [k]:=«??????????????????????????????? ?????????????????? »;

ah, 1cx, 2020h10h;

(1,1,80,25); (black); (white);;

i:=1 to 24 do (stroka [i]); (stroka [25]);:=1;:=readkey; key of

# 80: if m +24

{end if}

# 72: if m> 1 then:=m - 1;

{end if}

# 81: if m +24 k then:=k - 25;

{end if};

{end if}

# 73: if m> 25 then:=m - 24:=1;

{end if};

{end case}:=1; a:=m to m +24 do (1, l); (stroka [a]);:=l +1;; key=# 27;

{end repeat} (fail);;.

Текст модуля poisk.tpu:

unit poisk; crt; dopsredstva=(faxmodem, modem, fax, nety);=record: byte;: string;: longint;: integer;: dopsredstva;; poiskel (imya_faila: string); poiskel; fail: file of zapis;, i: byte;, nomstr, oplatastr: string;: zapis; (1,12,80,25); (white); (black);; («введіть номер елементу») ; (n); (fail, imya_faila); (fail);; (fail, zap); (zap.nom, nomstr); i:=length (nomstr) to 5 do:=nomstr + « »;

{end for} i:=length (zap.familiya) to 9 do.familiya:=« »+ Zap.familiya;

{end for} (zap.oplata, oplatastr); i:=length (oplatastr) to 8 do:=oplatastr + « »;

{end for} ord (zap.sredstva) +1 of

: sredstvastr:=« Факс-модем »;

: sredstvastr:=« Модем »;

: sredstvastr:=« Факс »;

: sredstvastr:=« Нету »;;

{end case} zap.nom=n then («поточний элемент:»);(«???????????????????????????????????????????????????????»);(«?номер ? Прізвище? Оплата? Номер АТС? Доп. Средсва?" ); («??????????????????????????????? ????????????????????????" ); («? », nomstr,«? », zap.familiya,«? », oplatastr,«? », zap.nomerATS: 9,«? », sredstvastr:15,«?»);(«???????????????????????????????????????????????????????»);;

{end if} eof (fail);

{end repeat} (fail);;.

Текст модуля perehod.tpu:

unit perehod; pereho...