Máy tính - phần mềm 2010-12-08 12:55:05

Turbo Pascal!

Đề: Giải phương trình bậc 1 3aha3

Mình giải là:

program Giai_PTB1;
uses crt;
var a,b: real;
x: real;
begin
clrscr;
write('Nhap so a:');
readln(a);
write('Nhap so b:');
readln(b);
x:=-b/a;
if (a=0) and (b<>0) then write('Phuong trinh vo nghiem');
if (a<>0) and (b<>0) then write('X:=',x);
if (a=0) and (b=0) then write(Phuong trinh co vo so nghiem');
readln;
end.

Vậy mà giải đưa ra nghiệm sai hoài, nản!!!
Mình bik VY nhìu người giỏi lắm giúp mình đi 3congratz3

Không thể thực hiện tác vụ do chủ đề hiện đang ở trạng thái lưu trữ