29

Содержание

СОДЕРЖАНИЕ 4

В программе предусмотреть: 4

1. Данные должны храниться в файле. 4

2. Реализовать функции: 4

1. Добавление данных 4

2. Удаление данных 4

3. Поиск 4

4. Сортировка 4

3. Получение статистических данных в виде диаграммы / графика 4

2 СХЕМА ИЕРАРХИИ ЛОГИЧЕСКИХ МОДУЛЕЙ 5

Вариант 15.

Разработать программу, ведущую учет работы копировального аппарата ( Дата, Фамилия (кто копировал), Отдел (из какого отдела), Количество страниц, Количество копий, Цена одной копии, Процент надбавки на каждые сто листов, Итого).

В программе предусмотреть:

1. Данные должны храниться в файле.

2. Реализовать функции:

   1. Добавление данных

   2. Удаление данных

   3. Поиск

   4. Сортировка

3. Получение статистических данных в виде диаграммы / графика

2 СХЕМА ИЕРАРХИИ ЛОГИЧЕСКИХ МОДУЛЕЙ

Рисунок 1 – Схема иерархии логических модулей

3 Блок – схемы модулей

Блок схема всей программы

Рисунок 2 – Блок схема всей программы

Процедура открытия файла.

нет

д а

Рисунок 3 –Блок схема процедуры открытия файла

Процедура добавления строки.

Да

Нет

stringgrid1.Cells[0,i+1]:=inttostr(i+1);

stringgrid1.Cells[1,i+1]:=a[i].data;

stringgrid1.Cells[2,i+1]:=a[i].familiya;

stringgrid1.Cells[3,i+1]:=a[i].otdel;

stringgrid1.Cells[4,i+1]:= inttostr(a[i].kolvoStr);

stringgrid1.Cells[5,i+1]:=inttostr(a[i].kolvoCopy);

stringgrid1.Cells[6,i+1]:= floattostr(a[i].price);

stringgrid1.Cells[7,i+1]:= inttostr(a[i].nadbavka)

stringgrid1.Cells[8,i+1]:= inttostr(a[i].itogo);

Рисунок 4 – Блок схема процедуры добавления строки

Процедура удаления строки.

Нет

Да

a[i]:=a[i+1];

n:=n-1;

stringgrid1.RowCount:=2;

stringgrid1.Cells[0,1]:=''; stringgrid1.Cells[1,1]:='';

stringgrid1.Cells[2,1]:='';

stringgrid1.Cells[3,1]:='';

stringgrid1.Cells[4,1]:='';

stringgrid1.Cells[5,1]:=''; stringgrid1.Cells[6,1]:=''; stringgrid1.Cells[7,1]:=''; stringgrid1.Cells[8,1]:='';

Рисунок 5 –Блок схема процедуры удаления строки

Процедура сохранения в файл.

нет

да

Seek(f,i);

a[i].data:=stringgrid1.Cells[1,i+1];

a[i].familiya:=stringgrid1.Cells[2,i+1];

a[i].otdel:=stringgrid1.Cells[3,i+1];

a[i]. kolvoStr:=strToiNt(stringgrid1.Cells[4,i+1]);

a[i].kolvoCopy:=strToiNt(stringgrid1.Cells[5,i+1]);

a[i]. price:=StrToFloat(stringgrid1.Cells[6,i+1]);

a[i]. nadbavka:= strToiNt(stringgrid1.Cells[7,i+1]);

a[i]. itogo:= strToiNt(stringgrid1.Cells[8,i+1]);

write(f,a[i]);

Рисунок 6 – Блок схема процедуры сохранения в файл