DIM A, B, T, M, R AS INTEGER
A = -20: B = 20
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 := -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. |
int F(int x)
{
return 4*(x-1)*(x-3);
}
void main()
{
int a, b, t, M, R;
a = -20; b = 20;
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 := -20; b := 20
M := a; R:= F(a)
нц для t от a до b
если F(t)< R
то
M := t; R := F(t)
все
кц
вывод M
кон
алг цел F(цел x)
нач
знач := 4*(x-1)*(x-3)
кон |
