TP program

Chlapci potreboval by som pomoct s jednym programom v TP .Uloha je ze mam vypocitat kvadraticku rovnicu , mam zadat a,b,c , vypocitat diskriminant, vypisat korene ak bude D >0 ked bude =0 tak koren , a ked bude mensie ako 0 nema riesenie.

Kód: Vybrať všetko

program rovnica;
var a,b,c,D,Y,Z,O:real;
begin
     writeln ('Zadaj hodnoty a,b,c');
     readln (a,b,c);
     D:=b*b-4*a*c;
      if (D<0) then writeln ('Rovnica nema riesenie');
    
     O:=(-b)/2*a;
     if (D>0) then
              begin
                      Y:=(-b+sqrt(D))/2*a;
                      Z:=(-b-sqrt (D))/2*a;
               writeln ('Rovnica ma dva korene',Y:0:2 ,',',Z:0:2);
              end;
     if (D=0) then writeln ('Rovnica ma jeden koren',O:0:2);
 
     readln;
 end.

... presunuté do programovania

tnks

)