Предыдущая страница реферата | 1  2  3  4  5  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; itog:=itog+st; textcolor(13); gotoxy(w-15,ww);write(a.n); textcolor(15); gotoxy(w-5,ww);write(a.e1); gotoxy(w+11,ww);write(a.e2); gotoxy(w+20,ww);write(a.e3); gotoxy(w+29,ww);write(a.e4:4:2); gotoxy(w+37,ww);write(st:4:2); ww:=ww+1; if ww>=19 then {типа скролинга} begin if (ww=19) then begin writeln; write('Для просмотра используйте клавишу
'); write(' Для продолжения -'); c:=readkey; delline; if c=#32 then ww:=ww-1 else break; end; end; until eof(f); textcolor(9); gotoxy(w-16,ww); write('--------------------------------------------------------------'); textcolor(9);gotoxy(w+7,ww); write('¦'); textbackground(5); textcolor(10);write('Итого:',itog:4:2); textbackground(0); textcolor(9); write('+'); writeln; end;
{----------------------------------------основное меню-------------------
----------------} procedure menu; begin textmode(Co80); clrscr; window(13,3,70,15); textbackground(14);textcolor(15); gotoxy(1,3); write('Для дальнейшей работы с программой выберите номерок:'); textbackground(0); gotoxy(16,5); textcolor(10); write('1'); textcolor(7); write(' -
Просмотр'); gotoxy(16,6); textcolor(10); write('2'); textcolor(7); write(' -
Cоздать'); gotoxy(16,7); textcolor(10); write('3'); textcolor(7); write(' -
Добавить'); gotoxy(16,8); textcolor(10); write('4'); textcolor(7); write(' -
Удалить'); gotoxy(16,9); textcolor(10); write('5'); textcolor(7); write(' -
Редактировать'); gotoxy(16,10);textcolor(10); write('6'); textcolor(7); write(' -
Заставка'); gotoxy(16,11);textcolor(10); write('7'); textcolor(7); write(' - Выход'); gotoxy(16,13); write('Введите номер:'); textcolor(10+128);readln(l); textmode(Co80); end;
{----------------------------------------------заставка------------------getmaxx-100 then begin k:=0; kk:=0 end; until keypressed;
{-----------krugi------------} for i:=0 to 399 do begin setcolor(red); circle(200,100,i); setcolor(green); circle(400,100,i); setcolor(yellow); circle(300,300,i); delay(10); end; for i:=399 downto 0 do begin setcolor(i); circle(322,250,i); delay(10); end;
{----------end_krugi---------} closegraph; end; end;
{------------------------------------Вывод об ошибке---------------------
---------------}
Procedure error; begin i:=0; repeat textmode(Co80); clrscr; gotoxy(24,8);textcolor(15); write('ВЫ ВВЕЛИ НЕПРАВИЛЬНЫЙ НОМЕР');sound(185);delay(100);nosound; clrscr; gotoxy(24,8);textcolor(7); write('ВЫ ВВЕЛИ НЕПРАВИЛЬНЫЙ НОМЕР');sound(174);delay(100);nosound; i:=i+1; until i=5; nosound; menu; end;
{-----------------------------------------------Bыход--------------------
------------------} procedure exitt; begin clrscr; initgraph(gd,gm,'bgi'); repeat settextstyle(7,0,4);setcolor(15); outtextxy(90,getmaxy div 4, 'Technical support by e-mail:'); settextstyle(1,0,4);setcolor(10); outtextxy(120,(getmaxy div 4)+50, 'support@sorgepro.agava.ru'); settextstyle(7,0,4);setcolor(15); outtextxy(140,(getmaxy div 4)+100, 'or visited our web site:'); settextstyle(1,0,4);setcolor(10); outtextxy(120,(getmaxy div 4)+150, 'http://sorgepro.agava.ru'); settextstyle(2,0,5);setcolor(15); outtextxy(getmaxx div 4,getmaxy-30,'(c)2000."Sorge pro".All rights don''t reserved.'); until keypressed; closegraph; exit; end;

{==========================Proga===========================}
BEGIN zast; assign (f,'k'); textmode(Co80);
{печать первого меню} menu; menu2:
{-------------------------------------------печать тaблицы---------------
-----------------} if l=1 then begin view(27); textcolor(15); gotoxy(7, ww+1); writeln('Для выхода нажмите или -возврат в главное меню.
'); c:=readkey; textmode(Co80); if c=#27 then begin menu; goto menu2 end else exitt; end else
{-----------------------------------------Заново-------------------------
--------------------} if l=2 then begin clrscr; textbackground(14);textcolor(15); writeln('Вы действительно хотите создать новые записи?'); writeln('!!!ПРЕДЫДУЩИЕ ЗАПИСИ БУДУТ УТЕРЯНЫ!!!'); textbackground(0); gotoxy(1,4); writeln('Для продолжения нажмите или -возврат в главное меню.'); c:=readkey; if c=#27 then begin menu; goto menu2 end else begin writeln('Введите количество записей:'); read(q); clrscr; rewrite(f); repeat writeln('введи текущий номер продукции...'); readln(a.n); writeln('введи переходящий остаток продукции на начало года...'); readln(a.e1); writeln('введи приход продукции...'); readln(a.e2); writeln('введи расход...');readln(a.e3); writeln('введи цену за 1 шт...');readln(a.e4); write(f,a); until (a.n=q); clrscr; writeln('ВСЁ OK.'); delay(1000); menu; goto menu2; end; end else
{----------------------------------Добавление записи---------------------
---------------} if l=3 then begin clrscr; textbackground(0); textcolor(15); writeln('Продолжить? (y/n)'); c:=readkey; if c#121 then begin textmode(Co80); menu;goto menu2; end else begin clrscr; writeln('Введите количество добовляемых записей:'); read(mm); clrscr; reset(f); n:=filesize(f); seek(f,n); pp:=n+1; repeat writeln('введи текущий номер продукции...');readln(qq); a.n:=pp; writeln('введи переходящий остаток продукции на начало года...'); readln(a.e1); writeln('введи приход продукции...'); readln(a.e2); writeln('введи расход...');readln(a.e3); writeln('введи цену за 1 шт...');readln(a.e4); write(f,a); pp:=pp+1; until (qq=mm); clrscr; writeln('ВСЁ OK.'); delay(1000); menu; goto menu2; end; end else
{-----------------------------------------удаление записи----------------
-----------------} if l=4 then begin clrscr; window(1,1,68,22); view(17); window(64,1,80,22); textcolor(15); writeln('Продолжить? (y/n)'); c:=readkey; if c#121 then begin textmode(Co80); menu;goto menu2; end else begin write('Введи номер:'); readln(nn); if nn>filesize(f) then begin error; goto menu2; end;
{удаление записи:запись в новый файл} reset(f); assign (f2,'k2'); rewrite(f2); l:=0;q:=0;n:=filesize(f); repeat l:=l+1; if lnn then begin q:=q+1; seek(f,l-1); read(f,a); b.n:=q; b.e1:=a.e1; b.e2:=a.e2; b.e3:=a.e3; b.e4:=a.e4; write(f2,b); end; until l=n;
{удаление записи: перезапись} reset(f2); rewrite(f); repeat read(f2,b); a.n:=b.n; a.e1:=b.e1; a.e2:=b.e2; a.e3:=b.e3; a.e4:=b.e4; write(f,a); until eof(f2); writeln; writeln('Всё Ok!'); delay(1000); writeln('Reload-'); write('Exit-'); c:=readkey; if c=#27 then begin menu; goto menu2; end else begin textmode(Co80); l:=4; goto menu2; end; end; end else
{---------------------------------------редактирование-------------------
----------------} if l=5 then begin view(27); textcolor(15); writeln('Продолжить? (y/n)'); c:=readkey; if c#121 then begin textmode(Co80); menu;goto menu2; end else begin write('Введите номер для редактирования:'); read(nn); if nn>filesize(f) then begin error; goto menu2; end; clrscr; i:=27; reset(f); seek(f,nn-1); read(f,a); st:=((a.e1+a.e2)-a.e3)*a.e4; gotoXY(i-15,1);write(a.n); gotoXY(i-5,1);write(a.e1); gotoxy(i+11,1);write(a.e2); gotoxy(i+20,1);write(a.e3); gotoxy(i+29,1);write(a.e4:4:2); gotoxy(i+37,1);write(st:4:2); gotoxy(7,2); seek(f,nn-1); writeln('Изменить переходящий остаток продукции на начало года? (y/n)'); c:=readkey; if c=#121 then begin write('Вводим новое:');read(nn); a.e1:=nn; end; writeln; writeln('Изменить приход продукции? (y/n)');c:=readkey; if c=#121 then begin write('Вводим новое:'); read(nn);a.e2:=nn; end; writeln; writeln('Изменить расход? (y/n)');c:=readkey; if c=#121 then begin write('Вводим новое:'); read(nn);a.e3:=nn; end; writeln; writeln('Изменить цену за 1 шт? (y/n)');c:=readkey; if c=#121 then begin write('Вводим новое:'); read(o);a.e4:=o; end; write(f,a); writeln; write('Все Ok'); delay(1000); clrscr; menu; goto menu2; end; end else
{--------------------------------------вывод заставки--------------------
-------------} if l=6 then begin zast; menu; goto menu2; end;
{---------------------------------------выход----------------------------
---------------} if l=7 then exitt else begin error; goto menu2; end;
{========================END_Proga========================}
END.

| Writed by Sergei Kovbasyuk |
| |
|(c)2000."Sorge pro". Rights don't reserved. |
|e-mail:office@sorgepro.agava.ru |
|http://sorgepro.agava.ru |

Скачали данный реферат: Суворин, Kunakovskij, Berlunov, Илькун, Грош, Марк, Шихранов.
Последние просмотренные рефераты на тему: лицо реферата, диплом государственного образца, особенности курсовой работы, шпоры по праву.



Предыдущая страница реферата | 1  2  3  4  5  6

Поделитесь этой записью или добавьте в закладки