Window(X1,Y1,X2,Y2)

Полюсов Психология 90

Вестов Программирование 66

Зюйдов Корейский язык 39

Северов Японский язык 91

Западов Психология 56

Востоков Психология 45

• Выберите "умных" студентов, т. е. тех, кто имеет оценку выше 88, и запишите сведения о них в файл Best.dat. Пусть программа помогает инспектору формировать на основе этого файла группы углубленного обучения. По названию курса она должна выдавать список «умных» студентов, зачисленных в такую группу.

10 Модуль CRT. Процедуры и функции модуля CRT

Процедура Delay

Delay(Ms:Word);

Задает задержку выполнения программы в милисекундах.

Процедура GotoXY

GotoXY(X,Y:Byte);

Устанавливает курсор в позицию экрана с координатами X,Y. Если значение какого-либо из параметров окажется некорректным, то вызов процедуры GotoXY будет проигнорирован.

Процедура TextBackground

TextBackground(Color:Byte);

Задает цвет фона.

Процедура TextColor

TextColor(Color:Byte);

Задает цвет символов.

Функции опроса клавиатуры (KeyPressed, ReadKey)

KeyPressed:BOOLEAN

Возвращает логическое значение TRUE, если в буфере клавиатуры содержится хотя бы один символ, т.е. была нажата клавиша, и FALSE, если буфер пуст, т.е. нажатия клавиши не произошло. Наиболее часто функция KeyPressed применяется в конструкциях типа: REPEAT UNTIL KeyPressed;

ReadKey: CHAR;

Функция считывает из буфера и возвращает в программу последний введенный символ. Если буфер пуст, то функция приостанавливает выполнение программы и ожидает нажатия клавиши. Символ, соответствующий нажатой клавише, не отобразится на экране. Это называется «ввод без эха на экране».

Процедура Window

Отображает на экране окно в текстовом режиме, определяемое как текущее. X1,Y1,X2,Y2- координаты окна и должны удовлетворять условиям:

1<= X1<=X2<=Xmax (Xmax=80)

1<= Y1<=Y2<=Ymax (Ymax=25)

Если эти условия не выполняются, то окно создано не будет. После выполнения процедуры Window все операции с экраном относятся к части, которая определена координатами X1,Y1,X2,Y2. при этом перемещение курсора происходит только в пределах текущего окна.

Пример:

USES Crt;

Var

X,Y,I,J,T:byte;

Ch:Char;

BEGIN

Randomize; {Инициализация генератора случайных чисел}

I:=0;

J:=15;

Repeat

TextBackground(1);

ClrScr;

X:=random(80); {Определение случайных координат X}

Y:=random(25); {и Y}

Window(X,Y,X+Random(20),Y+Random(20));

TextBackground(I); {Определение цвета экрана}

TextColor(J); {Определение цвета символов}

Write('Окно');

Inc(I); {Приращение цвета экрана}

Inc(J); {Приращение цвета символа}

IF J=16 Then J:=0;

IF I=16 Then I:=0;

Ch:=ReadKey;

Until Ch=#27; {#27 –ASCII-код клавиши Esc}

END.

11 Модуль Graph