Function F(H, x: integer):integer;
Begin
F := 11*(x-H)*(x-H)+13;
End;
BEGIN
Readln(H);
a:= 0; b:= 30;M:= a; R:= F(H,a);
for t := a to b do begin
if (F(H, t) > R) then begin
M := t; R := F(H, t)
End end;
Write(M)END.
51) Напишите в ответе наименьшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 12.
var k, i : longint;
function f(n: longint): longint;
Begin
f := n * n * n;
end;
function g(n: longint): longint;
Begin
g := 3*n + 2;
end;
Begin
readln(k); i := 1;
while f(i) < g(k) do
i := i+1;
Writeln(i)end.
52)Определите, какое число выведет эта программа:
var i: integer;
function f(n: integer): integer;
Begin
f := n*n*n;
end;
function g(n: integer): integer;
Begin
g := 100* n*n + 50 ;
end;
Begin
i := 1;
while f(i) < g(i) do
i := i*2;
Writeln(i)end.
53) Напишите в ответе минимальное значение переменной k, при вводе которого программа напечатает число 12.
var k, i : integer;
function f(n: integer): integer;
Begin
f := (n+1)*(n+1);
end;
function g(n: integer): integer;
Begin
g := n*n;
end;
Begin
readln(k); i := 1;
while f(i) < g(i)+k do
i := i+1;
Writeln(i)end.
54) Определите, какое число выведет эта программа:
var a, b, t, M, R: integer;
function F(x: integer):integer;
Begin
F := 3*(x*x-1)*(x*x-1)+15;
end;
Begin
a := -10; b := 10;M := a; R := F(a);
for t := a to b do
if F(t) < R then begin
M := t;
R := F(t);
end;
writeln(M + R);end.
55) Определите, какое число выведет эта программа:
var a, b, t, M, R: integer;
function F(x: integer):integer;
Begin
F := 9*(x*x-4)*(x*x-4)+25;
end;
Begin
a := -10; b := 10; M:= a; R:= F(a);
for t := a to b do
if F(t) <= R then begin
M := t; R := F(t);
end;
writeln(M + R);end.
56) Определите, какое число выведет эта программа:
|
|
|
var a,b,t,M,R :integer;
function F(x:integer):integer;
Begin
F := 3*(x*x-16)*(x*x-16)+5;
end;
Begin
a := -10; 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*R);end.
57) Определите наибольшее значение входной переменной k, при котором программа выдаёт ответ 7:
Var
k, i : longint;
function f(n: longint): longint;
Begin
f := n*n + 2*n
end;
Begin
readln(k); i := 20;
while f(i) > k do i := i-1;
Writeln(i)end.
58) Определите наибольшее значение входной переменной k, при котором программа выдаёт ответ 9:
Var
k, i : longint;
function f(n: longint): longint;
Begin
f := n*n + 4*n
end;
Begin
readln(k);
i := 20;
while f(i) > k do i := i-1;
Writeln(i)
End.
59)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F := abs(abs(x-4)+abs(x+4)-12) + 1
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.
60)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F := abs(abs(x-6)+abs(x+6)-20) + 5
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+R);
End.
61) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
|
|
|
var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F := abs(abs(x-3)+abs(x+3)-10) + 8
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+R);
End.
62) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F := abs(x-6)+abs(x+6) + 5
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+R);
End.
63) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F := abs(x-3) + abs(x+3) + 7
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+R);
End.
Дата добавления: 2022-06-11; просмотров: 68; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!