{ HVEZDA.PAS Copyright (c) ghostix } { Program vykresli hviezdu. Uzivatel si moze vybrat pocet lucou. } { } { Author: Ghostix } { Date : 11.12.2007 http://www.trsek.com } program hvezdica; uses graph; var gd,gm,i:integer; pocet:integer; procedure grafika; begin gd:=detect; initgraph(gd,gm,''); end; procedure nacitanie; begin writeln('Zadajte pocet lucov (najmenej 4)'); readln(pocet); end; procedure hvz; begin randomize; pocet:=pocet div 4; for i:=0 to pocet do begin setcolor(random(20)); line((getmaxx div pocet)*i,0,getmaxx div 2,getmaxy div 2); end; for i:=0 to pocet do begin setcolor(random(20)); line((getmaxx div pocet)*i,getmaxy,getmaxx div 2,getmaxy div 2); end; for i:=0 to pocet do begin setcolor(random(20)); line(0,(getmaxy div pocet)*i,getmaxx div 2,getmaxy div 2); end; for i:=0 to pocet do begin setcolor(random(20)); line(getmaxx,(getmaxy div pocet)*i,getmaxx div 2,getmaxy div 2); end; end; begin grafika; nacitanie; cleardevice; hvz; readln; closegraph; end.