Напиши лёгкую и интересную программу на Паскаль

Question

Напиши лёгкую и интересную программу на Паскаль

ssrt Ученик (122), открыт 4 дня назад

где какой-то объект(рисунок незамысловатый) перемещается слева на право наподобие программы снизу
USES GRAPHABC;
VAR
i:integer;
begin
SetWindowSize(800,500);
LockDrawing;
for
i:=0 to 800 do
begin
SetBrushColor(RGB(255,0,0));
circle(i,250,50);
sleep(5);
end;
end.

можно использовать координаты типо таких:
(line (x-2*d,y,x,y) ;
line (x-d,y,x-2*d,y-d) ; )

Answer 1

Код:

 USES GRAPHABC; 
 
// Процедура для отрисовки дома 
PROCEDURE DrawHouse(x, y: INTEGER); 
BEGIN 
  // Основа дома (прямоугольник) 
  Line(x - 50, y + 25, x + 50, y + 25); // Дно дома 
  Line(x - 50, y + 25, x - 50, y - 25); // Левая сторона 
  Line(x + 50, y + 25, x + 50, y - 25); // Правая сторона 
  Line(x - 50, y - 25, x + 50, y - 25); // Кровля 
   
  // Кровля дома (треугольник) 
  Line(x - 60, y - 25, x, y - 40); 
  Line(x + 60, y - 25, x, y - 40); 
   
  // Дверь дома 
  SetBrushColor(RGB(139, 69, 19)); // Коричневый цвет для двери 
  Rectangle(x - 10, y + 25, x + 10, y + 5); 
END; 
 
VAR  
  i: INTEGER; 
BEGIN  
  SetWindowSize(800, 500);  
  LockDrawing;  
   
  FOR i := -60 TO 740 DO // Начинаем рисовать домик за левой границей окна 
  BEGIN  
    ClearWindow; // Очищаем окно перед каждым кадром 
    DrawHouse(i, 350); // Рисуем домик с новой позицией 
    Sleep(10); // Задержка между кадрами для анимации 
  END; 
   
  UnlockDrawing;  
END.