[tin] Viết chương trình.

[joe_sad]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình giải hệ:

ax+by=c
dx + ey = f

Biết a,b,c,d,e,f được nhập từ bàn phím.

 

[lamdetien36]

var
    a, b, c, d, e, f, dd, dx, dy: integer;
begin
    writeln('Nhap He So Phuong Trinh Thu Nhat: '); readln(a, b, c);
    writeln('Nhap He So Phuong Trinh Thu Hai : '); readln(d, e, f);
    dd := a * e - b * d;
    dx := c * e - b * f;
    dy := a * f - c * d;
    if dd <> 0 then
    begin
        writeln('X = ', dx / dd : 0 : 6);
        writeln('Y = ', dy / dd : 0 : 6);
    end
    else
    begin
        if (dx <> 0) or (dy <> 0) then
            writeln('He Vo Nghiem')
        else
            writeln('He Vo So Nghiem');
    end;
    readln
end.