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

Помогите решить, пожалуйста)
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) lt; R ) then begin
M : = t;
R : = F(t)
end
end;
write(M);
end.

Слава Елынин 2019-08-31 05:53:57

А в чем обязано состоять это "решить"?

Дарья Целлер 2019-08-31 05:57:06

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

Олег Гаманцев 2019-08-31 06:00:12

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

Альбина Вининчук 2019-08-31 06:05:49

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

Александр 2019-08-31 06:10:25

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

Maksim Mokrota 2019-08-31 06:18:28

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

Есения Межирицкая 2019-08-31 06:28:03

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

Денис 2019-08-31 06:31:59

Вот, и это верно. Всегда надо инспектировать код. Вдруг мы ошиблись. Изредка, но посещает. Фурроров на ЕГЭ!

Андрюха Сенченко-Гай 2019-08-31 06:41:43

Вправду, вдруг мы оба ошиблись?))

Gennadij Andrjushechkin 2019-08-31 06:44:12

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