Цикл: как работает цикл в цикле

@123456789igor · Регистрация: 13.12.2010

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

Не могу понять как работает цикл в цикле
например:

Pascal

repeat
begin
lalalala
if что-то1<>100 then
begin
lalalala2
что-то1:=что-то1+1;
end
end
until что-то2<чего-то

Выполняется это так?
Заходим в цикл repeat делаем lalalala затем входим в условие if делаем lalalala2 затем будет выполняться if пока что-то1 не станет равным 100 и только потом перейдет на until так?

Вот наглядный пример с которым мучаюсь, у меня есть таблица в ней в ячейке(8,1) есть текст далее в каком-то, неизвестном, кол-ве ячеек вниз пусто и потом опять в одной ячейке что-то есть надо объединить ячейку 8,1 со всеми пустыми ячейками,вниз, до след заполненной. И то же самое проделать с следующей.

Delphi

z:=Excel.WorkBooks[1].WorkSheets[1].UsedRange.Rows.Count-1;
     a_:=8;
     NRow:= a_;
     NCol:= 1;
     dir:= Excel.WorkBooks[1].WorkSheets[1].Cells[NRow,NCol];
     repeat
     begin
     NCol:= 1;
     If dir<>'' then
      begin
      Excel.WorkBooks[1].WorkSheets[1].Range[Excel.WorkBooks[1].WorkSheets[1].cells[NRow,NCol],Excel.WorkBooks[1].WorkSheets[1].cells[NRow+1,NCol]].merge;
      //NRow:=NRow+1;
      dir:= Excel.WorkBooks[1].WorkSheets[1].Cells[NRow+1,NCol];
      end
      //else
      //NRow:=NRow+2;
      end;
     until NRow<z;

Объединяется только ячейка 8,1 и 9,1

Добавлено через 41 минуту
про цикл в цикле это я погорячится так как if не цикл, но все равно мне не понятно как бы выполнялось следующее:
если в while вложен for как работать все будетработать? выполнит while затем все варианты for а потом вернется к while? что то я запутался

Одиночка · 20.09.2012, 05:45

Delphi

   NRow:= 8;
   NCol:= 1;
   repeat
       dir:= Excel.WorkBooks[1].WorkSheets[1].Cells[NRow+1,NCol];
       While (dir='') And (NRow<Excel.WorkBooks[1].WorkSheets[1].UsedRange.Rows.Count) Do
       //Будем выполнять объединение пока следующая строка пустая
       begin
         Excel.WorkBooks[1].WorkSheets[1].Range[Excel.WorkBooks[1].WorkSheets[1].cells[NRow,NCol],
         Excel.WorkBooks[1].WorkSheets[1].cells[NRow+1,NCol]].merge;
         dir:= Excel.WorkBooks[1].WorkSheets[1].Cells[NRow+1,NCol]; //Для проверки следующей строки
      end;
      Inc(NRow);
   until NRow>Excel.WorkBooks[1].WorkSheets[1].UsedRange.Rows.Count-1;

Примерно так.

@Arcor · 20.09.2012, 14:44

цикл в цикле

заходим в первый цикл, выполняем код который в нем расположен, например находится далее еще 1 цикл, выполнится этот внутренний цикл, как только выполнился, переход дальше по коду, дальше у нас возврат в 1 цикл, заходим снова в первый цикл, далее идет снова второй.. выполняется второй цикл... далее снова переход на первый... и так далее пока первый, внешний цикл, не достигнет нужного условия, тогда он прекратит свою работу

например

Delphi

for i := 1 to 10 do begin
  for j := 1 to 10 do begin
    WriteLn('Привет Мир')
  end;
  WriteLn;
end;
    ...

выполняется цикл с i, она равна сейчас 1, далее считаем цикл с j 10 раз подряд, выведет 10 раз подряд "Привет Мир", затем поставит переход на новую строку, сделает пробел, переход снова в цикл с i, она сейчас равна 2, далее цикл с j он выполнится, снова переход в i она уже будет 3.. и вот так далее

и вот получится выведется 10 раз по 10 "блоков", "Привет Мир"

@123456789igor · 21.09.2012, 20:06 **[ТС]**

Delphi

a_:=9;
      z:=Excel.WorkBooks[1].WorkSheets[1].UsedRange.Rows.Count-2;
      while a_ < z do
      begin
      repeat
      Excel.Range[Excel.cells[a_-1,1],Excel.cells[a_,1]].merge;
      inc(a_);
      until VarToStr(Excel.cells[a_,1]) <> '';
      break;
      end;

Сделал так, но объединяет только с 9 по 23 строку, 24 не пустая, а дальше опять идут пустые. Как изменить код, что бы объединяло дальше с 24?

Одиночка · 21.09.2012, 20:23

Думаю так:

Delphi

  a_:=9;
  while a_ < Excel.WorkBooks[1].WorkSheets[1].UsedRange.Rows.Count-2 do
  If VarToStr(Excel.cells[a_,1]) = '' Then
  repeat
    Excel.Range[Excel.cells[a_-1,1],Excel.cells[a_,1]].merge;
  until VarToStr(Excel.cells[a_,1]) <> '' Else inc(a_);

Каждый раз нужно брать текущий размер таблицы - он же меняется при объединении строк. И при объединении, думаю, индекс не нужно наращивать. Если. например, первая и вторая строки объединились - то третья станет второй. Else - относится к If.

@123456789igor · 21.09.2012, 20:39 **[ТС]**

Project Project2.exe raised exception class EOleSysError
with message 'Ошибка'. Process stopped. Use Step or to continue.
((((

Одиночка · 21.09.2012, 20:48

Если у тебя последняя обрабатываемая строка пустая - может из-за этого. Тогда нужно доделать:

Delphi

  a_:=9;
  while a_ < Excel.WorkBooks[1].WorkSheets[1].UsedRange.Rows.Count-2 do
  If VarToStr(Excel.cells[a_,1]) = '' Then
  repeat
    Excel.Range[Excel.cells[a_-1,1],Excel.cells[a_,1]].merge;
  until (a_ >= Excel.WorkBooks[1].WorkSheets[1].UsedRange.Rows.Count-2) Or (VarToStr(Excel.cells[a_,1]) <> '')
  Else inc(a_);

@123456789igor 0 / 0 / 0 Регистрация: 13.12.2010 Сообщений: 48
	21.09.2012, 20:39 [ТС]	6
	Project Project2.exe raised exception class EOleSysError with message 'Ошибка'. Process stopped. Use Step or to continue. (((( 0

	21.09.2012, 20:48

Опции темы