Информатика. Часть 1. Мойзес О.Е - 104 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

104
WhereX - возвращает X-координату текущей позиции курсора.
WhereY - возвращает Y-координату текущей позиции курсора.
Пример 1. Массив X(N) напечатать на экране в виде столбцов по
М элементов в каждом. Выделить элементы, превышающие по
значению величину К.
program P1; uses Crt;
var x:array[1..20]of real;
i,N,M:integer; K:real;
Begin
writeln(' N M K');readln(N,M,K);
for i:=1 to N do
begin write('X[',i,']=');readln(x[i]) end;
ClrScr;
for i:=1 to N do
begin
if x[i]>K then
begin
TextColor(14);
TextBackGround(4);
end
else
begin
TextColor(15);
TextBackGround(1);
end;
GotoXY(10
∗((i-1) div M)+1,(i-1) mod M+1);
write(i:2,' ',x[i]:6:4)
end;
writeln
End.
Работа с клавиатурой
Для работы с клавиатурой в Crt предусмотрены следующие
функции:
KeyPressed:boolean - возвращает значение True, если на
клавиатуре была нажата какая-либо клавиша. В противном случае эта
функция возвращает значение False.
ReadKey:char - считывает символ с клавиатуры. Считываемый
символ на экране не отображается.
Работа со звуком

Страницы