Anonymní profil atp256 – Programujte.com

Ahoj,

dostal jsem za úkol napsat základní numerickou metodu pro řešení lineární rovnice tak, aby našla všechny kořeny v daném intervalu.

Toto jsem zatím napsal:

       procedure zaklad_num_metoda(X,Y,presnost:real);
         var TEMP:real;
         begin
              TEMP:= X+presnost;
              while(TEMP<Y) and (F(X)*F(TEMP)>0) do begin
                                                          X:=TEMP;
                                                          TEMP:= X+presnost
                                                    end;
              if TEMP>=Y then result:=(X+Y)/2
                         else result:=(X+TEMP)/2
         end;

Takto napsaná procedura mi ale najde pouze jeden kořen z intervalu. Nevěděl byste někdo, jak proceduru upravit tak, aby našla všechny kořeny?

Budu rád za jakoukoli pomoc.