Viết chương trình giải phương trình `ax + b = 0` # Yêu cầu: - Làm đầy đủ, không sai sót. - Vì mình quên mất kiến thức mấy câu kiểu này nên mọi người làm rồi giải thích một chút nhé, ngắn gọn dễ hiểu là được. - Không chép mạng 😶 - Biết, chắc đúng thì trả lời, không chắc thì out ra.
2 câu trả lời
uses crt;
var a,b:longint;
begin
clrscr;
readln(a);
readln(b);
writeln('Nghiem pt: ',-b/a:0:2);
readln;
end.
uses crt;
var a,b:extended;
{---a=0---}
procedure TH1;
begin
writeln('PT co vo so nghiem');
end;
{---------}
procedure TH1_1;
begin
writeln('PT vo nghiem');
end;
{---b<>0---}
procedure TH2;
begin
writeln('PT co 1 nghiem duy nhat: x=',-b/a:0:2);
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap a,b: '); readln(a,b);
if a=0 then if b=0 then TH1
else if (a=0) and (b<>0) then TH1_1
else TH2;
readln;
END.
