паскаль. Функции. Ошибка, не переходит по метке

[Антон Лысенко]

у меня выводится сообщение что элемент не найден вместе с сообщением элемент найден. Почему не осуществляется переход по метке?

function SearchEl(var el:integer;a:mas):integer;
  var k,nm,vm:integer;
  label stop;
    begin
     nm:=1; vm:=m;
      repeat
           k:=(nm+vm)div 2;
             if el=a[k] then
                goto stop
             else
               if el<a[k] then
                  vm:=k-1
               else
                  nm:=k+1
      until(nm>vm);
          writeln('element not found!');
          stop: SearchEl:=k
    end;

[Serge_Bliznykov]

начнём с начала - это жутчайший код, он же индусский код, да и другие синонимы есть!
1) метка (и переход) здесь даром не нужна!!

2) после того, как выдастся "element not found" будет возращено какое-то значение K - ведь следующим оператором после writeln идёт SearchEl:=k
Откуда вызывающая программа узнает, что ничего не нашлось?!

3) старайтесь не использовать глобальных переменных в процедурах/функциях.
Раз уж Вы массив передаёте в параметры функции, так и размерность его (которая m - тоже логично передать)

[Stilet]

Интересно а что за задание...

[Антон Лысенко]

Ну я переделал на такое

function SearchEl(var el:integer;a:mas):integer;
  var k,nm,vm:integer;
  label stop;
    begin
     nm:=1; vm:=m;
      repeat
           k:=(nm+vm)div 2;
             if el=a[k] then
                goto stop
             else
               if el<a[k] then
                  vm:=k-1
               else
                  nm:=k+1
      until(nm>vm);
          stop: SearchEl:=k
    end;

  writeln('Enter the desired element');
  readln(el);
  if SearchEl(el,a)>0 then
  writeln('Element is found. Its index =',SearchEl(el,a))
  else
  writeln('element not found!');

покажите более компактный и рациональный код для поиска элемента. Буду учится на примерах.

[Stilet]

код для поиска элемента

Э-э-э это что иммитация бинарного поиска? Что за задание?

[veniside]

Сообщение от Stilet

Интересно а что за задание...

походу это поиск методом половинного деления в отсортированном массиве.

[Антон Лысенко]

найти элемент массива с помощью бинарного поиска.

[Stilet]

Вам сюда, сударь: http://www.programmersforum.ru/showt...288#post729288
Ваш метод мне никак не нравится...

[Антон Лысенко]

Во-первых, это не мой метод, а Г.Г.Рапакова и С.Ю.Ржеуцкой.
Во-вторых, я просмотрел много примеров бинарного поиска, то этот был самым доступным и понятным.
В третьих, вот программа которая правильно работает на том коде, что находится в закрытой теме. Только там всё логично, если число меньше середины, то и верхняя граница опускается до середины. Одно отличие, что та программа линейная. Так что ошибка может быть связана с описанием функций.

program Odnom_mas;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const m=15;
  var mass:array[1..m]of real;
      n,i:integer;
      min,max:real;
      imin,imax:integer;
      flag:integer;
      c:real;
      count:integer;
      x:real;
      ng,vg,t:integer;
      label
           m1;
begin
  write('Ukagite fakticheskiy rasmer massiva:');
  readln(n);
  writeln('vvedite ',n,'elementov massiva:');
  for i:=1 to n do
   read(mass[i]);
   writeln('Bil prinyat massiv:');
   for i:=1 to n do
    write(mass[i]:6:2);
    min:=mass[1];
    max:=mass[i];
    for i:=2 to n do
    begin
     if min>mass[i] then
      begin
      min:=mass[i];
      imin:=i;
      end;
       if max<mass[i] then
       begin
       max:=mass[i];
       imax:=i;
        end
      end;
      writeln;
      writeln('min=',min:6:2,'imin=',imin:2,' max=',max:6:2,'imax=',imax);
       repeat
        flag:=0;
         for i:=1 to n-1 do
          if  mass[i]>mass[i+1] then
           begin
            c:=mass[i];
            mass[i]:=mass[i+1];
            mass[i+1]:=c;
            flag:=1;
           end
        until(flag=0);
       writeln('massiv posle sortirovki:');
       for i:=1 to n do
       write(mass[i]:6:2);
       writeln;
       count:=0;
       for i:=1 to n do
        if round(mass[i]) mod 2=0 then
         count:=count+1;
       writeln('kolichestvo chetnix elementov massiva:',count);

      //Поиск элемента 
     
       writeln('vvedite iskomoe chislo: ');
        readln(x);
        ng:=1; vg:=n; flag:=0;
          repeat
          t:=(ng+vg) div 2;
           if x=mass[t] then
            begin
            flag:=1;
            write('element naiden,ego index=',t);
            goto m1;
          end
           else
           if x<mass[t] then
           vg:=t-1
            else
             ng:=t+1
           until(ng>vg);
           writeln('iskomiy element otsutstvuet v massive');
           m1:readln;
           readln
end.