Dze je subor www.TrSek.com/zadania/nahodny_graf.pas{ NAHODNY_GRAF.PAS Copyright (c) Pheo }
{ Vygenerovaných 30 èísel pokladá program za funkèné hodnoty. }
{ Následne zobrazí graf funkcie. }
{ }
{ Datum:26.04.2005 http://www.trsek.com }
program nahodny_graf;
uses Crt,Graph;
var a,b,i:integer;
gd,gm:integer;
begin
ClrScr;
InitGraph(gd,gm,'');
Outtext('NAHODNA FUNKCIA');
randomize;
a:=10;
b:=random(300);
moveto(a,b);
for i:=1 to 30 do
begin
a:=10*i;
b:=random(480);
lineto(a,b);
end;
Repeat until keypressed;
end.