Anonymní profil atp256 – Programujte.com

Pokusil jsem se proceduru upravit na procházení cyklem:

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

Mám ale chybu v podmínce prvního cyklu while. Měla by tam být podmínka, za které má rovnice v intervalu řešení. S touto podmínkou to ale nefunguje a nevím, jakou jinou tam mám napsat. Nevěděl byste někdo prosím, jak bych měl podmínku změnit?