Viet chuong trinh pascal giai phuong trinh ax+b+c=0

Question

diemchau · Answer

program kaito;
uses crt;
var a, b, x: real;
begin
clrscr;
write(‘Giai phuong trinh bac nhat: ax +b =0’);
write(‘Nhap he so a: ‘); readln(a);
write(‘Nhap he so b: ‘); readln(b);
x:=-b/a;
if (a=0) then
begin
if (b=0) then writeln(‘Phuong trinh vo so ngiem’)
else writeln(‘Phuong trinh vo nghiem’);
end
else writeln(‘Phuong trinh co nghiem duy nhat: ‘,x);
readln
end.

kimoanh · Answer

Program GIAI_PHUONG_TRINH_BAC_NHAT;

Var a,b,x:real;

Begin

Clrscr;

Writeln(‘GIAI PHUONG TRINH BAC NHAT: AX + B=0’);

Writeln(‘————————————————————‘);

Write (‘Nhap a= ‘);

readln(a);

Write (‘Nhap b= ‘);

readln(b);

If(a=0) then If(b=0) then Writeln(‘ Phuong trinh co vo so nghiem’)

Else writeln(‘ Phuong tring vo nghiem’)

Else Writeln(‘Phuong trinh co nghiem x=’,-b/a:4:2);

Readln;

End.

Trả lời

Viet chuong trinh pascal giai phuong trinh ax+b+c=0

Viết một bình luận Hủy