48621 (Разработка программ в среде программирования Turbo Pascal 7.0), страница 4

2016-07-30СтудИзба

Описание файла

Документ из архива "Разработка программ в среде программирования 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 ...

Свежие статьи
Популярно сейчас
Зачем заказывать выполнение своего задания, если оно уже было выполнено много много раз? Его можно просто купить или даже скачать бесплатно на СтудИзбе. Найдите нужный учебный материал у нас!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4144
Авторов
на СтудИзбе
666
Средний доход
с одного платного файла
Обучение Подробнее