осуществить еще
осуществить еще одну проверку, то можно установить и совпадение, после чего дальнейшие шаги не обязательны.)
*
Если остался интервал единичной длины, то переходим к заключительному шагу 4, в противном случае - к шагу 1.
*
Либо единственный элемент интервала совпадает с образцом, либо - искомого элемента в массиве нет.
Пример #1.
Задумайте число от 1 до 100. Ваше число больше 50? -- Да. -- Ага, остался интервал от 51 до 100. Ваше число больше 75? -- Нет. -- Теперь остается промежуток от 51 до 75. И так далее.
Напишем соответствующую паскаль-функцию.
const N=100;
type
index1 = 0..N-1;
massive1 = array [index1] of byte;
procedure InitArray1 (var Mas: massive1);
var i: index1;
begin
for i:= 0 to N-1 do
Mas[i]:= N-i;
end;
type
index1 = 0..N-1; {N > 1}
Programmer = record of
Name: string; Number: byte; Time: word
end;
var Results = array [index1] of Programmer;
type
index1 = 0..N-1; {N > 1}
massive1 = array [index1] of
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
