Помогите дописать пояснение

[RECREATOR]

var                                              {описание переменных}
  x,                                              {значение аргумента}
  y,                                              {значение функции}
  min_x,                                        {минимальное значение аргумента}
  min_y: real;                                 {минимальное значение функции}
 begin
  x:=0;                                          {начальное значение аргумента}
  min_y:=sin(x)/(x + 1);                  {?}
  min_x:=x;                                   {?}
    while x<=10 do begin                   {предельное значение аргумента}
     x:=x+0.1;                                {шаг увеличения аргумента}
     y:=sin(x)/(x + 1);                      {подстановка аргумента в функцию}
if y < min_y then                             {?}
  begin
   min_y := y;                                 {?}
   min_x := x;                                 {?}
end;  


end;                                               {конец цикла}

Label1.Caption:=FloatToStr(min_x);     {вывод минимального значения аргумента}
Label2.Caption:=Floattostr(min_y);     {вывод минимального значения функции}

end;
end.

[RECREATOR]

Я еще алгоритм приложил. Посмотрите пожалуйста- чего не хватает?

[Abbatik]

var                                              {описание переменных}  
  x,                                              {значение аргумента}  
  y,                                              {значение функции}  
  min_x,                                        {минимальное значение аргумента}  
  min_y: real;                                 {минимальное значение функции}  
 begin  
  x:=0;                                          {начальное значение аргумента}  
  min_y:=sin(x)/(x + 1);                  {начальное значение минимума по у}  
  min_x:=x;                                   {начальное значение минимума по у}  
    while x<=10 do begin                   {предельное значение аргумента}  
     x:=x+0.1;                                {шаг увеличения аргумента}  
     y:=sin(x)/(x + 1);                      {подстановка аргумента в функцию}  
if y < min_y then                             {если текущее у<миним. значения то}  
  begin  
   min_y := y;                                 {присваиваем значение у миним. значению у }  
   min_x := x;                                 {присваиваем значение х миним. значению х }  
end;     
  
  
end;                                               {конец цикла}  
  
Label1.Caption:=FloatToStr(min_x);     {вывод минимального значения аргумента}  
Label2.Caption:=Floattostr(min_y);     {вывод минимального значения функции}  
  
end;   
end.

если не ошибаюсь то прога по вычислению минимума функции y=sin(x)/(x+1) в интервале от 0 до 10 с шагом 0.1?

[RECREATOR]

Да, она, спасибо))))) А с алгоритмом как быть? Правильный?

[Alex21]

В блок-схеме пропущена проверка:

if y < min_y then