Книги-online

Алгоритмы, реализуемые с помощью циклов типа ПОКА

• Число повторений заранее не известно (например, цикл до достижения требуемой точности результата, цикл до первого отрицательного элемента массива и т.п.). Такой цикл называется циклом типа пока с прерыванием.

• Число повторений заранее известно, но шаг параметра цикла не равен 1 (в школьном АЯ) или 1, -1 (в Pascal). Такой цикл называется циклом типа пока без прерывания.

Цикл типа пока с прерыванием

i:=1; Flag:="Нет"
нц пока (i<=N) и (Flag="Нет")
    если A[i]<0
        то Flag:="Да"; k:=i
        иначе i:=i+1
    все
кц

i:=1; Flag:=FALSE;
While (i<=N) and not Flag do
  If A[i]<0 
    then begin
           Flag:=TRUE; k:=i
         end
    else i:=i+1;

i=1 : Flag=0
WHILE (i <= N) AND (Flag = 0)
  IF A(i)<0 THEN
      Flag=1 : k=i
    ELSE i=i+1
  END IF
WEND

Цикл типа пока без прерывания

        i:=1; S:=0
        нц пока i<=N
           S:=S+A[i]
           i:=i+2
        кц

        i:=1; S:=0;
        While i<=N do
          begin S:=S+A[i];
                i:=i+2
          end;

        S=0
        FOR I=1 TO N STEP 2
          S=S+A(I) 
        NEXT I

• в языке Pascal оператор цикла с постусловием Repeat...until:

 

Repeat    тело цикла  until <условие завершения>

Повторять тело цикла до тех пор, пока не выполнится условие завершения цикла.

 

• в языке QBasic операторы цикла DO WHILE ... LOOP и  DO UNTIL ...  LOOP (англ. LOOP - виток, петля):

 

DO WHILE <условие продолжения>    тело цикла  LOOP	Пока выполняется условие продолжения цикла, повторять тело цикла.
DO UNTIL <условие завершения>     тело цикла  LOOP	Повторять тело цикла до тех пор, пока не выполнится условие завершения цикла.