Обработка экономической информации средствами языка Pascal
Рефераты >> Кибернетика >> Обработка экономической информации средствами языка Pascal

ЗАВЕРШЕНИЕ ПРОГРАММЫ

END.

6 Список литературы

1. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие.-М.: «Нолидж», 1998.-616 с.

2. Вычислительная техника и программирование. Под редакцией А. В. Петрова М, Высшая школа, 1990

3. Марченко А.И., Марченко Л.И. Программирование в среде Turbo-Pascal 7.0-М., Бином Универсал, К.:Юниор,1997

4. http://www.rusdoc.ru

5. http://www.borland.ru

6. http://www.infocity.kiev.ua

Приложение А

Реализация продукции за год.

№

Переходящий остаток продукции на начало года

Приход продукции,

Шт

Расход, шт  

Цена за

1 шт

Остаток на конец года

1

45

32

21

6.90

386.40

2

234

3454

32

5.67

20729.52

3

79

345

34

3.99

1556.10

4

234

4567

54

9.30

44147.10

5

500

566

865

4.98

1000.98

6

5867

11

543

4.67

24914.45

7

560

7789

55

2.90

24052.60

8

129

2000

234

4.89

9266.55

9

123

567

435

7.90

2014.50

10

875

907

800

8.90

8739.80

11

743

800

600

2.67

2517.81

12

456

800

560

6.89

4795.44

Итого: 144121.25

Приложение Б

uses crt,graph;

type

bas=record

n:integer;

e1,e2,e3:integer;

e4:real;

end;

label menu2; {метка}

var

c:char; {с - для ридкея}

o:real;

ww,l,nn,q,i:integer; {w,ww-для шапки,l-для меню и для удал

nn,o-редактирование q-для обнавления

i-счетчик}

gd,gm:integer; {для графики}

pp,qq,n,mm:integer; {для добавки}

f,f2:file of bas; {файлы}

a,b:bas;

st:real; {сумма в таблице}

{-----------------------------------------вывод таблицы -------------------------------------}

procedure view(w:integer);

var

itog:real; {cумма в таблице, всего}

begin

window(1,1,80,6); textbackground(5);textcolor(15);

gotoxy(w,1);write('Реализация продукции за год');

textcolor(9);gotoxy(w-16,2);textbackground(0);

write('--------------------------------------------------------------');

textcolor(15);

gotoxy(w-15,4);write('N');

gotoxy(w-13,3);write('Переходящий остаток');

gotoxy(w-10,4);write('продукции на ');

gotoxy(w-10,5);write('начало года');

gotoxy(w+9,3);write('Приход');

gotoxy(w+8,4);write('продукции');

gotoxy(w+11,5);write('шт');

gotoxy(w+18,4);write('Расход');

gotoxy(W+20,5);write('шт');

gotoxy(w+26,4);write('Цена за');

gotoxy(w+27,5);write('1 шт');

gotoxy(w+35,4);write('Остаток на');

gotoxy(w+35,5);writeln('конец года');

textcolor(9); gotoxy(w-16,6);

write('--------------------------------------------------------------');

textcolor(15);

window(1,7,80,25);

reset(f); ww:=1; itog:=0;

repeat

writeln; read(f,a);

st:=((a.e1+a.e2)-a.e3)*a.e4;


Страница: