Написать программу используя модуль 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.

Объяснение кода листинга программы

  1. Программа начинается с использования модуля crt, что позволяет использовать функции графического интерфейса пользователя из языка Pascal.
  2. Переменные x, y и n объявлены как целочисленные.
  3. Функция centerwindow используется для центрирования окна графического интерфейса пользователя.
  4. С помощью функции readln(n) пользователю предлагается ввести значение переменной n, которая будет использоваться для ограничения смещения.
  5. С помощью функции clrscr и hidecursor экран очищается и курсор скрывается.
  6. С помощью функции setwindowsize(750,300) устанавливается размер окна графического интерфейса пользователя.
  7. Переменные x и y вычисляются как половина ширины и высоты окна соответственно.
  8. Функция lockdrawing блокирует возможность рисования на экране, чтобы избежать перекрытия фигур.
  9. С помощью функции clearwindow экран очищается перед рисованием.
  10. С помощью функции rectangle(x-25,y-25,x+25,y+25) рисуется прямоугольник с координатами верхнего левого угла (x-25,y-25) и нижнего правого угла (x+25,y+25).
  11. С помощью функции delay(50) задерживается выполнение программы на 50 миллисекунд.
  12. Переменная x увеличивается на 5.
  13. С помощью функции redraw выполняется перерисовка окна графического интерфейса пользователя.
  14. Выполняется цикл repeat, пока значение переменной x не станет равным половине ширины окна плюс значение переменной n.
  15. Программа заканчивается.

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы