Turbo Pascal
kramer1
soluzione sistema lineare due equazioni
program sistemi;
uses crt;
var a1,b1,c1,a2,b2,c2,x,y,dx,dy,ds:real;
h:integer;
procedure scelta;
begin
clrscr;
writeln('scrivi i coefficienti delle due due equazioni');
writeln('a1x + b1y + c1 =0');
writeln('a2x + b2y + c2=0');
write('a1=');readln(a1);
write('b1=');readln(b1);
write('c1=');readln(c1);
write('a2=');readln(a2);
write('b2=');readln(b2);
write('c2=');readln(c2);
ds:=a1*b2-a2*b1;
dx:=c1*b2-c2*b1;
dy:=a1*c2-a2*c1;
if ds<>0 then
begin
x:=dx/ds;
y:=dy/ds;
writeln('il sistema è determinato e ammette le soluzioni');
writeln('x=',x:8:2);
writeln('y=',y:8:2);
end;
if (ds=0) and (dx<>0) and (dy<>0) then writeln('sistema impossibile');
if (ds=0) and (dx=0) and (dy=0) then writeln('sistema indeterminato');
write('per altro sistema premi 1 ,per finire premi 2 ');Readln(h);
if h=1 then scelta;
end;
begin
clrscr;scelta;clrscr;end.
per provare inizia con i seguenti valori
1,2,3...2,4,6....indeterminato
1,2,3...2,4,7....impossibile
1,2,3...5,9,7....determinato ..-13..8
-------------------------------------------
a1x + b1y = c1
a2x + b2y = c2
-----------------
a1 =1
b1 =2
c1 =3
-------------------
a2 =5
b2 =3
c2 =7
-------------------
-------------------
determinante sistema ds =-7.000
determinante incognita dx =-5.000
determinante incognita dy =-8.000
X=0.714
Y=1.143