Question

Составьте программу которая имитирует движение летающей тарелки из левого нижнего в правый верхний угол.
в паскале​

Answer 1

Program tarelka;

Uses Crt, GraphABC;

Var n,x,y,w,h:integer;

Begin

SetWindowSize(800,600);

SetWindowCaption('Летающая тарелка');

n:=LoadPicture('tarelka.jpg');

SetPictureTransparent(n,true);

x:=0; y:=400;

w:=200; h:=150;

while x<=600 do

begin

ClearWindow;

DrawPicture(n,x,y,w,h);

sleep(20);

x:=x+6;

y:=y-4;

w:=w-1;

h:=h-1;

end;

End.