• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • 🚨 24 часа до повышения цены на курс «Пентест Active Directory: от теории к практике» от Академии Кодебай

    🔍 Изучите реальные техники атак на инфраструктуру Active Directory: от первоначального доступа до полной компрометации.
    🛠️ Освойте инструменты, такие как BloodHound, Mimikatz, CrackMapExec и другие.
    🧪 Пройдите практические лабораторные работы, имитирующие реальные сценарии атак.
    🧠 Получите знания, которые помогут вам стать востребованным специалистом в области информационной безопасности.

    Последний день записи в текущий поток по старой цене Подробнее о курсе ...

Программа Самолет (pascal)

  • Автор темы Автор темы Guest
  • Дата начала Дата начала
G

Guest

Здраствуйте!
Нужно дополнить программу Самолет, чтобы этот самолет летал по экрану

Код:
Program p1;
uses GraphABC;
begin
Line(350,50,400,50);
Line(350,50,300,110);
Line(400,50,330,150);
Line(330,150,200,150);
Line(300,110,200,110);
Line(200,110,110,110);
Line(200,150,110,150);
Line(110,110,90,130);
Line(110,150,90,130);
Line(200,130,230,200);
Line(230,200,270,200);
Line(270,200,240,130);

end.
 
Здраствуйте!
Нужно дополнить программу Самолет, чтобы этот самолет летал по экрану

Код:
Program p1;
uses GraphABC;
begin
Line(350,50,400,50);
Line(350,50,300,110);
Line(400,50,330,150);
Line(330,150,200,150);
Line(300,110,200,110);
Line(200,110,110,110);
Line(200,150,110,150);
Line(110,110,90,130);
Line(110,150,90,130);
Line(200,130,230,200);
Line(230,200,270,200);
Line(270,200,240,130);

end.

Паскаля под рукой нет, поэтому ваш чудный самолет не увидел.
код будет примерно такой:
Код:
For i:=1 to 100 do
begin
Rectangle(0,0,600,800);//затираем фоновым прямоугольником экран

Line(350+i,50,400+i,50);//движение по оси x
.....//остальные line со сдвигом

Delay(50)//задержка чтобы увидеть изменения
end;

для красивого, ровного движения, или другой траектории подбираете параметры сами..
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

Курс AD