Viết chương trình giải phương trình bậc nhất ax+b=0 (a khác 0), với các số a, b nhập từ bàn phím
Viết chương trình giải phương trình bậc nhất ax+b=0 (a khác 0), với các số a, b nhập từ bàn phím
By Alexandra
By Alexandra
Viết chương trình giải phương trình bậc nhất ax+b=0 (a khác 0), với các số a, b nhập từ bàn phím
program Phuong_trinh_bac_nhat;
uses crt;
var a,b : real;
begin
clrscr;
write (‘Nhap so a:’); readln(a);
write (‘Nhap so b:’); readln(b);
if (a<>0) then writeln (‘Nghiem cua phuong trinh la:’, -b/a);
if (a=0) and (b=0) then writeln (‘Phuong trinh co vo so nghiem’);
if (a=0) and (b<>0) then writeln (‘Phuong trinh vo nghiem’);
readln
end.
program giaipt;
uses crt;
var a,b:integer;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
if (a=0) and (b=0) then write(‘Phuong trinh vo so nghiem’)
else if (a=0) and (b<>0) then write(‘Phuong trinh vo nghiem’)
else write(‘x= ‘,-b/a:0:2);
readln;
end.