Алгоритмы и программы. Афанасьева Т. В - 185 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

185
for i:=1 to 5 do
for j:=1 to 5 do
if (i+j>6) and (a[i,j] mod 2=0) then k:=k+a[i,j];
writeln;
window(50,19,65,20);
clrscr;
write('Результат ');
writeln(k);
READLN;
end.
8) GoToXY(x, y: byte) – позиционирует курсор.
Курсор перемещается в ту позицию внутри текущего окна, которая
задана координатами x и y (x задает столбец, y задает строку). Верхний
левый угол задается координатами (1,1)
пример: Window(1,10,60,20);
GoToXY(1,1);
Это приведет к тому, что курсор уйдет в точку с абсолютными
координатами (1,10).
9) WhereX и WhereY возвращают для текущей позиции курсора
относительно
текущего окна координаты X и Y соответственно.
Тип результата Byte.
10) Delay(мсек : word) – выполняет задержку на заданное число
миллисекунд.
Параметр «мсек» задает число миллисекунд интервала ожидания.
Но данная процедура является приблизительной, поэтому период
задержки не будет точно равняться заданному числу миллисекунд.
11) READKey – считывает символ с клавиатуры.
Считываемый символ не отображается на экране. Если перед
обращением к функции READKey функция KeyPressed имела значение
TRUE, то символ считывается немедленно, в противном случае функция
ожидает нажатия клавиши. При нажатии спецальных клавиш функция
READKey возвращает сначала нулевой символ (0), а затем расширенный
скен–код клавиши.
Программа вывода ASCII кода алфавитно цифровых клавиш
клавиатуры
uses Crt;
var
C: Char;

Страницы