giaiPTB1
Program GIAI_HE_HAI_AN;
Uses crt;
Var a,b,c,d,m,n:real;
dx,dy,dd:real;
Begin
Clrscr;
Write('a,b,c');readln(a,b,c);
dd:=a*d-b*c;
dx:=m*d-b*n;
dy:=a*n-c*m;
If dd=0 then If (dx=0) and (dy=0) then
Writeln('He vo so nghiem hoac vo nghiem') Else writeln('He vo nghiem')
else
Begin Write('He co nghiem :'); Writeln('x=',dx/dd:4:2,' va y=',dy/dd:4:2);
end;
readln;
end.
Bạn đang đọc truyện trên: AzTruyen.Top