double arrow

Преподаватель М.М.Нартова___________________

2

Дата выдачи___________________________________

2.Введение

Программа «Pavlyuchkov» предназначена для списания инвентаря и расчета его остаточной стоимости. Она разработана в среде программирования Borland Delphi 7.

Программа включает в себя набор подпрограмм и функций:

1.Ввод данных (vvod)- с помощью этой процедуры подпрограммы пользователь вводит данные в расчетную таблицу, также в данной процедуре вычисляются расчётные данные (гр.5, гр.6).

2.Вывод на экран (vivod)- с помощью этой процедуры подпрограммы на экран выводятся Исходные данные (гр. 1-4), а также Расчетные данные (гр. 5, гр.6);

3.Сохранение данных (save)- процедура служит для сохранения данных расчетной таблицы в типизированный файл, хранящийся в каталоге программы;

assign(f,name);

{$i-}

reset(f);

{$i+}

if IOResult=0 then begin

writeln … … else

rewrite(f);

for i:=1 to n do

write(f,a[i]);

close(f);

end;

4.Чтение данных (open)- с помощью этой процедуры пользователь может открыть (считать) данные из сохраненного файла и позволяет продолжить работу с ранее сохраненными данными, если же такого файла не существует, программа сообщит об этом пользователю;

assign(f,name);

{$i-}

reset(f);

{$i+}

if ioresult<>0 then writeln(rus('Ошибка открытия'))




else begin

n:=0;

while (not eof(f)) and (n<200) do begin

inc(n);

read(f,a[n]);

end;

close(f);

end;

5.Сохранение в текстовый файл (otchet)-сохранение данных таблицы в текстовый файл;

6.Фильтрация (filtr)- процедура позволяет пользователю отфильтровать и вывести на экран данные таблицы соответствующие указанному критерию;

fl:=false;

for i:=1 to n do

if (a[i].cena>m) and (not fl) then

begin

fl:=true;

writeln… end

else

if a[i].cena>m then

begin

write…

end;

7.Сортировка (sort)-с помощью этой процедуры программа упорядочивает (сортирует) данные по начальной стоимости инвентаря;

begin

for i:=1 to n do

begin

for j:=i to n do

if a[j].cena >= a[i].cena then

begin

c:=a[i];

a[i]:=a[j];

a[j]:=c;

end;

end;

8.Поиск максимума и минимума(max_min)- с помощью этой процедуры программа может определить max и min значения гр.4;

begin

max:=0;

for i:=1 to n do

begin

if a[i].pi>max then max:=a[i].pi;

end;

min:=max;

for i:=1 to n do

begin

if a[i].pi<min then

min:=a[i].pi;

end;

9.Удаление (del)-процедурапозволяет удалить строку с данными по номеру строки (в случае ошибки пользователя во время ввода);

begin

writeln(rus('Введите номер удаляемой строки'));

readln(m);

for i:=1 to n do

begin

if m=i then

begin

for j:=m to n do

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

end; end;

n:=n-1;

Во время разработки я использовал следующие типы данных:

Запись (record) – структурированный тип;

Массив (array) – порядковый тип;

Word, Byte – целочисленный тип;

Real, Extended – вещественный тип.

type

mebel=record

inum:word;

name:string[10];

cena:real;

pi:real;

ost:extended;

zos:string[10];

end;

mas=array[1..200]of mebel;

Они были необходимы для упрощения разработки программы

Из-за не совпадения кодировочных таблиц, консольного приложения(ASCII) с кодировочной таблицей в режиме запуска программы (ANSI), программа включает в себя функцию «rus» и «rus1» (Русификатор).





2




Сейчас читают про: