Паскаль в примерах. Иринчеев А.А - 53 стр.

K:=K+2;                      K:=K+2;
 WRITELN(K:3);                WRITE(K:3);
UNTIL K> 10                  UNTIL K>=10
 END.                         END.
Ответ будет такой            Ответ будет такой
2 4 6 8 10 12                2 4 6 8 10

     Пример 31. Составить программу для определения k, при котором функция xk /k стано-
вится меньше a, где k=1, 2, 3, ...
     Решение. Это типичный пример организации цикла с неизвестным числом повторений.
Логическим выражением является выражение xk /k < a. Начальное значение k=1. В теле цик-
ла изменяется значение k оператором k+1.
PROGRAM PR31;
 VAR
 X,A,P:REAL;
  K:INTEGER;
  BEGIN
WRITE(‘ Введите Х и А’);
READLN(X,A);
 K:=0;
 P:=1;
  REPEAT
  K:=K+1;
  P;=P*X;
  UNTIL P/K<=A;
  WRITELN(‘K= ‘,K:3);
  END.

     Пример 32. Составить программу для вычисления средних значений величин, изменяю-
щихся одновременно по формуле
                    (a + b + c )
               Χi =
                         3
где a - переменная, изменяющаяся от значения 0.1 с шагом 0.1;
    b - переменная, изменяющаяся от b0 c шагом hb;
    c - переменная, значения которой вводятся в цикле.

PROGRAM PR32;
 CONST AO=0.1: HA=0.1;
VAR
  A,B,B0,HB,XI,C:REAL;
  I,N:INTEGER;
BEGIN
  WRITE(‘ Введите B0,HB,N);
  READLN(B0,HB,N);
A:=A0;
B:=B0;
I:=0;
   WRITELN(‘XI     A   B C ‘);
REPEAT
 I:=I+1;
  WRITE(‘Введите С’);
  READLN(C);

                                                                                     53