esercitazione con turbo pascal
program max4g;
uses crt,graph;
(* ricerca massino,minimo funzione *)
(* tabella valori funzione e derivata 1,2,3 *)
(* grafico funzione e assi cartesiani *)
program max4g; uses crt,graph; (* ricerca massino,minimo funzione *) (* tabella valori funzione e derivata 1,2,3 *) (* grafico funzione e assi cartesiani *) var x,sc,tp:integer; grafici:string; procedure grafica; begin sc:=0; tp:=0; grafici:=('c:\turbo5'); initgraph(sc,tp,grafici); end; function y(x:integer):real; begin y:=x*x*x; end; function d1(x:integer):real; begin d1:=3*x*x; end; function d2(x:integer):real; begin d2:=6*x; end; function d3(x:integer):real; begin d3:=6; end; procedure testo; begin writeln('si calcola derivata prima e seconda e terza 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('non massimo,minimo se d1(x)=0 e d2(x)=0 e d3(x)>0'); writeln; writeln('premi enter');readln;clrscr; writeln('funzione = x^3 '); writeln('x':6,'d1(x)':12,'d2(x)':12,'ddd3(x)':12,'y(x)':12); writeln; for x:=-3 to 3 do begin writeln(x:6,d1(x):12:3,d2(x):12:3,d3(x):12:3,y(x):12:3); end; writeln; writeln('flesso per x=0....d1(x)=0...d2(x)=0...d3(x)=6..y(x)=0 '); writeln;writeln('premi enter'); readln; end; procedure assi; var b,c:integer; begin c:=0; line(0,200,200,200); line(60,10,60,300); for b:=0 to 12 do begin line(c,198,c,202); c:=c+10; end; end; procedure funzione; var a,h:integer; begin a:=0;h:=1; for x:=-6 to 6 do begin putpixel(a,200-round(y(x))*h,3); a:=a+10; end; outtextxy(150,250,'flesso per x=0'); outtextxy(150,300,'premi enter'); readln; end; begin clrscr; testo; grafica; assi; funzione; end.