ведено неприпустимий символ!');;;;; i: = 1 to NumberGartner dobuf = GartnerArray [i]. NumberSot thenkey = false then Writeln ('Знайдені запису:'); (i);: = true;; key = false then Writeln ('Садівники з необхідними атрибутами не знайдені');
readln;
end;
:
begin
Write ('Введіть суму загального внеску->');
{$ I-} (buf);
{$ I +} IOResult <> 0 then
Writeln ('Введено неприпустимий символ!');;;; i: = 1 to NumberGartner dobuf = GartnerArray [i]. PriseAll thenkey = false then Writeln ('Знайдені запису:'); (i);: = true;;;
if key = false then Writeln ('Садівники з необхідними атрибутами не знайдені');
readln;;;; Sort; bufArray: array [1. Nconst] of TGartner;: array [1. Nconst] of byte; i, j: integer; NumberGartner = 0 then ('Список садівників порожній!');;;; I: = 1 to NumberGartner do [i]: = 0;
writeln;
Writeln ('Сортування за зростанням');
for i: = 1 to NumberGartner-1 doj: = i +1 to NumberGartner doGartnerArray [i]. PriseAll> GartnerArray [j]. PriseAllinc (keyArray [i]) else inc (keyArray [j]), i: = +1 to NumberGartner do [keyArray [i] +1]: = GartnerArray [i]; i: = +1 to NumberGartner do [i]: = bufArray [i]; ('Список відсортований!');
readln;
end;
end.
Додаток В. результати роботи програми
В
Малюнок В. 2-Вид вікна програми після запуску
В
Малюнок В. 3-Введення даних з клавіатури
В
Малюнок В. 4-Виведення даних на екран
В
Малюнок В. 5-вивід на екран кругової діаграми
В
Рисунок В.1. 6-Пошук по заданому атрибуту
