Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

if (F(t)< R)then begin. write(M);. Var a,b,t,M,R:integer;. Function F(x:integer):integer;. for t:=a to b do begin. 9) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:




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: = -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;

write(M);

End.

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

var a, b, t, M, R: integer;

Function F(x: integer): integer;

begin

F: = 3*(x-8)*(x-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);

end.

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

var a, b, t, M, R: integer;

Function F(x: integer): integer;

begin

F: = 19*(16-x)*(16-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(M);

END.

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

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.

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

var a, b, t, M, R: integer;

Function F(x: integer): integer;

begin

F: = 16* (9-х)*(9-х)+127;

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.

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

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;

Поделиться:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...