Написать программу используя модуль crt - Pascal
Формулировка задачи:
В центре экрана рисуем произвольный квадрат. В зависимости от введенного числа организовать постепенное перемещение на соответствующее количество позиций вправо.
Решение задачи: «Написать программу используя модуль crt»
textual
Листинг программы
uses graphABC,Crt; var x,y,n:integer; begin centerwindow; repeat write('Введите смещение от 1 до 350 n='); readln(n); until(n>0)and(n<=350); clrscr; hidecursor; setwindowsize(750,300); centerwindow; x:=windowwidth div 2; y:=windowheight div 2; lockdrawing; repeat clearwindow; rectangle(x-25,y-25,x+25,y+25); delay(50); x:=x+5; redraw; until x=windowwidth div 2+n; end.
Объяснение кода листинга программы
- Программа начинается с использования модуля crt, что позволяет использовать функции графического интерфейса пользователя из языка Pascal.
- Переменные
x
,y
иn
объявлены как целочисленные. - Функция
centerwindow
используется для центрирования окна графического интерфейса пользователя. - С помощью функции
readln(n)
пользователю предлагается ввести значение переменнойn
, которая будет использоваться для ограничения смещения. - С помощью функции
clrscr
иhidecursor
экран очищается и курсор скрывается. - С помощью функции
setwindowsize(750,300)
устанавливается размер окна графического интерфейса пользователя. - Переменные
x
иy
вычисляются как половина ширины и высоты окна соответственно. - Функция
lockdrawing
блокирует возможность рисования на экране, чтобы избежать перекрытия фигур. - С помощью функции
clearwindow
экран очищается перед рисованием. - С помощью функции
rectangle(x-25,y-25,x+25,y+25)
рисуется прямоугольник с координатами верхнего левого угла(x-25,y-25)
и нижнего правого угла(x+25,y+25)
. - С помощью функции
delay(50)
задерживается выполнение программы на 50 миллисекунд. - Переменная
x
увеличивается на 5. - С помощью функции
redraw
выполняется перерисовка окна графического интерфейса пользователя. - Выполняется цикл
repeat
, пока значение переменнойx
не станет равным половине ширины окна плюс значение переменнойn
. - Программа заканчивается.