Animované autíčko v textovom režime

Kategorija: Zadaňa zos Pascalu

Program: Animauto.pas
Subor ubuntu: Animauto

program anim_auto;
uses crt,dos;
var i:integer;
 
begin
  for i:=1 to 50 do begin
   gotoxy(i,1);write('          ************* ');
   gotoxy(i,2);write('         *************** ');
   gotoxy(i,3);write('         ***************** ');
   gotoxy(i,4);write('   ****************************** ');
   gotoxy(i,5);write('  ********************************* ');
   gotoxy(i,6);write(' *********************************** ');
   gotoxy(i,7);write('       *****            ***** ');
   gotoxy(i,8);write('        ***              *** ');
    delay(100);
  end;
  readln;
end.