GoTo

@Qlimax · Регистрация: 27.04.2011

Author24 — интернет-сервис помощи студентам

День добрый, возникли проблемы при использовании goto, необходимо повторить цикл n раз с условием. Суть такая изначально поиск максимального значения в массиве, затем проверка условия, если условие выполняется тогда идет дальше если нет то возвращается к поиску максимального значения,заранее исключив возможность выбора того же числа.
прописал его вот так вот,по идеии по логике все нормально, из заданых 32х раз он еле как делает 14 и то все криво-косо

Delphi

For ij:=1 to nc do
 begin
 Goto goto1;
 goto 1 : 
   For i:=0 to m-1 Do
     For  j:=0 to n-1 Do
       if MassSum[i,j] > MassSum[vod1,vod2]   then
          begin
          vod1:=i;
          vod2:=j;
          end;
 
 if  ((vod1-stepxm)<0) or ((vod2-stepym)<0) then   begin
                                                     MassSum[Vod1,Vod2]:=1;
                                                     goto goto1;
                                                   end;
 
 if  ((vod1+stepxm)>m) or ((vod2+stepym)>n) then   begin
                                                     MassSum[Vod1,Vod2]:=1;
                                                     goto goto1;
                                                   end;              
 
   begin
     For ik:= vod1-stepxm to vod1+stepxm do
        For jk:=vod2-stepym to vod2+stepym do
            if MassSum[ik,jk] >0 then
            na:= MassSum[ik,jk]
              else  
                begin
                  MassSum[Vod1,Vod2]:=1;
                  goto goto1;
                end;      
   end;
 
   begin
    For ik:= vod1-stepxm to vod1+stepxm do
        For jk:=vod2-stepym to vod2+stepym do
            MassSum[ik,jk] := -1500;
        end;
  end;
 ij:=ij+1;

если в место норального условия впихнуть брйк, он начинает нормально работать, но по всей логике это не правильно, ибо в случае невыполнения условия он не возвращаеться к поиску максимума.

Delphi

For ij:=1 to nc do
 begin
   For i:=0 to m-1 Do
     For  j:=0 to n-1 Do
       if MassSum[i,j] > MassSum[vod1,vod2]   then
          begin
          vod1:=i;
          vod2:=j;
          end;
 
   begin
     For ik:= vod1-stepxm to vod1+stepxm do
        For jk:=vod2-stepym to vod2+stepym do
            if MassSum[ik,jk] >0 then
                    else    break;
           
   end;
 
   begin
    For ik:= vod1-stepxm to vod1+stepxm do
        For jk:=vod2-stepym to vod2+stepym do
            MassSum[ik,jk] := -1500;
 
     end;
  end;
 ij:=ij+1;

прошу помочь) и лучше всего объяснить в чем косяк)

@Fenix_dragon · 14.05.2013, 21:36

Qlimax, брейк прервёт только ПЕРВЫЙ цикл, в который он входит.

@Qlimax · 15.05.2013, 06:19 **[ТС]**

я знаю, но если оставить так, тогда он почему то нормально все делает, ну относительно нормально ) результат меня более менее устраивает, а если с goto, тогда все как то не так, там где есть максимум в итоге он не ставит.

@Fenix_dragon 118 / 118 / 2 Регистрация: 29.01.2013 Сообщений: 437
	14.05.2013, 21:36	2
	Qlimax, брейк прервёт только ПЕРВЫЙ цикл, в который он входит. 0

@Qlimax 0 / 0 / 0 Регистрация: 27.04.2011 Сообщений: 24
	15.05.2013, 06:19 [ТС]	3
	я знаю, но если оставить так, тогда он почему то нормально все делает, ну относительно нормально ) результат меня более менее устраивает, а если с goto, тогда все как то не так, там где есть максимум в итоге он не ставит. 0