Viết chương trình giải phương trình bậc nhất ax+b=0 với các số a, b nhập từ bàn phím
Giúp mik vs ạ
Viết chương trình giải phương trình bậc nhất ax+b=0 với các số a, b nhập từ bàn phím Giúp mik vs ạ
By Eden
By Eden
Viết chương trình giải phương trình bậc nhất ax+b=0 với các số a, b nhập từ bàn phím
Giúp mik vs ạ
uses crt;
var a,x,b,i: integer;
begin
clrscr;
write (‘nhap a: ‘); readln (a);
write (‘nhap b: ‘); readln (b);
write (‘cac gia tri cua x la: ‘);
if a>b then
for i:=1 to a do
if (a*x+b=0) then write(i,’ ‘)
else
for i:=1 to b do
if (a*x+b=0) then write(i,’ ‘);
readln;
end.
program Giaipt;
uses crt;
var a,b: real;
begin
clrscr;
write (‘ a = ‘); readln (a);
write (‘ b = ‘); readln (b);
if (a<=0) then writeln (‘ Pt vo nghiem’);
if (a=0) then writeln(‘Pt co vo so nghiem’);
if a>0 then writeln(‘Pt co nghiem la : x<=’,-b/a :5:2 );
if a<0 then writeln(‘Pt co nghiem la : x>=’,-b/a : 5:2);
readln;
end.