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.

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.

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. 

31 tháng 3 2021

Cảm ơn nha

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.

9 tháng 5 2020

Bạn tham khảo lời giải tại : Câu hỏi của Lê Tuấn Anh - Tin học lớp 11 | Học trực tuyến (câu 2)

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)

#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;

}

9 tháng 5 2020

Program hotrotinhoc_hoc24;

const fi='thamso.dat';

fo='nghiem.dat';

var a,b: integer;

x: real;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,a,b);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

x:=0-b;

x:=x/a;

write(f,'x=',x:1:0);

close(f);

end;

begin

ip;

out;

end.