6. процедура автоматического расчета: autorachet.
Пояснения к алгоритму 6:Блок 2 – формирование цикла.
Блок 3 – условие математического расчета (при не пустой ячейке - выполняется).
Блок 4 – выполнение математических расчетов.
Блоки 5,6,7 – поиск максимального элемента.
Блок 8 – вывод в поле memo наименование статьи с наибольшим значением.
| |||||||||||||
7. процедура сохранения базы: button6click.
Пояснения к алгоритму 7:Блоки 2,3 – открытие для записи данных.
Блок 4 – задание начального условия цикла.
Блоки 5,6 – повторный цикл очистки массива.
Блок 7 – задание начального условия цикла.
Блоки 8,9,10 – повторение цикла перевода строки StringGrid в массив записей.
Блоки 11,12 – запись в файл.
Блок 13 – закрытие файла.
Блок 14 – вывод в поле memo подтверждения.
| ||||||||||||||||||||
... курс. - М.: Нолидж, 2000. 4. Фаронов В.В. «DELPHI. Программирование на языке высокого уровня». – Питер, 2005. 5. Дятченко Д.А. Методические указания к выполнению курсовой работы по дисциплине «Программирование и алгоритмические языки»– Северодонецк, 2005. ПРИЛОЖЕНИЕ А Алгоритм программы Рисунок А.1 – Обработка событий главной формы программы Рисунок А.2 – ...
... нажатием клавиш Alt+F4. Заключение Преимущества: В данной курсовой работе были приведены три задачи при решении которых были рассмотрены различные управляющие структуры программирования, разные компоненты и возможности Delphi. В первой программе было реализовано табулирование, расчет значений функции и числового ряда и построен график функции с помощью компоненты TChart. Эта программа ...
... приложениями и DOS – приложениями). Цель работы: получение навыков запуска и настройки режима выполнения программ (Windows – приложениями и DOS – приложений) в операционных системах Windows NT/95, изменения различных параметров операционной системы, работая с файлами и документами в приложениях Windows. Работа в текстовом редакторе Microsoft Word. Наберите в окне WinWord текст вашей краткой ...
interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Chart1: TChart; Series1: TLineSeries; Series2: TLineSeries; ...
0 комментариев