{ 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.