Розв’язок задачі з Абрамова №104

Всі умови | Умова: Дано дійсне число a > 0. Послідовність x0, x1, ... утворена за законом ... (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №104)

program p104;
uses
  math;
var
  a, x1, x2, result : real;
begin
  write('a = '); readln(a);
  
  //find x0
  if (a <= 1) then
    x2 := min(2 * a, 0.95)
  else if  (a > 1) and (a <= 25) then
    x2 := a / 5
  else
    x2 := a / 25;
  
  //find xn => x1
  repeat
    x1 := x2;
    x2 := a / 5 * x1 + 4 / 5 * power(x1, 4);
  until (5 / 4 * a * abs(x2 - x1) < power(10, -6));
  
  //find result
  result := a - power(x1, 5);
  
  //write result
  writeln(result:10:2);
  readln;
end.