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

Страницы работы

Содержание работы

Задача №5

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

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

   Число элементов последовательности равно15. U0=100. │Un│<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

Похожие материалы

Информация о работе

Предмет:
Информатика
Тип:
Отчеты по лабораторным работам
Размер файла:
32 Kb
Скачали:
1