Вычисление и печать числа элементов последовательности при заданных условиях

Задача №5

Элементы последовательности вычисляются рекуррентно.

Задание: составить программу для вычисления и печати числа элементов последовательности удовлетворяющих следующим условиям:

   Число элементов последовательности равно15. U₀=100. │U_n│<10.

Решение.

Обозначим число элементов последовательности – n.

Начальное значение последовательности –U0

Текущее значение последовательности – U

Число элементов удовлетворяющих условию – k.

Таблица переменных.

Переменная	Обозначение переменной	Тип переменной	Примечание
n	n	integer	Число элементов последовательности
i	i	integer	Произвольный номер слогаемого
k	k	integer	Число элементов удовлетворяющих условию
U0	U0	real	Начальное значение U
U	U	real	Произвольное значение U

Схема алгоритма.

Программа.

{Выполнил студент группы АПМ-02 Егоров К.А.}

program prim5;      {Вычисление количества элементов удовлетворяющих условию}

 var                {Начало раздела переменных}

  U0,U  :real;      {Присваивание переменным значений вещественных чисел}

  i,k,n :integer;   {Присваивание переменным значений целых чисел}

 begin              {Начало раздела операторов}

  writeln( 'Введите U0,n'); {Приглашение для ввода U0 и n}

  read(U0,n);               {Ожидание ввода U0 и n}

  U:=U0;                    {Присваивание начального значения U0}

  k:=0;                     {Присваивание начального значения n}

  for i:=1 to n do          {Начало цикла}

   begin                     {Начало раздела операторов цикла}

    U:=-U/2;                  {Вычисление значений U}

    if abs(U)<10 then k:=k+1; {Строка счётчика}

   end;                      {Окончание цикла}

  writeln(' Дано Uo=',U0:5:1,' n=',n:3);{Вывод введённых условий}

  writeln(' Число элементов удовлетворяющих условию abs(U)<10 k=',k:2){число эл}

end.                        {Конец программы}

Контрольный вариант.

U0=30 n=3 k=2

Вид печати.

Введите U0,n

100 15

 Дано Uo=100.0 n= 15

 Число элементов удовлетворяющих условию abs(U)<10 k=12