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