Question

Turbo pascal

Napisz krótki program, w którym po uruchomieniu napis "Pascal" będzie latał/jeździł po brzegach okna[np jak mozna zrobic zeby lecial z lewej strony do prawej tak zeby teraz latał dookoła].

Daję naj za dobre rozwiązanie[sprawdzę je u siebie] :)

Answer 1

Program napis;
uses
Crt;
var x,y:Integer;
begin
x:=1;
y:=1;
repeat
if x=1 then
begin
repeat
delay(100);
x:=x+1;
gotoxy(x,y);
write(' PASCAL');
until x=65;
end;
if x=65 then
begin
clrscr;
repeat
delay(100);
y:=y+1;
gotoxy(x,y);
write('                                                                                   ');
write(' PASCAL');
until y=25;
end;
if y=25 then
begin
clrscr;
repeat
delay(100);
x:=x-1;
gotoxy(x,y);
write(' PASCAL ');
until x=1;
end;
if x=1 then
begin
repeat
delay(100);
y:=y-1;
gotoxy(x,y);
write(' PASCAL');
write('                                                                                   ');
until y=1;
end;
until keypressed;
end.