TURBO PASCAL:Учебное пособие. Терёхин В.В. - 55 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

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

Рубрика: 

55
z, k: integer;
begin
Writeln('Введите точность');
Read(e);
S = 0;
x = 1;
z = 1;
k = 1;
while x > e do
begin
S:= S + z * x;
k:= k + 1;
x:= 1 / Sqr(k) ;
z : = - z ;
end;
Writeln('S= ', S, ' k= ', k);
end.
17.3 Цикл типа Repeat... Until
Этот цикл во многом похож на цикл While, но отличает-
ся от него тем, что условие проверяется не в начале цикла, а в
конце, и это не условие продолжения цикла, а условие выхода
из него.
В отличие от цикла While, тело цикла Repeat... Until
всегда выполняется по крайней мере один раз.
Repeat
<оператор 1>;
<оператор 2>;
……………….
<оператор n>;
Until <выражение типа Boolean>;
В данном случае <выражение типа Boolean> - это усло-
вие выхода из цикла (пока условие - ложно, тело цикла выпол-
няется). Конструкция цикла такова, что для организации тела 
   z, k: integer;
begin
   Writeln('Введите точность');
   Read(e);
   S = 0;
   x = 1;
   z = 1;
   k = 1;
   while x > e do
   begin
       S:= S + z * x;
       k:= k + 1;
       x:= 1 / Sqr(k) ;
       z:=-z;
   end;
    Writeln('S= ', S, ' k= ', k);
end.

       17.3 Цикл типа Repeat... Until
       Этот цикл во многом похож на цикл While, но отличает-
ся от него тем, что условие проверяется не в начале цикла, а в
конце, и это не условие продолжения цикла, а условие выхода
из него.
       В отличие от цикла While, тело цикла Repeat... Until
всегда выполняется по крайней мере один раз.
       Repeat
          <оператор 1>;
          <оператор 2>;
          ……………….
          <оператор n>;
       Until <выражение типа Boolean>;
       В данном случае <выражение типа Boolean> - это усло-
вие выхода из цикла (пока условие - ложно, тело цикла выпол-
няется). Конструкция цикла такова, что для организации тела

                                                            55

Страницы