Задача на Pascal

[elman]

Моля някой ,който разбира от Turbo Pascal да реши следната задача: Да се напише програма за функцията

ax2+bx+c=0. Благодаря ви предварително.

[sao]

Домашно а

 

Ако имаш блок-схемите които си се правят по принцип, както уча и аз паскал-а, действай по тях. А там което те затруднява кажи.

 

edit. Уау не видях датата ;/

[kras4ooo]

var a,b,c:integer;
d,x1,x2:real;
  begin
      writeln('programa za ax2+bx+c=0');
      writeln('vavedi a,b i c');
        readln(a,b,c);
            if a=0 then
         if b=0 then
       if c=0 then
          writeln('vsqko x')
           else writeln('nqma realni koreni')
        else
          begin
       x1:=c/b;
       x2:=x1;
          writeln('x1=x2= ' , x1:0:1);
          end
      else
         begin
            d:=b*b-4*a*c;
                 if d<0 then
                    writeln('nqma realni koreni')
                else
                  begin
                      d:=sqrt(d);
                      a:=a+a;
                      x1:=(-b-d)/a;
                      x2:=(-b+d)/a;
                        writeln('x1=', x1:0:1);
                        writeln('x2=', x2:0:1);
                      end;
                      end;
   readln;
end.

 

 

Ето ти едно валидно решение което написах набързо надявам се да съм помогнал.

[shanto]

А датата видя ли.....?

[dudev851]

Може човека да повтаря годината за втори път...

[bobi1024]

тест