👤
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 :

ANONYMOUS02ZE
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 că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și vă încurajăm să ne salvați în lista de favorite!


Ze Questions: Alte intrebari