Предмет: Информатика,
автор: Danmaner
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
begin
F := -2*(x+2)*(x-6);
end;
Begin
a := -11; b := 11;
M := a; R:= F(a);
t:=a;
while t < b do
begin
if (F(t)>R) then
begin
M := t;
R:= F(t);
end;
t:=t+2;
end;
Write(R);
End.
Аноним:
эт паскаль?
Ответы
Автор ответа:
2
Ответ:
30
Объяснение:
var a, b, t, M, R: integer; // объявляем переменные
Function F(x: integer):integer; // объявляем функцию F
begin
F := -2*(x+2)*(x-6);
end;
Begin // основная программа
a := -11; b := 11; // a = -11; b = 11
M := a; R:= F(a); // M = a = -11; R = F(a). F(a) = -2*(-11+2)*(-11-6)=(-2)*(-9)*(-17) = 306
t:=a; // t = a = -11
while t < b do // пока t < b
begin
if (F(t)>R) then // если F(t) > R
begin // выполнить такие действия:
M := t; // M = t
R:= F(t); // R = F(t)
end;
t:=t+2; // прибавить к t значение 2
end;
Write(R); // вывести R
End.
Похожие вопросы
Предмет: Українська мова,
автор: ната623
Предмет: Қазақ тiлi,
автор: Nisanko
Предмет: Русский язык,
автор: Arr24
Предмет: География,
автор: makaronki
Предмет: Алгебра,
автор: kristinablog2