Алгоритм целочисленного деления[Pascal/Delphi]

[r1nz0r]

День добрый, дорогие программисты.
Есть код для простого решения уравнения методом половинного деления, но нужно усложнить. Усложнение следующее:

"Каждый раз уменьшая автоматически погрешность в 2 раза, определить и вывести две минимальные погрешности, для которых решение находится для переменных типа single и extended."

Не совсем понимаю что от меня требуется.
Нужно все переменные в отдельных процедурах сделать синглом и экстендедом?

Вот код:

Var A,B,C,x,y,e,xmin,xmax: single;
         otvet,shagi: string;
Function Kvadr(a,b,c,x:single):single;
  Begin
   Result:=a*x*x+b*x+c;
  End;

Procedure schet;
Var h,u:single;
    i:integer;
  Begin
  h:=(xmax-xmin)/2;
  x:=xmin+h;
  u:=kvadr(a,b,c,xmin);
  i:=0;
  while i<50 do
    Begin
        inc(i);
        y:=kvadr(a,b,c,x);
        h:=h/2;
        If abs(y)<e then
        Begin
          str(x:12:7,otvet);
          str(i,shagi);
          Exit;
        End;
          If u*y>0 then
            x:=x+h
          Else
            x:=x-h;
          End;
          otvet:='Нет корней';
          shagi:='';
     End;

Procedure TForm1.Button1Click(Sender: TObject);
Var  i,z,j,k,l,m,n: integer;

begin
  Label9.Visible:=False;
  Val(Edit1.Text,A,z);
  Val(Edit2.Text,B,j);
  Val(Edit3.Text,C,k);
  Val(Edit4.Text,e,l);
  Val(Edit5.Text,xmin,m);
  Val(Edit6.Text,xmax,n);
  if (z<>0) or (j<>0) or (k<>0) or (l<>0) or (m<>0) or (n<>0) then
    begin
      label9.visible:=True;
      exit;
    end;
  Schet;
  Edit7.Text:=otvet;
  Edit8.Text:=shagi;
End;
End.

[ViktorR]

Задание понял так:
1. Пишем код, в котором одни переменные имеют тип Singl, а другие Extendet.
2. В коде, после задания (ввода с клавиатуры) некоторой погрешности вычисления, необходимо найти решение. Если решение найдено, то значение погрешности уменьшаем в два раза (в программе, естественно) и вычисления повторяем. При некотором значении погрешности программа зациклится. Так думаю, что этот момент можно проконтролировать ограничивая число циклов поиска решения.
3. Все эти вычисления повторить с переменными типа extendet.
4. Полученные в этих задачах минимальные погрешности и выводятся.

Как-то так, ...

[r1nz0r]

Сообщение от ViktorR

Задание понял так:
1. Пишем код, в котором одни переменные имеют тип Singl, а другие Extendet.
2. В коде, после задания (ввода с клавиатуры) некоторой погрешности вычисления, необходимо найти решение. Если решение найдено, то значение погрешности уменьшаем в два раза (в программе, естественно) и вычисления повторяем. При некотором значении погрешности программа зациклится. Так думаю, что этот момент можно проконтролировать ограничивая число циклов поиска решения.
3. Все эти вычисления повторить с переменными типа extendet.
4. Полученные в этих задачах минимальные погрешности и выводятся.

Как-то так, ...

Можно немного поподробнее про второй пункт, с зацикливанием.

[Serge_Bliznykov]

я полностью согласен с постом от ViktorR
поэтому могу пояснить.
у Вас в цикле уже есть эта проверка.
вот это:

 while i<50 do

и позволяет избежать зацикливания.

Правда, непонятно, откуда взялось число 50 ?!
я бы взял число МИНИМУМ на два/три порядка больше
например,

 while i<5000 do

всё остальное понятно?

[r1nz0r]

Сообщение от Serge_Bliznykov

я полностью согласен с постом от ViktorR
поэтому могу пояснить.
у Вас в цикле уже есть эта проверка.
вот это:

и позволяет избежать зацикливания.

Правда, непонятно, откуда взялось число 50 ?!
я бы взял число МИНИМУМ на два/три порядка больше
например,

 while i<5000 do

всё остальное понятно?

В общем, так и не смог понять как делать.
Преподаватель давал такой алгоритм, что-то вроде того, что корень находится меньше чем за 50 шагов.
Так же я выяснил, что нужно сделать две процедуры, в каждой из которых считается отдельно для сингла и для экстендеда переменных, и потом прогнать в другой процедуре их, каждый раз уменьшая погрешность в 2 раза. То есть не в самих процедурах, где идет вычисление корня, а в главной, которая прогоняет эти процедуры. Вот встает вопрос, как мне сделать цикл, ибо я не смогу же уловить именно МИНИМАЛЬНУЮ погрешность, для которой находится решение(нужно именно минимальную, т.е. пограничную с той, с которой уже не будет работать переменная типа single/extended).

[r1nz0r]

Вот исходный алгоритм.
фото
Форма выглядит примерно так, в последние 3 поля программа должна вывести значения.
фото
Сама начальная погрешность задается непосредственно в процедуре.
Сейчас код выглядит примерно так, что дальше делать, вообще не понимаю...

unit Unit1;

interface
     procedure schetSG;
     procedure schetEXT;
     Var A,B,C,x,y,xmin,xmax,e: single;
         x1,y1,e1: extended;
         otvet,shagi,pogrsg,pogrext: string;
implementation

Function Kvadr(a,b,c,x:single):single;
  Begin
   Result:=a*x*x+b*x+c;
  End;

  procedure ssss;
   Var h,u:single;
    i:integer;
  begin
  h:=(xmax-xmin)/2;
  x:=xmin+h;
  u:=kvadr(a,b,c,xmin);
  i:=0;
  while i<50 do
    Begin
        inc(i);
        y:=kvadr(a,b,c,x);
        h:=h/2;
        If abs(y)<e then
        Begin
          str(e:14:12,pogrsg);
          Str(i,shagi);
          Exit;
        End;
        If u*y>0 then
          x:=x+h
        Else
          x:=x-h;

    End;
  end;

Procedure schetSG;
  Begin
  while e>1.5e-45 do
  begin
  e:=0.1;
  ssss;
  e:=e/2;
  End;
  end;



  Procedure schetEXT;
Var h,u,e:extended;
    i:integer;
  Begin
  h:=(xmax-xmin)/2;
  x1:=xmin+h;
  u:=kvadr(a,b,c,xmin);
  i:=0;
  e:=0.1;
  while i<50 do
    Begin
        inc(i);
        y1:=kvadr(a,b,c,x1);
        h:=h/2;
        If abs(y1)<e then
        Begin
          str(x1:12:6,otvet);
          Str(e:14:12,pogrext);
          Exit;
        End;
        If u*y1>0 then
          x1:=x1+h
        Else
          x1:=x1-h;
        e:=e/2;
    End;
    otvet:='Нет корней';
  End;
end.