Паскаль. Основы программирования


           

Составьте программы вывода на экран


Задание 2
Составьте программы вывода на экран членов последовательности до члена, меньшего заданного положительного числа eps,  0 < eps < 1. Возьмите для задания примеры 1, 3, 6:
1) 
 где x - любое действительное число,
3)
 где x - любое действительное число,
6)
 при
 
Усложним задачи и разберем следующий пример.
Пример 6. Дано положительное число eps. Последовательность a1, a2, a3,... образована по следующему закону: 

Найти первый член an последовательности, для которого выполнено условие:

Составить программу выполнения этого задания.
Алгритм
1. Содержание.
а) Переменные и их типы. Переменная i принимает целые значения:
 Переменные ap, an и eps принимают вещественные значения.
2. Основная часть.
а) Ввод значения eps.
б) Установить первоначальные значения переменных i, ap и an:
i := 1, ap := 1, an := 1 - 1/2.
в) Цикл "пока" с условием: abs(an - ap) >= eps.
Команды в цикле. Значения i каждый раз в цикле должны увеличиваться на единицу; значения ap := 1 - 1/i; значения an := ap*(1 - 1/(i + 1)).
г) После завершения работы цикла, вывод значения an на экран. Можно вывести и номер i этого члена последовательности.
3. Конец.
Составим процедуру и программу, используя алгоритм.
Программа
Program Problem6;
     uses
WinCrt;
     var
        i         : integer;
        a, eps : real;
{----------------------------------------------------------------------------------------}
{ Функция вычисления порядка - кол-во знаков после запятой }
     Function t(eps : real) : integer;
         var
            k : integer;
         begin
            k := -1;
            repeat
               eps := eps*10;
               k := k + 1
            until
eps > 1;
            t := k
         end;
{----------------------------------------------------------------------------------------}
     Procedure
Create_succession(eps : real; var i : integer; var a : real);
           var
               i : integer;
               an, ap : real;

Содержание  Назад  Вперед