48621 (Разработка программ в среде программирования Turbo Pascal 7.0), страница 4
Описание файла
Документ из архива "Разработка программ в среде программирования Turbo Pascal 7.0", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48621"
Текст 4 страницы из документа "48621"
procedure ClrScr; | Очищает текущее окно,заполняя его цветом фона и помещает курсор в его левый ерхний угол с координатами(1,1). |
procedure Delay(Ms:word); | Задает задержку выполнения программы в Ms миллисекундах. |
procedure DelLine; | Удаляет строку , в которой находится курсор. |
procedure GotoXY(X,Y:Byte); | Перемещает курсор к элементу экрана с заданными координатами. X,Y-координаты элемента экрана (отсчитываются от левого верхнего угла текущего окна) |
procedure HighVideo; | Устанавливает высокую яркость символов (заменяет цвета 0-7 на 8-15) |
procedure InsLine; | Вставляет пустую строку на экране в месте расположения курсора и заполняет ее цветом фона. |
procedure LowVideo; | Устанавливает малую яркость символов ( заменяет цвета 8-15 на 0-7) |
procedure NormVideo; | Устанавливает первоначальную яркость символов,выводимых далее на экран. |
procedure NoSound; | Выключает источник звука. |
procedure Sound(Hz:word); | Запускает источник звука с частотой Hz герц. |
procedure TextBackGround(color:byte); | Задает цвет фона. Color-задаваемый цвет фона. |
procedure TextColor(Color)Byte; | Задает цвет символов.Color-задаваемый цвет символов. |
procedure TextMode( Mode:word); | Устанавливает текстовый режим,увеличивает текущее окно до целого экрана,устанавливает переменным DirectVideo и CheckSnow значение true.Помещает значение текущего режима в переменную LastMode,запускает процедуру NormVideo . Mode- требуемый текстовый режим. |
procedure Window (X1,Y1,X2,Y2:Byte); | Задает размеры окна на экране и помещает курсор в левый верхний угол окна с координатами (1,1) X1,Y1- координаты левого верхнего угла экрана X2,Y2- координаты правого нижнего угла экрана. Если хотя бы одна из координат недопустима, то процедура не выполняется. |
Function KeyPressed:boolean; | Анализирует нажатие клавиши клавиатуры ( за исключением вспомогательных клавиш- Shift,Alt,NumLock и т.п.). Результат - true ,если клавиша на клавиатуре нажата и false - в противном случае. |
function Readkey:char; | Считывает символ с клавиатуры и освобождает буфер клавиатуры от считанного символа. |
function WhereX:Byte; | Возвращает текущую координату X курсора |
function WhereY:byte: | Возвращает текущую координату Y курсора |
Пример программы, выполняющей вывод на экран дисплея меню следующего вида:
Выберите режим
Ввод и корректировка данных
Расчет свойств
Выбор состава
Графка
program menu;
uses Crt;label 1,2;
type
mas=array [1..4] of string[33];
const Stor :mas=(' Ввод и корректировка данных ', );
' Р а с ч е т с в о й с т в ',
' В ы б о р с о с т а в а ',
(' Г р а ф и к а ');
Выбор конкретного режима из этого меню осуществляется с помощью клавиш
При нажатии этих клавиш генерируется звук, продолжительностью 0.5 сек.
При этом строка,на которую падает выбор, выделяется цветом и фоном.
Выбор фиксируется с помощью клавиши ENTER
После этого выдается сообщение о выбранном режиме.
В программе используются возвращаемые коды клавиатуры:
клавиша | код |
| 0 75 |
| 0 77 |
| 0 72 |
| 0 80 |
enter | 13 |
Коды цветов
Имя | Значение | Назначение |
Black | 0 | Черный |
Blue | 1 | Синий |
Green | 2 | Зеленый |
Cyan | 3 | Голубой |
Red | 4 | Красный |
Magenta | 5 | Фиолетовый |
Brown | 6 | Коричневый |
LightGray | 7 | Светло-серый |
DarkGray | 8 | Темно-серый |
LightBlue | 9 | Светло-синий |
LightGreen | 10 | Светло-зеленый |
LightCyan | 11 | Светло-голубой |
LightRed | 12 | Розовый |
LightMagenta | 13 | Светло-фиолетовый |
Yellow | 14 | Желтый |
White | 15 | Белый |
Комментарий до конца строки комментарии, могущие быть вложенными | (*...*) или {...} |
Регулярное выражение идентификатора переменной | [A-Za-z_][A-Za-z0-9_]* |
Регулярное выражение идентификатора функции | [A-Za-z_][A-Za-z0-9_]* |
Присваивание значения переменной | := |
Объявление переменной | variable: type |
Группировка выражений | ( ... ) |
Блок | begin ... end |
Тождественное равенство | = |
Тождественное неравенство | <> |
Сравнение | = |
Определение функции | function f(p1: type1, p2: type2, ...): returntype |
Вызов функции | f(a, b, ...) |
Вызов функции без параметров | f |
Последовательность | ; |
Если - то | if condition then |
Если - то - иначе | if condition then ... else ... |
Бесконечный цикл | while true do ... |