Program vykreslí náhodne 3 odbĺžniky

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

Program vykreslí náhodne 3 odbĺžniky.
{ OBDLZNIKY.PAS                               Copyright (c) ghostix }
{ Program vykresli nahodne 3 odblzniky.                             }
{                                                                   }
{ Author: Ghostix                                                   }
{ Date  : 06.12.2007                           http://www.trsek.com }
 
program obdlzniky;
uses graph;
var i,r,s,j,x,y,gd,gm:integer;
 
procedure grafika;
  begin
  gd:=detect;
  initgraph(gd,gm,'');
  end;
 
procedure obdlznik;
  begin
  randomize;
  for i:=1 to 3 do
  begin
    x:=random(500);
    y:=random(500);
    rectangle(random(x),random(y),random(x),random(y));
  end;
  end;
 
begin
grafika;
cleardevice;
obdlznik;
readln;
closegraph;
end.