Программированиеx

advertisement
1) Определите значение переменной с после выполнения следующего фрагмента программы:
a := 40;
b := 6;
a := a *
if a > b
c := a
else
c := a
3 / b;
then
+ 5 * b
- 5 * b;
2) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 0;
s := 0;
while s <= 256 do begin
s := s + 25;
n := n + 1
end;
write(n)
end.
3) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 1;
s := 0;
while n <= 101 do begin
s := s + 7;
n := n + 1
end;
write(s)
end.
4) Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими
соотношениями:
F(0) = 1, F(1) = 1
F(n) = F(n–1)*F(n-2)+2, при n > 1
Чему равно значение функции F(5)? В ответе запишите только натуральное число.
5) Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими
соотношениями:
F(0) = 1, F(1) = 1
F(n) = F(n–1)*F(n-2)+1, при n > 1
Чему равно значение функции F(6)? В ответе запишите только натуральное число.
6) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M .
Укажите наименьшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а
потом 7.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 5 do begin
L:= L + 1;
if M < (x mod 10) then M:= x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
end.
7) Ниже записана программа. Получив на вход число x , эта программа печатает два числа, L и M .
Укажите наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 3, а потом 4.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=9;
while x > 5 do begin
L:= L + 1;
if M > (x mod 10) then M:= x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
end.
8) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
9) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
Скачать