Program vykreslí hviezdu

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: KMP (Programy mladých programátorů)
hvezda.pngAutor: ghostix
Program: Hvezda.pas
Soubor exe: Hvezda.exe
Potřebné: Egavga.bgi

Program vykreslí hviezdu. Užívateľ si môže vybrať počet lúčov.
{ 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.