<![CDATA[
program FUNZIONI_ANALITICHE(output);
uses
Graph;
var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
x,y,a,b,c,d,e,f,g:integer;
h,i:real;
(***************************************************************************)
function POT(base,esp:real):real;
(* per richiamare la funzione potenza l'utente del programma deve *)
(* scrivere : ' POT(A,B) ' dove 'A' e' la base e 'B' e' l'esponente *)
var
enz,pza:integer;
nza:real;
begin
nza:=1;
pza:=trunc(esp);
for enz:=1 to pza do
nza:=nza*base;
pot:=nza
end;
(***************************************************************************)
begin
grDriver := Detect;
InitGraph(grDriver,grMode,'');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
{ Do graphics }
c:=15;
b:=240;
for a:=1 to 640 do
putpixel(a,b,c);
a:=320;
for b:=1 to 480 do
putpixel(a,b,15);
for x:=-320 to 320 do
begin
y:=abs(x);
d:=-y+240;
i:=x/50;
y:=trunc(pot(i,3)*10);
f:=-y+240;
h:=x/50;
y:=trunc(sin(h)*100);
g:=-y+240;
e:=x+320;
putpixel(e,d,4);
putpixel(e,f,2);
putpixel(e,g,14)
end;
ReadLn;
CloseGraph;
end
else
WriteLn('Graphics error:',
GraphErrorMsg(ErrCode));
end.
]]>