{Bài 9: Viết chưong trình giải phương trình tuyến tính }
Program giai_he_hai_an;
Uses crt;
Var a,b,c,d,m,n:real;
dx,dy,dd:real;
begin
clrscr;
Writeln(‘giai he hai an:’);
Write('Nhap a=');readln(a);
Write('Nhap b=');readln(b);
Write('Nhap c=');readln(c);
Write('Nhap m=');readln(m);
Write('Nhap n=');readln(n);
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,’va y=’,dy/dd);
End;
Readln;
End.