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


           

Библиотека часто встречающихся процедур и функций


41. Функция вычисляющая количество  знаков после запятой.

     Function t(eps : real) : integer;

         var

            k : integer;

         begin

            k := -1;

            repeat

               eps := eps*10;

               k := k + 1

            until eps > 1;

            t := k

         end;

42. Процедуры вычисления квадратного корня с заданной степенью точности.

1-й способ

 

Procedure square_root(u, eps : real; var

x : real);

     begin

        x := (u + 1)/2;

         repeat

            x := (1/2)*(x + u/x)

         until abs(x*x - u) <= eps;

     end;

2-й способ

Procedure square_root(u, eps : real; var

x : real);

     var

        x1, x2 : real;

     begin

         x1 := 1;

         repeat

            x1 := (1/2)*(x1 + u/x1);

            x2 := (1/2)*(x1 + u/x1)

        until abs(x2 - x1) <= eps;

        x := x2

     end;

 

Упражнения

167. Дано действительное число

 Последовательность a1, a2, ... образована по следующему закону: 

 Требуется получить все a1, a2, ..., меньшие или равные b.

168. Дано действительное

 Последовательность a1, a2,... образована по следующему закону:
 

Найти первый отрицательный член последовательности a1, a2, ... .

169. Составить программу вычисления и вывода на экран n членов последовательности, заданной формулой n-го члена. (Предварительно составить рекуррентную формулу).

а)

 б)
 в)
 )
 д)

е)

 ж)
 з)
 где x - заданное действительное число,
 

и)

 

170. Составить программу, подсчитывающую сумму n

первых членов последовательности, заданной формулой n-го члена. (Предварительно составить рекуррентную формулу).

а)

 б)
 в)
 г)
 

д)

 е)
 ж)

з)

 и)
 к)
 x - заданное действительное число.

171. Дано действительное

 Последовательность r , a2, ... образована по следующему закону:     
 
 

Найти первый неотрицательный член последовательности.

172. Дано натуральное n. Вычислить:

 

173. Для чисел Фибоначчи u0, u1, ... справедлива формула Бине:

Так как 

 то для больших k выполнено приближенное равенство



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