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

йлу->');

Readln (fileName); (f, fileName);

{$ I-} (f);

{$ I +} IOResult <> 0then

writeln ('Вказаний файл не знайдено!');;;; not (Eof (f)) do (NumberGartner); (f, GartnerArray [NumberGartner]);; (f); (' Введення закінчено! ');;; WriteFile; f: file of TGartner; fileName: string; i: integer;

writeln;

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

writeln;; NumberGartner = 0 then ('Список садівників порожній!');

readln;;; ('Введіть ім'я файлу->'); (fileName); (f, fileName); (f); i: = 1 to NumberGartner do (f, GartnerArray [i ]); (f); ('Запис завершена');

readln;

end;

procedure DeleteGartner1;

var fio: string; i, j: integer;

begin

writeln;

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

writeln;

writeln;

Write ('Введіть ПІБ садівника->');

Readln (fio); i: = 1 to NumberGartner doGartnerArray [i]. FIO = fio thenj: = i to NumberGartner-1 do [j]: = GartnerArray [j +1]; ('Запис успішно видалена'); (NumberGartner);;;; ('Садовод з такими даними не знайдено!') ;;; Search; menu, buf, i: integer; fio: string; key: boolean;; ( Пошук елемента масиву. Виберете один з пропонованих атрибутів пошуку, введіть відповідний йому номер і натисніть Enter ' );

writeln;

writeln;

Writeln ('Введіть атрибути пошуку:');

Writeln ('1-ПІБ ');

Writeln ('2-Кількість соток ');

Writeln ('3-Загальний внесок ');

Write ('->');

{$ I-} (menu);

{$ I +} IOResult <> 0 then

Writeln ('Введено неприпустимий символ!');;;;;: = false; menu of

: ('Введіть ПІБ->'); (fio); i: = 1 to NumberGartner dofio = GartnerArray [i]. FIO thenkey = false then Writeln ('Знайдені запису:'); (i);: = true;; key = false then Writeln ('Садівники з необхідними атрибутами не знайдені');

readln;

end;

:

begin

Write ('Введіть кількість соток->');

{$ I-} (buf);

{$ I +} IOResult <> 0 then

Writeln ('В...