Umístnení souboru www.TrSek.com/cover/ghostix/hvezda.pas{ 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.