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

Тема: Новые рефераты

dnab (var name: string); perehodnab; fail: file; («ўўҐ ¤ ЕвҐ Е ¬ п д ©» »); (name); (fail, name) ; (fail, 1); (fail);;.

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

unit sredmaxmin; crt; dopsredstva=(faxmodem, modem, fax, nety);=record: byte;: string;: longint;: integer;: dopsredstva;; naxogdenie (name: string); naxogdenie (name: string); fail: file of zapis;: zapis;, niz, min, max, i, j, k: integer; _vo: array [1 .. 100] of integer;, sredn: real;, oplatastr : string; (fail, name); (fail); («введіть нижню межу діапазону»); (niz); («введіть верхню межу діапазону»); (verh); niz> verh then («верхів межа повинна бути більше нижньої »);

{end if} verh>=niz;

{end repeat}:=1; («??????????????????????????????? ???????????????????" ); («? Прізвище? Оплата? Номер? Доп.средства?" ); (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.oplata>=niz) and (zap.oplata <= verh) then_vo[k]:=zap.oplata;:=k+1;(«??????????????????????????????????????????????????»);(«?», zap.familiya, «?», oplatastr: 9, «?», zap.nomerATS: 11, «?», sredstvastr," ?");; eof (fail);

{end repeat}(«??????????????????????????????????????????????????»);:=kol_vo[1];:=kol_vo[1];j:=1 to k - 1 dokol_vo [j]> max then:=kol_vo [j]; kol_vo [j]

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

unit udalenie; crt; dopsredstva=(faxmodem, modem, fax, nety);=record: byte;: string;: longint;: integer;: dopsredstva;;: file of zapis;: dopsredstva ;: string;: integer;

udalenieel (name: string; nom: integer);

udalenieel (name: string; nom: integer);; (fail, name); (fail); (fail, nom); (fail);;.

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

menu; crt; mymenu=array [1 .. 25] of string; vertmenu (mas: mymenu; x, y, kol: integer; var long: integer); vertmenu; max, i, j: integer; l: byte; key: char;:=length (mas [1]); i:=2 to kol dolength (mas [i])> max then:=length (mas [i]);

{end if}

{end for} i:=1 to kol doj:=length (mas [i]) +1 to max do [i]:=mas [i] + « »;

{end for}

{end for} (x, y, x + max, y + kol); (blue);; i:=1 to kol do (1, i); (mas [i]) ;;

{end for}:=1; (1,1); (red); (white); (mas [1]);:=long;:=readkey; key=# 0 then :=readkey;

{end if} key of

# 80: if long

{end if}

# 72: if long> 1 then:=long - 1:=kol;

{end if}

# 13: exit;;

{end case} (1, l...