Помогите решить, пожалуйста) var a,b,t,M,R :integer; Function F(x:integer):integer; ...

Question

Помогите решить, пожалуйста)
var a,b,t,M,R :integer;
Function F(x:integer):integer;
begin
F : = 9 * (x + 19) * (x - 19) + 1;
end;
begin
a : = -20; b : = 20;
M : = a; R : = F(a);
for t : = a to b do begin
if (F(t) < R ) then begin
M : = t;
R : = F(t)
end
end;
write(M);
end.

Comments

А в чем должно состоять это "решить"?

---

Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма

---

Извините, само задание не написала

---

Ну, код был с ошибками. Поэтому он вряд ли что выдал бы...

---

Конечно, оператор присваивания := нельзя разбивать пробелом. А так, программа напечатает 0 - значение аргумента, при котором заданная функция на интервале [-20;20] минимальна при заданном шаге, равном 1. У нас функция имеет вид y=x^2+C - это квадратная парабола и неудивительно, что минимум достигается при х=0.

---

Да, точно так. Просто интересно, учащийся запустит программу на выполнение или удовлетворится ответом

---

спасибо большое, просто задание из ЕГЭ, но я запущу обязательно)

---

Вот, и это правильно. Всегда надо проверять код. Вдруг мы ошиблись. Редко, но бывает. Успехов на ЕГЭ!

---

Действительно, вдруг мы оба ошиблись?))

---

Ну такое уж оооочень редко)))

Answer 1

Уберите лишние пробелы после ":" и все заработает, на выходе получите 0
Исправленный вариант кода:
var
  a, b, t, M, R: integer;

function F(x: integer): integer;
begin
  F := 9 * (x + 19) * (x - 19) + 1;
end;

begin
  a := -20;b := 20;
  M := a;R := F(a);
  for t := a to b do
  begin
    if (F(t) < R ) then begin
      M := t;
      R := F(t)
    end
  end;
  write(M);
end.