Question

Ofer 50 de puncte pentru cine este bun la informatica!!!!! Scrieți în pseudopod un algoritm în rezolvarea ecuației de gradul 2

Answer 1

intreg a,b,c;
real delta, x1, x2;
citeste a, b, c;
delta <- b*b-4*a*c;

daca delta<0 atunci
   scrie "Ecuatia nu are rez in R";
altfel
   daca delta == 0 atunci
      x1 <- (0-b)/2*a;
      scrie "X = ", x1;
   altfel
      x1 <- ((0-b)+sqrt(delta))/2*a;
      x2 <- ((0-b)-sqrt(delta))/2*a;
      scrie "X1 = ", x1;
      scrie "X2 = ", x2;