|
ciao...ho un altro prob cn questo problema...
(questo è un prog su un sistema di 2 equazioni)..
voglio sapere xke quando m viene indeterminato o impossibile al posto d dirmelo esce direttamente a causa dell'errore division by zero.... ecco il prog..(delta sta per determinante)---
--------
program sistema;
uses newdelay,crt;
var a,b,c,d,e,f,x,y,delta,deltax,deltay,u:real;
begin
repeat
clrscr;
textcolor(7);
writeln ('questo programma risolve sistemi di tipo ax+by=c');
textcolor(9);
write ('a= '); readln (a);
write ('b= '); readln (b);
write ('c= '); readln (c);
write ('d= '); readln (d);
write ('e= '); readln (e);
write ('e= '); readln (f);
delta:= (a*e)-(b*d);
deltax:=(c*e)-(b*f);
deltay:=(a*f)-(c*d);
x:=deltax/delta;
y:=deltay/delta;
textcolor (8);
writeln ('');
writeln ('il valore della x è',x);
writeln ('');
writeln ('il valore della y è',y);
writeln ('');
if delta<>0
then
writeln ('il sistema è determinato')
else
begin
writeln ('');
writeln ('il sistema è indeterminato o impossibile);readln;
end;
writeln ('');textcolor (23);
writeln ('scrivi 0 per uscire o un altro numero per eseguire un altro sistema');
readln (u); until u=0
end.
--------------
spero ke qualcuno riesca a comprendere il problema e di essere stato chiaro....grazie a chiunque m dia una mano...STO IMPAZZENDO!!!!!!!
| 
| 
e sempre a disposizione