B21 - Анализ программ с циклами и подпрограммами

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

Var a,b,t,M,R :integer;
Function F(x:integer):integer;
begin
  F:=4*(x-1)*(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.

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

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.

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

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. 

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

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. 

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

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.

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

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. 

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

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.

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

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.

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

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.

10. Определите, количество чисел K, для которых следующая программа вы-ведет такой же результат, что и для K=20:

  var i, k: integer;
  function F(x:integer):integer;
  begin
    F:=x*x+5*x;
  end;
  begin
    i := 15;
    readln(K);
    while (i > 0) and (F(i) > K) do 
      i:=i-1;
    writeln(i);  
  end.