👤
a fost răspuns

Se considera ecuatia patrata a[tex] x^{2} [/tex]+bx+c=0,   a,b,c -numere reale. De facut un program care calculeaza formula dicriminantului ecuatiei . 

Răspuns :

ANONYMOUS02VIZ
Program nume;
Uses crt;
var a,b,c,x1,x2,d : real;
Begin
clrscr;
Writeln('Introduceti datele');
Write('a = '); Readln(a);
Write('b = '); Readln(b);
Write('c = '); Readln(c);
d := sqr(b)-4*a*c;
if d<0 then writeln('Ecuatia nu are solutii.')
else begin
    if d=0 then x1:=-1*b/(2*a);
    else
    x1:=(-1*b-sqrt(d)) / (2*a);
    x2:=(-1*b+sqrt(d)) / (2*a);
     end;
Writeln('x1 = ',x1);
Writeln('x2 = ',x2);
Writeln('Discriminanta = ',d);
Readkey;
End.

Vă mulțumim pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Așteptăm cu entuziasm să reveniți și vă invităm să ne adăugați la lista de favorite!


Viz Lesson: Alte intrebari