English
English
Slovensky
Slovensky
Česky
Česky
Šarišsky
Šarišsky
Kategórie: Zadání z Pascalu

Program: Animauto.pas
Animované autíčko v textovom režime
Zobrazené: 3238x


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.
 
 

[Uložit] [Tlačit] [Poslat e-mailom]