9. Циклы while и repeat

Предыдущий раздел:

9.3. Цикл, управляемый меткой

Следующий раздел:

9.5. Вычисления с заданной точностью

9.4. Вычисление номера шага

Когда в разделе 9.1 с помощью циклов с условиями имитировалась работа цикла for, то счетчик шагов использовался для определения момента выхода из цикла. Однако легко представить себе ситуацию, когда выход из цикла осуществляется по какому-нибудь другому условию, а счетчик служит для определения числа шагов, потребовавшегося для вычислений.

Пример: Коммерсант, имея стартовый капитал k рублей, занялся торговлей, которая ежемесячно увеличивает капитал на p процентов. Через сколько лет он накопит сумму s, достаточную для покупки собственного магазина?

Решение:

  x:=k;             {Начальная сумма  равна k}
  n:=0;             {Обнуляем счетчик шагов}	
  while x<s do      {Пока сумма не достигнет s}
  begin
    x:=x*(1+p/100); {увеличиваем ее на p процентов}
    n:=n+1;         {Увеличиваем счетчик шагов на 1}
  end;
  writeln(n div 12, ' years and ', n mod 12, ' months');

Следующий раздел:

9.5. Вычисления с заданной точностью

Предыдущий раздел:

9.3. Цикл, управляемый меткой