Metka: GotoXY(i, j); Write('Д'); delay(10)

until keypressed;

END.

Практическое задание N 1. 37

Задать движение "десантника" только вдоль осей X и Y, либо по диагоналям.

Работа с символьными переменными

Следующие операторы позволяют выводить на экран символы, набираемые на клавиатуре, до нажатия клавиши Enter (код #13):

Repeat c:= readKey; Write(c) until c=#13;

здесь "с" - переменная типа Char, #13 - код клавиши Enter.

Часто используются клавиши с кодами: #32 - SpaceBar, #27 - Esc.

Для запоминания вводимых символов можно использовать операторы:

i:=0; repeat i:=i+1; ch[i]:=readKey; write(ch[i]) until ch[i]=#13;

Здесь ch[i] - элемент массива ch типа Char.