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

Tags: #tiêua2