Inforamtyka - Turbo Pascal

[damianmks1]

Witam.
Mam problem z napisaniem programy który jest w ramach zaliczenia semestru. Treść zadania to:

Napisz program symulujący rozgwieżdżone niebo. W losowych punktach i chwilach zapalają się lub gasną gwiazdy. Symbolem gwiazdy ma być znak podany na początku klawiatury. Naciśnięcie spacji powoduje zakończenie programu.

Bardzo bym prosił o napisanie go albo pomoc w napisaniu. Jestem w stanie zapłacić SMS-ami.

 

[pateusz]

Zajme sie tym. A przynajmniej sprubuje.

 

[pateusz]

Mi działa.

Uses GRAPH,crt;
Var
ster,tryb,x,y,i:integer;
Begin
ster:=VGA;  tryb:=VGAHi;
initGraph(ster, tryb, 'C:\BP\BGI' );
randomize;
x:=800;
y:=600;
repeat
i:=0;
PutPixel(random(x),random(y),15);
repeat
i:=i+1;
PutPixel(random(x),random(y),0);
until i=1000;
delay(10);
until keypressed;
closegraph;
End.