Рейтинг@Mail.ru
Rambler's Top100




Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ

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

скачать реферат

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 Очистка

скачать реферат
первая   ... 2 3 4 5 6 7 8

Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ

Внимание! Студенческий отдых и мегатусовка после сессии!


Обратная связь.

IsraLux отзывы Израиль отзывы