Hãy viết chương trình: ax2+bx+c=0 (a khác 0). các hệ số a,b,c từ tệp thamso.inp, nghiệm phương trình ghi ra tệp kq.inp.
K
Khách
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.
Những câu hỏi liên quan
30 tháng 3 2021
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.
10 tháng 2 2022
uses crt;
const fi='input.txt';
fo='output.txt';
var f1,f2:text;
a,b:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
if (a=0) and (b=0) then writeln(f2,'Phuong trinh co vo so nghiem');
if (a<>0) then writeln(f2,-b/a:4:2);
if (a=0) and (b<>0) then writeln(f2,'Phuong trinh vo nghiem');
close(f1);
close(f2);
end.
GL
29 tháng 1 2023
import math
a = float(input("Nhập a: "))
b = float(input("Nhập b: "))
c = float(input("Nhập c: "))
d = b**2 - 4*a*c
if d > 0:
x1 = (-b + math.sqrt(d)) / (2*a)
x2 = (-b - math.sqrt(d)) / (2*a)
print("Phương trình có hai nghiệm: x1 =", x1, "và x2 =", x2)
elif d == 0:
x = -b / (2*a)
print("Phương trình có nghiệm kép: x =", x)
else:
print("Phương trình không có nghiệm thực."
TL
19 tháng 8 2023
Tham khảo:
import math
def giai_phuong_trinh_bac_2(a, b, c):
delta = b**2 - 4*a*c
if delta < 0:
return None
elif delta == 0:
nghiem = -b / (2*a)
return (nghiem)
else:
sqrt_delta = math.sqrt(delta)
nghiem1 = (-b + sqrt_delta) / (2*a)
nghiem2 = (-b - sqrt_delta) / (2*a)
return (nghiem1, nghiem2)
16 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long i,a[100],n;
int main()
{
freopen("songuyen.txt","r",stdin);
n=20;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
const fi='thamso.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
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;
if delta=0 then writeln(f2,'Nghiem cua phuong trinh la: ',-b/2*a:4:2);
if delta<0 then writeln(f2,'Phuong trinh vo nghiem');
close(f1);
close(f2);
end.