Реферат Розробка програми обробки масиву даних з побудовою діаграми (предметна область - "Садівник")

="justify"> case readkey of

# 59: begin clrscr; inputdata; end;

# 60: begin clrscr; writefile; end;

# 61: begin clrscr; readfile; end;

# 62: begin clrscr; Outputall; end;

# 63: begin clrscr; Deletegartner1; end;

# 64: begin clrscr; Search; end;

# 65: begin clrscr; sort; end;

# 66: paint;

# 67: begin clrscr; input; end;

# 68: halt;; false;.

А.2. Текст модуля програми (IO)

unit IO; crt; Nconst = 50; = record: string [50];: integer;, PriseAll: integer;; Input; Output1 (i: integer); OutputAll; ReadFile; WriteFile; DeleteGartner1 ; Search; Sort; GartnerArray: array [1. Nconst] of TGartner;: integer; Input; n, i: integer;; ('Введення даних в масив. Дотримуйтесь покрокової інструкції. Введення чергового елемента завершуйте натисканням клавіші Enter');

writeln;

writeln;

Writeln ('Введіть число записів->');

Readln (n); i: = 1 to n doGartnerArray [NumberGartner +1] do ('Садовод №', i); ('Введіть ПІБ->'); (FIO); ( 'Введіть кількість соток->');

{$ I-} (NumberSot);

{$ I +} IOResult <> 0 then

Writeln ('Введено неприпустимий символ!');;;;; ('Введіть ціну однієї сотки->');

{$ I-} (Prise1);

{$ I +} IOResult <> 0 then

Writeln ('Введено неприпустимий символ!');;;;;: = Prise1 * NumberSot; (NumberGartner); ();; ("Введення закінчено ');;; Output1 (i: integer );; GartnerArray [i] do ('ПІБ', FIO); ('Кількість соток', NumberSot); ('Ціна однієї сотки', Prise1);

Writeln ('Загальний внесок', PriseAll);;;; OutputAll; i, j: integer;

writeln;

writeln ('Виведення даних на екран. Для повернення в меню натисніть клавішу Enter');

writeln;; (# 218); i: = 1 to 67 do (# 196); (# 191); (# 179, 'ПІБ': 30, # 179, 'Кол. соток ': 12, # 179,' Ціна 1-й ': 10, # 179,' Підсумок: 12, # 179); i: = 1 to NumberGartner doGartnerArray [i] do (# 179, Fio: 30, # 179, NumberSot: 12, # 179, Prise1: 10, # 179, PriseAll: 12, # 179);; (# 192); j: = 1 to 67 do (# 196); (# 217);;; ReadFile; f : file of TGartner; fileName: string;

writeln;

writeln ('Читання даних з файлу. Введіть ім'я вже існуючого файлу, потім натисніть клавішу Enter');

writeln;

writeln;

Write ('Введіть ім'я фа...