Лабораторная работа №7

Тема: Программирование с использованием процедур и функций.

Необходимые сведения

Пошаговая отладка программ (команды F7 и F8).

Пример: Написать программу для вычисления и вывода на экран биномиальных коэффициентов по формулам .

Вариант программы:

Var

Rab : Integer;

Procedure Sochet(K,L : Longint; Var Rez : Longint);

Var A, B, C : Longint;

Function fac(M : Longint) : Longint;

Begin If M=0 Then fac:=1 Else fac:=M*fac(M-1) End;

Begin A:=fac(K); B:=fac(L); C:+fac(K – L);

Rez:=Trunc(A/(B*C))

End;

(Головная программа. Раздел операторов)

Begin

WriteLn (‘Введите числа М < N’); ReadLn (M,N);

If M >=N then

Begin

WriteLn (‘M=’,M’>, N, ‘N=N!’); halt(0)

End

Else

Begin

Sochet(N,M,Rab); WriteLn (‘C=’, Rab);

End;

End.

Варианты заданий

1. Написать подпрограмму, которая выводит на печать элементы одномерного массива в порядке возрастания их значений. В головной программе вызвать эту подпрограмму для разных массивов.

2. Написать подпрограмму вычисления матрицы B = A³, где А – матрица размерности N´ N.

3. Написать подпрограмму вычисления суммы с точностью до 0.001, в качестве параметра выбрать x.

4. Написать подпрограмму, вычисляющую номера строк целочисленной матрицы размером N´ N, все элементы которых делятся на 3 без остатка.

5. Вычислить значения функции с заданной точностью e=0.001, в качестве параметра задать x.

6. Составить подпрограмму вычисления суммы , при a £ x £ b с шагом h= (b – a)*0.1. Значения a, b, N передать в качестве параметров.

7. Составить подпрограмму вычисления выражения: , где a_k= 0.1 * k +0.05, k=0.11,…,n. Значения N и x передать в качестве параметров.

8. Составить программу вычисления с точностью до 0.001, где x передать в качестве параметра.

9. Даны вещественные числа . Написать подпрограмму вычисления следующего выражения: , где N, x и массивы a и b передать в качестве параметров.

10. Даны массивы . Определить функцию

11. Написать подпрограмму, которая сортирует одномерный массив в порядке убывания. В основной программе вызвать эту подпрограмму для сортировки двух разных массивов.

12. Составить программу: , где N и x передать параметрами.

13. Вычислить значения функции: с точность eps= 0.002, значение X передать параметром.

14. Написать подпрограмму поиска максимального и минимального элементов одномерного массива. В основной программе вызвать этой программу для двух разных массивов.

15. Написать подпрограмму печати значений функции , при x изменяющемся от 0,1 до 2,4 с шагом 0,05 по 5 значений в строке.