|
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) кон
|
