Funzioni matematiche

Materie:	Appunti
Categoria:	Informatica
Voto:	1.5 (2)
Download:	89
Data:	12.01.2001
Numero di pagine:	1
Formato di file:	.doc (Microsoft Word)

Program visualizza_funzioni_matematiche; uses crt,graph;
var incrx,scaly,x,fx,fy,delta,vx,vy:real; sc,md,px,py,maxx,maxy,minx,miny,scelta,a,b,c:integer;
Procedure raz_fratte;
var raz:array[1..2,1..3]of integer;
dom1,dom2:real;
begin
clrscr;
writeln('La funzione К F(x)/G(x)');
writeln('Inserimento valori di F(x)');
write('Inserisci il valore di A : ');
readln(raz[1,1]);
write('Inserisci il valore di B : ');
readln(raz[1,2]);
write('Inserisci il valore di C : ');
readln(raz[1,3]);
writeln('Inserimento valori di G(x)');
write('Inserisci il valore di A : ');
readln(raz[2,1]);
write('Inserisci il valore di B : ');
readln(raz[2,2]);
write('Inserisci il valore di C : ');
readln(raz[2,3]);
writeln('Adesso ti viene la seguente equazione : ');
writeln(' ',raz[1,1],' X^2 + ',raz[1,2],' X + ',raz[1,3]);
writeln(' Y = ----------------');
writeln(' ',raz[2,1],' X^2 + ',raz[2,2],' X + ',raz[2,3]);
writeln;
if (raz[2,1]0) and (raz[2,2]0) then
begin
dom1:=(-raz[2,2]+sqrt(sqr(raz[2,2])-4*(raz[2,1]*raz[2,3])))/(2*raz[2,1]);
dom2:=(-raz[2,2]-sqrt(sqr(raz[2,2])-4*(raz[2,1]*raz[2,3])))/(2*raz[2,1]);
writeln('Il dominio di questa equazione К tutto R tranne i valori ',dom1:5:2,' e ',dom2:5:2); end;
if raz[2,1]=0 then
begin
dom1:=-raz[2,3]/raz[2,2];
writeln('Il dominio di questa equazione К tutto R tranne il valore ',dom1:5:2);
end;
if raz[2,2]=0 then
begin
if raz[2,3]