Function F(x:integer):integer;
Анализ задач с подпрограммами
1) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:=4*(x-5)*(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.
2) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:=-(x+4)*(x+2);
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.
3) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:=3*(x-2)*(x+6);
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(R);END.
4) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:=(5-x)*(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(R);END.
5) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:=(x-5)*(x+3);
end;
BEGIN
a:=-5; b:=5; 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.
6) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:=(x+5)*(x+3);
end;
BEGIN
a:=-5; b:=5; 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(R);END.
7) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:=(x+7)*(1-x);
end;
BEGIN
a:=-5; b:=5; 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.
8) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:=(x+5)*(1-x);
end;
BEGIN
a:=-5; b:=5; 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.
9) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:=(x+3)*(1-x);
end;
BEGIN
a:=-5; b:=5; 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(R);END.
10) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:= 2*x*x + 8*x + 10;
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.
11) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:= x*x + 6*x + 10;
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.
12) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:= x*x - 8*x + 10;
end;
BEGIN
a:=-5; b:=5; 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(R);END.
13) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:= x*x + 2*x + 10;
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.
14)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:=4*(x-5)*(x+3);
end;
BEGIN
a:=-20; b:=0; 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.
15)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:= 2*x*x + 8*x + 10;
end;
BEGIN
a:=0; 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( R );END.
16)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F:=-(x+4)*(x+2);
end;
BEGIN
a:=-2; 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.
17)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
Begin
F := 2*(x-9)*(x-9)+12;
end;
BEGIN
a := -20; b := 20; M := a; R:= F(a);
for t := a to b do
if (F(t)<R) then begin
M := t; R:= F(t);
end;
Write(M);END.
18)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
Begin
F := 9*(x-15)*(x+17)+2;
end;
BEGIN
a := -20; b := 20;M := a; R:= F(a);
for t := a to b do
if (F(t)<R) then begin
M := t; R:= F(t);
end;
Write(M);END.
19)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
Begin
F := -3*(x-10)*(x+2)+2;
end;
BEGIN
a := -20; b := 20; M := a; R:= F(a);
for t := a to b do
if (F(t)>R) then begin
M := t; R:= F(t);
end;
Write(M);END.
20)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
Begin
F := 5*(x+10)*(x+2)+2;
end;
BEGIN
a := -20; b := 20; M := a; R:= F(a);
for t := a to b do
if (F(t)<R) then begin
M := t; R:= F(t);
end;
Write(M);END.
21)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
22)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
Begin
F := 19*(11-x)*(11-x)+27;
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(R);END.
23)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
Begin
F := 15*(5+x)*(5+x)+125;
end;
BEGIN
a := -25; b := 25; 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;
Writeln(M);END.
24)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
Begin
F := 26*(9+х)*(9+х)+131;
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(R);END.
25)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
Begin
F := 19-19*(x-1)*(x-1);
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;
Writeln(M);END.
26)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R :integer;
Function F(x:integer):integer;
Begin
F := (x*x-9)*(x*x-9)+5 end;
Begin
a := -13;b := 13;M := a;R := F(a) ;
for t := a to b do
if (F(t) < R) then begin
M := t; R := F(t)
end;
write(M+7) end.
27)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R :integer;
Дата добавления: 2022-06-11; просмотров: 21; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!