derivate

esci altro.htm

program max1;
uses crt;
(* ricerca massino,minimo funzione *)
(* tabella valori funzione e derivata prima *)
var x:integer;
function y(x:integer):real;
begin
y:=x*x;
end;
function d1(x:integer):real;
begin
d1:=2*x;
end;
function d2(x:integer):real;
begin
d2:=2;
end;

procedure testo;
begin
writeln('si calcola derivata prima e seconda della funzione');
writeln('in punto x interno a intervallo esistenza funzione');
writeln('massimo relativo f(x) se d1(x)=0 e d2(x)<0');
writeln('minimo relativo f(x) se d1(x)=0 e d2(x)>0');
writeln;
writeln('premi enter');readln;
clrscr;
end;

begin
clrscr;
testo;
writeln('funzione = x^2 ');
writeln('x':6,'d1(x)':12,'d2(x)':12,'y(x)':12);
writeln;
for x:=-6 to 6 do
begin
writeln(x:6,d1(x):12:3,d2(x):12:3,y(x):12:3);
end;
writeln;
writeln('minimo per x=0....d1(x)=0...d2(x)=2...y(x)=0 ');
writeln;writeln('premi enter');
readln;
end.