Если лень перебирать вручную, можно воспользоваться программой
var k,l,r,x,f:integer; begin f := 3001; l := 0; r := 65534; x := (l + r) div 2; k := 1; while (x <> f) and (l < r) do begin writeln(k,' ',l,' ',r,' ',x); k := k + 1; if f < x then r := x - 1 else l := x + 1; x := (l + r) div 2 end; writeln(k,' ',l,' ',r,' ',x); end.
Тест по теме «Алгоритмы в языке Паскаль»
Вариант 1
1. Алгоритм, в котором команда или серия команд повторяется, называется
А) циклическим;
2. Укажите процесс, который демонстрирует работу циклического алгоритма:
A) движение часовой стрелки;
3. Какой цикл называют циклом с предусловием?
B) While;
5. Требуется подсчитать сумму натуральных чисел от 5 до 125. Какое условие нужно использовать в цикле While?
C) i<=125.
6. Сколько раз будет выполняться цикл For i:=7 to 12 do…;
B) 6 раз;
7. Сколько раз исполнится цикл:
i:=4;
while i<10 do i:=i+3;
A) 2 раза;
8. Сколько раз исполнится следующий цикл:
i:=21;
Repeat
i:=i-5
Until i<21;
A) 1
9. Чему будет равна переменная sum после выполнения фрагмента программы:
sum:=0;
for i:=7 to 9 do
sum:=sum+i;
B) 24;.
10 . Чему равна переменная с после выполнения алгоритма:
а:=2
b:=3
а:=а*b=6
b:=a+b=9
c:=3-2*a+b=0
c:=c-b=-9
C) -9
Тест по теме «Алгоритмы в языке Паскаль»
Вариант 2
1.Алгоритм, в котором команда или серия команд повторяется называется
A) циклическим;
2.Укажите процесс, который демонстрирует работу циклического алгоритма:
C) движение Земли вокруг своей оси.
3.Какой цикл называют циклом с постусловием?
A) Repeat;
5.Требуется подсчитать сумму натуральных чисел от 2 до 22. Какое условие нужно использовать в цикле While?
A) i<23;
6.Сколько раз будет выполняться цикл For i:=4 to 8 do…;
A)5 раз;
7.Сколько раз исполнится цикл:
i:=6;
while i<18 do i:=i+3;
C)4 раза.
8. Сколько раз исполнится следующий цикл:
i:=12;
Repeat
i:=i-2
Until i<4;
B)5;
9.Чему будет равна переменная sum после выполнения фрагмента программы:
sum:=0;
for i:=5 to 8 do
sum:=sum+i;
C)26.
10. Чему равна переменная с после выполнения алгоритма:
а:=4
b:=1
b:=b-a=-3
b:=b*a=-12
a:=a-2*b=28
c:=a+b=16
B) 16