Write(R);
Учебные материалы


Write(R);



Карта сайтаПереход по ссылке Переход по ссылке Переход по ссылке Переход по ссылке

Загрузка...
Загрузка...
Загрузка...

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)

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)

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)

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)

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 := -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(M);

End.

23) (

А. Лаздин

) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:



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;



edu 2018 год. Все права принадлежат их авторам! Главная