Pascal - Konsolowe

Wygaszacz z gwiazdek

Wygaszacz z gwiazdek
Pascal - Konsolowe

Program: tworzący wygaszacz z gwiazdek.

Program bazuje głównie na wartościach losowych.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program wygaszacz;
uses crt;
var x,y,c:byte;
begin
clrscr;
randomize;
repeat
      c:=random(15);
      textcolor(c);
      x:=random(80)+1;
      if x=80 then
      y:=random(24)+1
else
    y:=random(25)+1;
    gotoxy(x,y);
    delay(5);
    write('*');
    until keypressed;
readln;
end.