Определите, какое число будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырех языках).
|
Бейсик
DIM A, B, T, M, R AS INTEGER
A = -10: B = 10
M = A: R = F(A)
FOR T = A TO B
IF F(T) < R THEN
M = T
R = F(T)
END IF
NEXT T
PRINT M
FUNCTION F (x)
F = 4 * (x - 1) * (x - 3)
END FUNCTION
|
Паскаль
var a,b,t,M,R :integer;
Function F(x:integer):integer;
begin
F := 4*(x-1)*(x-3);
end;
BEGIN
a := -10; b := 10;
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.
|
|
Си
int F(int x)
{
return 4*(x-1)*(x-3);
}
void main()
{
int a, b, t, M, R;
a = -10; b = 10;
M = a; R = F(a);
for (t=a; t<=b; t++){
if ( F(t)<R ) {
M = t; R = F(t);
}
}
printf("%d", M);
}
|
Алгоритмический язык
алг
нач
цел a, b, t, M, R
a := -10; b := 10
M := a; R:= F(a)
нц для t от a до b
если F(t)< R
то
M := t; R := F(t)
все
кц
вывод M
кон
алг цел F(цел x)
нач
знач := 4*(x-1)*(x-3)
кон
|