Question

Ajutor!!!! daca e posibil as vrea si niste mici explicatii dar doar programe sunt bune si ele :)

Answer 1

program Discriminant;

var a, b, c, d: real;

begin

 write('a= '); read(a);

 write('b= '); read(b);

 write('c= '); read(c);

 d:=sqr(b)-4*a*c;

 if d>=0 then writeln('D= ', d)

 else writeln('expresia de sub radical e negativa...');

end.

program ecGradul1;

var a,b,x:real;

begin

 writeln('Rezolvarea ecuatiei ax+b=0 ');

 write('introdu a, a diferit de zero, a= '); read(a);

 write('b= '); read(b);

 x:=-b/a;

 writeln(' solutia x= ', x);

end.