hoang bai 1 - pascal

program giaihept;

uses crt;

var a,b,c,d,e,f,dx,dy, dt: real;

begin

clrscr;

write('nhap vao so a,b,c'); readln(a,b,c);

write('nhap vao so d,e,f'); readln(d,e,f);

dt:= a*e - d*b;

dx:=c*e- b*f;

dy:=a*f-c*d;

if dt= 0 then write('he phuong trinh da cho vo nghiem')

else

begin

writeln('x= ',dx/dt:7:2);

writeln('y= ', dy/dt:7:2);

end;

readln;

end.

Bạn đang đọc truyện trên: AzTruyen.Top

Tags: