Поиск по сайту
Рефераты / Кибернетика /Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ реферат на тему: Обработка экономической информации средствами языка PascalС помощью подпрограмм модуля можно перемещать курсор по экрану дисплея, менять цвет выводимых символов и фона, создавать окна на экране, управлять звуком, работать с клавиатурой.
Функции управления клавиатурой:
KeyPressed: Boolean; - возвращает True, если в текущий момент на клавиатуре была нажата клавиша, иначе False. Не приостанавливает выполнение программы. Используется при организации работы циклов.
ReadKey: Char; - читает и возвращает в программу символ с клавиатуры (без отображения на экране). Приостанавливает исполнение программы до нажатия на любую клавишу символа. Используется в операторах IF для проверки символов.
WhereX: Byte; - возвращает горизонтальную координату текущей позиции курсора относительно окна.
WhereY: Byte; - возвращает вертикальную координату текущей позиции курсора относительно окна.
Процедуры управления дисплеем
ClrEol; - удаляет все символы справа от курсора до конца строки без перемещения курсора.
ClrScr; - очищает экран (окно на экране) и помещает курсор в верхний левый угол.
Delay(D: word); - приостанавливает работу программы на D миллисекунд.
GotoXY(X,Y: byte); - перемещает курсор в нужное место экрана (окна). Левый верхний угол экрана (окна) имеет координаты (1,1). Отсчет координат идет слева направо и сверху вниз. Количество символов в строке и самих строк зависит от типа дисплея (обычно 25 строк и 80 символов).
InsLine; - вставляет пустую строку в позицию курсора.
HighVideo; - устанавливает высокую яркость символов.
LowVideo; - устанавливает низкую яркость символов.
NormVideo; - устанавливает нормальную яркость символов.
Window(X1,Y1,X2,Y2:byte); - определяет размеры окна на экране для вывода текста. X1,Y1 - координаты левого верхнего угла, X2,Y2 - правого нижнего угла.
TextBackGround(Color: byte); - устанавливает цвет фона экрана (окна) от 0 (черный) до 15 (белый).
TextColor(Color: byte); - устанавливает цвет символа.
TextMode(Mode: word); - устанавливает нужный текстовый режим:0,1,2...
Управление звуковым генератором
Sound(F: word); - включает звук генератора, F - частота звука в герцах.
Delay(T: word); - устанавливает продолжительность звучания в миллисекундах.
NoSound; - выключает звук генератора.
5.3 Входные и выходные данные
Входными данными являются записи: номер продукции (n), переходящий остаток продукции на начало года (e1), приход продукции (e2), расход (e3), цена за 1 шт (e4). При завершении ввода данных и выборе соответствующего пункта меню программы, программа выдаст пользователю итоговые данные в виде таблицы.
Выходными данными, т.е. результатом программы является таблица которая содержит исходные записи и следующие переменные:
· Остаток на конец года (st);
· Итого (itog) ;
Файл с текстом программы (kurs.pas) имеет размер, равный 12,5 Kb;
Исполняемый файл (kurs.exe) имеет размер 33,3 Kb;
5.4 Описание переменных 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('Для просмотра используйте клавишу 1 2 3 4 5 6 7 ... последняя Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ Внимание! Студенческий отдых и мегатусовка после сессии!
Рефераты и/или содержимое рефератов предназначено исключительно для ознакомления, без целей коммерческого использования. Все права в отношении рефератов и/или содержимого рефератов принадлежат их законным правообладателям. Любое их использование возможно лишь с согласия законных правообладателей. Администрация сайта не несет ответственности за возможный вред и/или убытки, возникшие или полученные в связи с использованием рефератов и/или содержимого рефератов.
|
Обратная связь. |