Алгоритмические языки и программирование. Игошина Л.В. - 86 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

First - адрес начала просматриваемой части.
Last - адрес конца просматриваемой части
< =
>
Текст программы
Uses crt;
Var X:array[1..10000] of integer;
isk,i,n,adr,First,Last:integer;
Begin
write(' Введите число элементов в массиве - n ');
readln(n);
First:=1
Last:=n
Цикл
Last ≥
First
adr:=(First+
Last) div 2
isk :
X
[
adr
]
Элемент
не
найден
Конец
Last:=adr-1
First:=adr+1
Вывод
элемента 
                First:=1               First - адрес начала просматриваемой части.
                Last:=n
                                       Last - адрес конца просматриваемой части


                      Цикл
                      Last ≥
                      First


                adr:=(First+                                  Элемент
                Last) div 2                                     не
                                                              найден



            <         isk :          =
                                                                Конец
                      X[adr]

                           >



                                                             Вывод
        Last:=adr-1            First:=adr+1                  элемента




                                         Текст программы

Uses crt;
      Var X:array[1..10000] of integer;
          isk,i,n,adr,First,Last:integer;
          Begin
            write(' Введите число элементов в массиве - n ');
            readln(n);

Страницы