Пример 8 { функцию для вычисления знаменателя}

Вычислить, используя функцию нахождения знаменателя:

(n слагаемых)

Решение:

Program pr8;

Var s: real;

i, n: integer;

{ функция вычисления суммы первых m натуральных чисел}

Function Sum(m:integer):integer;

Var

k, S: integer;

begin

S:=0;

for k:=1 to m do

S:=S+k;

Sum:=S;

end;

Begin

write('n= '); Readln(n); {вводим количество слагаемых суммы}

s:=0;

for i:=1 to n do {перебираем i от 1 до n}

s:=s+i*5/sum(i+1); {добавляем к сумме очередную дробь, вызывая}

{ функцию для вычисления знаменателя}

writeln('s=',s:6:4) {вывод результата}

end.

Результат:

n=3

s=4.8333

ЗАДАНИЯ

1. Найти минимальное из A, B, C, создав функцию выбора минимального из двух произвольных чисел.

2. Найти максимальное из чисел A, B, C, D, создав процедуру выбора максимального из 2-х произвольных чисел.

3. Сократить дробь вида a/b (a, b – вводимые натуральные числа), создав функцию для нахождения наибольшего общего делителя двух натуральных чисел.

4. Найти наибольший общий делитель чисел A, B, C, создав функцию для нахождения НОД двух натуральных чисел.

5. Два прямоугольных треугольника заданы своими катетами. Определить, у какого из них площадь больше (создать функцию для вычисления площади прямоугольного треугольника по его катетам).

6. Два прямоугольника заданы координатами вершин. Определить, площадь какого из них больше (использовать функцию нахождения площади прямоугольника).

7. Два прямоугольных треугольника заданы своими катетами. Определить, у какого из них периметр больше (создать функцию для вычисления периметра прямоугольного треугольника по его катетам).

8. Вводятся 2 натуральных числа. Найти среднее арифметическое цифр каждого из них (создать функцию для нахождения среднего арифметического цифр произвольного натурального числа).

9. Вводятся 3 натуральных числа. Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа).

10. Вычислить 3^-2 + 4² +5^-2, создав функцию для вычисления степени.

11. Вычислить (-3² + 2⁴)/4^-2, создав функцию для вычисления степени.

12. Найти (a! + b!)/(a+b)!, создав функцию для вычисления факториала произвольного натурального числа.

13. Найти m! + (m+n)!, создав функцию для вычисления факториала произвольного натурального числа.

14. Вычислить, используя функцию нахождения знаменателя:

(15 слагаемых)

15. Вычислить, используя функцию нахождения знаменателя:

... (n слагаемых)

16. Вычислить, используя функцию нахождения знаменателя:

(n слаг.)

17. Вычислить, используя функцию нахождения знаменателя:

(15 слаг)

18. Вычислить, используя функцию нахождения знаменателя:

... (n слагаемых)

19. Вычислить, используя функцию нахождения знаменателя:

(n слаг.)

20. Вычислить, используя функцию нахождения знаменателя:

(15 слаг)

ЛИТЕРАТУРА

1. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие.-М.: «Нолидж», 1999-616с., ил.

2. Д. Праймс. Программирование на языке Паскаль. Практическое руководство М.: Мир, 1997.

3. Васюкова Н.Д., Тюляева В.Р. Практикум по основам программирования языка Паскаль. Учебное пособие. М.: Высшая школа. 1991.

4. Фаронов В.В. Турбо Паскаль 7.0. Практика программирования. Учебное пособие.-М.: «Нолидж», 1999-432с., ил.

5. Д. Праймс. Программирование на языке Паскаль. Практическое руководство М.: Мир, 1997.

6. Вирт Н. Алгоритмы и структуры данных. – М.,1989.