В программе используются следующие переменные: Bas – запись. type bas=record n:integer; e1,e2,e3:integer; e4:real; end; Где: n - номер продукции; e1 - переходящий остаток продукции на начало года ; e2 - приход продукции; e3 – расход; e4 - цена за 1 шт . menu2 – метка, используется для работы с главным меню программы;
C:char, используется для работы оператора readkay (читает символ с клавиатуры без эхоповтора на экране); O:real используется для редактирования записей. ww, l, nn, q, i, gd, gm:integer; ww-используется для вывода шапки таблицы (координата по Y). l-используется для работы с меню и для удаления записи nn, q- используется в программе для создание новых записей i-счетчик gd, gm - для графики: gd – определяет тип графического драйвера, gm – переменная, задающая режим работы графического адаптера; pp,qq,n,mm:integer; - переменные для добавления новой записи; f,f2:file of bas; - файлы a,b:bas; a,b - переменные, содержащие записи типа Bas.
Переменная b используется для удаления записей. st:real; st – для вычисления суммы в таблице Процедуры: procedure view(w:integer);
- процедура вывода таблицы, где w–координата по Х; var itog:real; -для вычисления итогового значения сумма в таблице; Procedure menu;
- процедура вывода меню; Procedure zast;
- процедура вывода графической заставки var xm,ym:integer; xm,ym-координаты для вывода граф. объектов size:integer; saucer:pointer; k,kk:integer; size,saucer,k,kk-для движения Procedure error;
- процедура вывода сообщения об ошибке Procedure exitt;
- процедура выхода из программы
5.5 Описание программы При запуски программы идет подключение дополнительных модулей Crt и Graph: uses crt, graph; Описание переменных (см. пункт 5.4) Описание процедур:
Процедура вывода таблицы на экран - view: Установка текстового окна на экране для вывода шапки с координатами левого верхнего угла -1,1 и правого нижнего – 80,6 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); Установка координаты y, необходимой для вывода данных таблицы и обнуление итогового значения таблицы. 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;
Процедура вывода основного меню – menu: Очистка экрана и установка стандартного текстового режима clrscr; textmode(Co80); Установка текстового окна на экране с координатами левого верхнего угла -13,3 и правого нижнего – 70,15 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); Ввод переменной l, необходимой для дальнейшей работы программы и установка стандартного текстового режима readln(l); textmode(Co80); Конец процедура вывода главного меню end;
Процедура вывода заставки – zast: Очистка экрана clrscr; Установка белого цвета символов textcolor(white); Вывод сообщения: «Показать заставку?»
Write(‘Показать заставку? (y/n)’); Считывание нажатия клавиши. c:=readkey При нажатие клавиши - выполняется дальнейший ход процедуры: Инициализация графики initgraph(gd,gm,'bgi') Установка координат xm, ym для вывода графических объектов xm:=getmaxx div 4; ym:=getmaxy div 4; Установка текущего шрифта, стиля и размера текста settextstyle(2,0,5) Вывод текста на экран, используя координаты x=xm+100,y=10 outtextxy(xm+100,10,'## Sergei Kovbasyuk ##'); Вычесление числа байт, необходимого для сохранения прямоугольной области экрана size:=imagesize (xm+100,10,xm+275,10+20); Создание динамической переменной getmem(saucer,size); Сохранение в переменной битовый образ указанной части экрана. getimage(xm+100,10,xm+275,10+20,saucer^); Вывод битового образа на экран putimage(xm+100,10,saucer^,xorput); Обнуление переменных, требуемых для вывода на экран битового изображения, используя при этом оператор цикла REPEAT…UNTIL и цикл FOR. k:=0; kk:=0; i:=0; n:=0; Цикла REPEAT…UNTIL repeat Установка текущего шрифта, стиля и размера текста settextstyle(10,0,5); Установка текущего цвета шрифта setcolor(i+1); Вывод текста на экран outtextxy((getmaxx div 5),(getmaxy div 4),'"Sorge pro"'); Установка текущего шрифта, стиля, размера текста. settextstyle(5,0,5); setcolor(15); Вывод текста на экран outtextxy((getmaxx-200),(getmaxy-250),'present'); Установка текущего шрифта, стиля, размера текста. settextstyle(3,0,1); Вывод текста на экран outtextxy(40,(getmaxy-50),'http://sorgepro.agava.ru'); outtextxy(290,(getmaxy-50),'e-mail: office@sorgepro.agava.ru'); Установка текущего шрифта, стиля, размера текста. settextstyle(2,0,5); Вывод текста на экран outtextxy(getmaxx-150,getmaxy-20,'Press '); outtextxy(20,getmaxy-20,'(c)2000. All rights don''t reserved.'); Наращивание переменных для вывода на экран битового изображения и для смены текущего цвета k:=k+5;i:=i+1; Вывод битового образа на экран putimage(k,10,saucer^,xorput); Задержка программы delay(50); Наращивание переменной для вывода на экран битового изображения kk:=kk+5; Вывод битового образа на экран putimage(kk,10,saucer^,xorput); Если битовое изображение достигло заданных границ экрана, то идет обнуление координат вывода этого изображения на экран if k>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); сircle(322,250,i); delay(10); end;
{----------end_krugi---------} Закрытие граф. режима closegraph; Завершение составного оператора begin…end end; Завершение процедуры вывода заставки end;
Процедура вывода сообщения об ошибке – error: begin Обнуление счетчика i:=0; Цикл вывода сообщения об ошибке, пока i не равно 5 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; Процедура выхода из программы – exitt: Очитстка экрана 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===========================} Идет выполнение процедуры Zast: при нажатие какой-либо другой клавиши – устанавливается связь с файлом assign (f,’'путь к файлу ’)
Установка стандартного текстового режима textmode(Co80); Печать главного меню, используя процедуру menu Установка метки menu2: Если l=1, то выполняется печать таблицы if l=1 then begin Печать таблицы с помощью процедуры view, где w=27; Вывод сообщения для пользователя после вывода таблицы textcolor(15); gotoxy(7, ww+1); writeln('Для выхода нажмите или -возврат в главное меню. '); Считывание нажатия клавиши с клавиатуры c:=readkey; Установка стандартного текстового режима textmode(Co80); Если нажата клавиша происходит возврат в главное меню: выполнение процедуры menu и переход к метки menu2 if c=#27 then begin menu; goto menu2 end Иначе выполняется процедура выхода – exitt else begin exitt; Завершение составного оператора begin…end end Если l не равно 1, а равно 2 то выполняется алгоритм создания записей заново else if l=2 then begin Очистка экрана clrscr; Установка цвета фона и символов и вывод на экран сообщения textbackground(14);textcolor(15); writeln('Вы действительно хотите создать новые записи?'); writeln('!!!ПРЕДЫДУЩИЕ ЗАПИСИ БУДУТ УТЕРЯНЫ!!!'); Установка цвета фона и символов и вывод на экран сообщения textbackground(0); gotoxy(1,4); writeln('Для продолжения нажмите или -возврат в главное меню.'); Считывание клавиши с клавиатуры c:=readkey; Если нажата клавиша , то выполняется возврат к главному меню и переход к метки menu2 if c=#27 then begin menu; goto menu2 end Иначе идет ввод переменной q – количество создаваемых записей else begin writeln('Введите количество записей:'); read(q); Очистка экрана clrscr; Подготовка файла к записи rewrite(f); Цикл ввода новых записей. Выход из цикла осуществиться в том случае, когда a.n будет равно q 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.'); Задержка программы. Возврат в главное меню и переход к метки menu2 delay(1000); menu; goto menu2; Завершение составного оператора begin…end end; Завершение составного оператора begin…end end Если переменная l не равна 1 и 2, а равна 3, то выполняется алгоритм добавления записи else if l=3 then begin Очистка экрана, установка цвета фона и символов и вывод сообщения clrscr; textbackground(0); textcolor(15); writeln('Продолжить? (y/n)'); Считывание клавиши с клавиатуры c:=readkey; Если нажата любая клавиша, кроме , то выполняется возврат к главному меню и переход к метки menu2 if c#121 then begin menu;goto menu2; end Иначе выполняется алгоритм добавления новой записи else begin очистка экрана clrscr; Ввод количества добовляемых записей -mm writeln('Введите количество добовляемых записей:'); read(mm); очистка экрана clrscr; Подготовка файла к чтению, определения конца файла и установка указателя в конец файла reset(f); n:=filesize(f); seek(f,n); установка номера добовляемой записи pp:=n+1; Цикл добавления записи. Завершится тогда, когда номер последней добавляемой записи qq будет равен mm 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); Возврат в главное меню и переход к метки menu2 menu; goto menu2; Завершение составного оператора begin…end end; Завершение составного оператора begin…end end else Если l не равно 1, не 2 и не 3, а равно 4, то выполняется алгоритм удаления записей if l=4 then begin Очистка экрана clrscr; Установка текстового экрана для вывода таблицы с помощью процедуры view window(1,1,68,22); view(17); Установка текстового экрана для управления удаления записей window(64,1,80,22); Установка цвета символов и вывод сообщения textcolor(15); writeln('Продолжить? (y/n)'); Считывание клавиши с клавиатуры c:=readkey; Если нажата любая клавиша, кроме , то выполняется возврат к стандартному текстовому режиму, к главному меню и переход к метки menu2 if c#121 then begin textmode(Co80); menu; goto menu2; end Иначе происходит ввод удаляемой записи - nn else begin write('Введи номер:'); readln(nn); Если вводимого номера записи не существует – выполняется процедура вывода сообщения об ошибке – error, и переход к метки menu2 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; Если нажата клавиши , то происходит возврат к главному меню и переход к метки menu2 if c=#27 then begin menu; goto menu2; end иначе устанавливается стандартный текстовой режим, l присваивается 4 и осуществляется переход к метке menu2, т.е. происходит опять алгоритм удаления записи else begin textmode(Co80); l:=4; goto menu2; end; Завершение составных операторов begin…end end; end
Страницы: 1, 2, 3, 4
