0 Animasi pesawat dari program turbo pascal

 










PROGRAM ANIMASI;
USES winCRT;
VAR
X,Y:LONGINT;
BEGIN

  while X<=65 do

begin
GOTOXY(X+10,X+10); WRITELN('>###>>');
GOTOXY(1+X,2); WRITELN('   ===');
GOTOXY(1+X,3); WRITELN('     ===');
GOTOXY(1+X,4); WRITELN('       ===');
GOTOXY(1+X,5); WRITELN(' \-----\');
GOTOXY(1+X,6); WRITELN(' >===============|>');
GOTOXY(1+X,7); WRITELN(' /-----/');
GOTOXY(1+X,8); WRITELN('       ===');
GOTOXY(1+X,9); WRITELN('      ===');
GOTOXY(1+X,10); WRITELN('     ===');
GOTOXY(1+X,11); WRITELN('   ===');
 
    for Y:=1 to 500000 do
GOTOXY(X+10,X+10); WRITELN('      ');
GOTOXY(1+X,2); WRITELN('      ');
GOTOXY(1+X,3); WRITELN('        ');
GOTOXY(1+X,4); WRITELN('          ');
GOTOXY(1+X,5); WRITELN('        ');
GOTOXY(1+X,6); WRITELN('                   ');
GOTOXY(1+X,7); WRITELN('        ');
GOTOXY(1+X,8); WRITELN('          ');
GOTOXY(1+X,9); WRITELN('        ');
GOTOXY(1+X,10); WRITELN('      ');
GOTOXY(1+X,11); WRITELN('    ');

 X:=X+1;
END;