cho phương trình ax+b=0.viết chương trình tìm nghiệm của phương trình biết a,b khác 0
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a, b: logint;
Begin
write('nhap so a ='); Readln(a);
write('nhap so b ='); readln(b);
If (a = 0 and b = 0)
then write ('pt co nghiem x thuoc R')
else
if (a=0 and b#0) then write('pt vo nghiem')
else
write(nghiẹm la x=': -b/a);
readln
end.
uses crt;
var a, b: logint;
Begin
write('nhap so a ='); Readln(a);
write('nhap so b ='); readln(b);
If (a = 0 and b = 0)
then write ('pt co nghiem x thuoc R')
else
if (a=0 and b#0) then write('pt vo nghiem')
else
write(nghiẹm la x=': -b/a);
readln
end.
const fi='dulieu.inp';
fo='kq.inp';
var f1,f2:text;
a,b,c,delta:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,c);
delta:=sqr(b)-4*a*c;
if delta<0 then writeln(f2,'Phuong trinh vo nghiem');
if delta=0 then writeln(f2,'Phuong trinh co nghiem kep la: ',-b/(2*a):4:2);
if delta>0 then
begin
writeln(f2,'Nghiem thu nhat la: ',(-b+sqrt(delta))/(2*a):4:2);
writeln(f2,'Nghiem thu hai la: ',(-b-sqrt(delta))/(2*a):4:2);
end;
close(f1);
close(f2);
end.
uses crt;
var a, b: logint;
Begin
write('nhap so a ='); Readln(a);
write('nhap so b ='); readln(b);
If (a = 0 and b = 0)
then write ('pt co nghiem x thuoc R')
else
c và d là nghiệm của phương trình:
x 2 + a x + b ⇒ ⇒ c + d = − a ( 1 ) c d = b ( 2 )
a, b là nghiệm của phương trình:
x 2 + c x + d = 0 ⇒ ⇒ a + b = − c ( 3 ) a b = d ( 4 )
Đáp án cần chọn là: A
Ta có: a x + b = 0 ⇔ x = - b a
Và c x + d = 0 ⇔ x = - d c
Theo giả thiết ta có: - b a < - d c ⇔ b a > d c
Bài 1:
Thuật toán:
B1: Nhập a,b,c
B2: Tính \(\Delta\) = b2-4ac;
B3: Kiểm tra nếu \(\Delta\) >0 phương trình có 2 nghiệm phân biệt
\(x_1=\dfrac{-b+\sqrt{\Delta}\text{ }}{2a}\)
\(x_2=\dfrac{-b-\sqrt{\Delta}}{2a}\)
B4: Kiểm tra nếu \(\Delta\)<0 thì phương trình vô nghiệm
B5: Kiểm tra nếu \(\Delta\)=0 phương trình có 2 nghiệm kép \(x_1=x_2=-\dfrac{b}{2a}\)
Viết chương trình:
Program HOC24;
var a,b,c: integer;
x1,x2: real;
denta: longint;
begin
write('Nhap a; b; c: '); readln(a,b,c);
denta:=b*b-4*a*c;
if denta>0 then
begin
write('x1= ',(-b+sqrt(denta))/(2*a):1:2);
write('x2= ',(-b-sqrt(denta))/(2*a):1:2);
end;
if denta<0 then write('Phuong trinh vo nghiem');
if denta=0 then write('x= ',-b/2*a:1:2);
readln
end.
Bài 2:
Thuật toán:
B1: Nhập a,b
B2: Kiểm tra nếu a=0 và b=0 thì phương trình có vô số nghiệm
B3: Kiểm tra nếu a=0 thì phương trình vô nghiệm
B4: Kiểm tra nếu a khác 0 thì có nghiệm x=-b/a;
Viết chương trình:
Program HOC24;
var a,b: integer;
x: real;
begin
write('Nhap a; b: '); readln(a,b);
if a=0 and b=0 then write('Phuong trinh co vo so nghiem');
if a=0 then write('Phuong trinh vo nghiem');
if a<>0 then write('x=',-b/a:1:2);
readln
end.