Программирование в Delphi (стр. 3 из 5)
Пояснения к алгоритму 6:
Блок 2 – формирование цикла.
Блок 3 – условие математического расчета (при не пустой ячейке - выполняется).
Блок 4 – выполнение математических расчетов.
Блоки 5,6,7 – поиск максимального элемента.
Блок 8 – вывод в поле memo наименование статьи с наибольшим значением.
 | |||
 | |||||||||||||||
 | |||||||||||||||
 | |||||||||||||||
 | |||||||||||||||
 | |||||||||||||||
 | |||||||||||||||
 | ||
 | ||
 | ||||||
 | ||||||
 | ||||||
 | ||||||
9. процедура удаления базы: button3click.
Пояснения к алгоритму 9:
Блок 2 – очистка выбранной строки.
Блок 3 – задание начального условия цикла.
Блоки 4,5 – повторный цикл очистки массива.
Блок 6 – задание начального условия цикла.
Блоки 7,8,9 – повторение цикла перевода строки StrinGrid в массив записей.
Блок 10 – задание начального условия цикла.
Блоки 11,12,13,14,15 – повтор цикла перевода массива в StrinGrid.
Блок 16 – расчет.
 | ||||||||||||||||
 | ||||||||||||||||
 | ||||||||||||||||
 | ||||||||||||||||
 | ||||||||||||||||
 | ||||||||||||||||
 | ||||||||||||||||
| 16 |
| 3 |
 | ||
 | ||
12. выход.
Пояснения к алгоритму 12:
 | |
 |
5. Форма представления исходных данных
По условию поставленной задачи необходимо предусмотреть хранение информации в типизированных файлах. Для решения данного вопроса, необходимо разработать типизированный элемент хранения данных – строку набора базы данных, роль которой в данном приложении будет выполнять переменная «zap», имеющая следующую структуру.
type zap=record
prod:string[80];
onng:longint;
plan:longint;
onkg:longint;
svocep:extended;
end;
Т.е. данная переменная представляет собой линейный массив переменных данных необходимого нам типа. Для организации двумерного массива, опишем в разделе переменных массив «Mzap»:
var