Процедури.

Мета роботи: набуття практичних навичок роботи з процедурами.

Завдання на виконання роботи:

1. Написати програму відповідно до варіанту індивідуального завдання.

2. Записати текст програми в файл, який має розширення pas.

3. Відредагувати текст програми та виконати обчислення за її допомогою.

4. Оформити звіт по виконанню лабораторної роботи.

Варіанти індивідуальних завдань:

1. Задано матрицю Z розмірності (5х6).

Скласти схему алгоритму та програму, в якій за допомогою процедури визначити порядкові номери найбільшого елемента у кожному рядку матриці. Введення даних та виведення результатів виконати в основній програмі.

2. Скласти програму, яка б в кожному стовпчику матриці А(10х20) обчис-лювала середнє арифметичне елементів, більших за 0. Вважати, що у кожному стовпчику є додатні елементи.

3. Напишіть програму, яка буде обчислювати суму вірних дільників числа n. Вірними дільниками числа n-є всі дільники цього числа, за виключенням його самого.

4. Задано матрицю В, C, D розмірності (4х6).

Скласти схему алгоритму та програму, в якій за допомогою процедури визначити кількість елементів матриці В, які більші за останній елемент матриці та суму додатних елементів матриці . Введення матриць та виведення результатів виконати в основній програмі.

5. const n=1000;

type vekt=array[1..4] of real;

var a,b,c,d:vekt;

Нехай процедура sum(x,y,z) надає вектору z суму векторів x і y.Описати дану процедуру для обчислення d=a+b-c.

6. Задано матриці С,В, А розмірності (5х5).

Скласти схему алгоритму та програму, в якій допомогою процедури знаходити суму від’ємних елементів матриці та їх кількість . Введення матриць та виведення результатів виконати в основній програмі.

7. Задано три одновимірніх масива.Переставити числа в масивах таким чином, щоб на початку масивів виявилися всі додатні елементи, а в кінці-від’ємні. Перестановку організувати у процедурі.

8. const n=8; m=13;

type matr=array[1..n,1..m] of real;

Описати процедуру SWAP(A,B), яка міняє місцями максимальні елементи матриць А і В. Вважати що в кожній матриці тільки один максимальний елемент.

9. За заданими п’ятиелементними масивами a, b, c (типу real) обчислити: , якщо < інакше.

10. Скласти програму для обчислення значень функції

/2,

де і -мінімальне значення елементів масивів А(40) і В(60), використовуючи процедуруMIN. Для обчислення сум використати процедуру SUM,

11. По заданих 20 елементах масивів Х та У (х,у=array[1..20] of real). Знайти функцію u за формулами

при

12. type WERT=array[1..10] of integer;

var z,x,y:wert;

Якщо максимальний елемент вектора х дорівнює 10 та знаходиться у першій половині цього вектора, та якщо у векторі y немає позитивних елементів, тоді всі елементи вектора z, передуючі його максимальному елементові, замінити на їх куби (вважати, що в кожному векторі такий елемент один).

13. Задано дві квадратні матриці 5-го порядку, елементами яких є дійсні числа. Надрукувати квадрат тієї з них , яка має найменший слід (сума діагональних елементів).Обчислення сліду матриці визначити в процедурі.

14. Дано відрізки a, b, c, d. Для кожної трійки цих відрізків, з яких можна побудувати трикутник , надрукувати площу даного трикутника. Визначити процедуру square(x, y, z), яка шукає площу трикутника зі сторонами x, y, z, якщо такий існує.

15. Задано дві квадратні матриці 5-го порядку, елементами яких є дійсні числа. Надрукувати квадрат тієї з них , яка має меншу кількість від’ємних елементів . Обчислення кількості від’ємних елементів матриці визначити в процедурі.

16. Задано type matr=array[1..10,1..20] of real;

var А, В, С: matr;

Обчислити величину ,

де

17. Задано матриці С,В, А розмірності (4х4).

Скласти схему алгоритму та програму, в якій допомогою процедури знаходити слід матриці. Введення матриць та виведення результатів виконати в основній програмі.

18. type vect=array[1..7] of real ;

var a,f,c,d: vect;

Надрукувати найменші значення кожного з одновимірних масивів у порядку зростання. Визначати найменше та його порядковий номер у процедурі.

19. Задано матриці Z,V,G розмірності (3х4).

Скласти схему алгоритму та програму, в якій за допомогою процедури визначити порядкові номери найбільших і найменших елементів матриці. Введення даних та виведення результатів виконати в основній програмі.

20. const n=8;

m=13;

type matr=array[1..n,1..m] of real;

var a,b:matr;

Описати процедуру swapmin(a,b), що міняє місцями мінімальні елементи матриць А і В. Вважати що в кожній матриці тільки один мінімальний елемент.

21.Дано ціле n від 2 до 20 та дійсне Е > 0. Знайти з точністю до Е всі корені многочлена Чебишева , які обчислюються за формулами

(многочлен має k різних коренів в інтервалі (-1,1), якщо -корені многочлена (x), то многочлен має по одному кореню у кожному з інтервалів

22. Задано матрицю В, C, D розмірності (4х6).

Скласти схему алгоритму та програму, в якій за допомогою процедури визначити кількість елементів матриці В, які більші за 0,99 і менші за 2,58 та суму додатних елементів матриці . Введення матриць та виведення результатів виконати в основній програмі.

23. Задані три матриці А, В та С відповідно розміром (3х3), (4х4), (6х6), елементами яких є дійсні числа x, y, z, які є максимальними елементами відповідно матриць А, В та С. Пошук максимального елементу організувати у процедурі.

24. Задано матрицю В, C, D розмірності (4х6).

Скласти схему алгоритму та програму, в якій за допомогою процедури визначити кількість елементів матриці В, які більші за останній елемент другого рядка та суму додатних елементів матриці . Введення матриць та виведення результатів виконати в основній програмі.

25. Задані координати вершин двох трикутників. Визначити, який з них має більшу площу. Обчислення площі виконати у процедурі.

26. Задані три квадратні матриці четвертого порядку G, F, R, елементами яких є дійсні числа. Надрукувати ту з них , норма якої найбільша (за норму взяти суму модулів елементів матриці).

27. Задано матриці Z,V,G розмірності (3х4).

Скласти схему алгоритму та програму, в якій за допомогою процедури визначити порядкові номери найбільших і найменших елементів матриці. Введення даних та виведення результатів виконати в основній програмі.

28. Задано три одновимірних масиви. Переставити числа в масивах таким чином, щоб на початку масивів виявилися всі від’ємні елементи, а в кінці- додатні. Описати процедуру перестановки для одного масиву та використати її для перестановки даних в інших масивах. Надрукувати результати.

29. Надрукувати усі цифри десятичного запису чисел 1!+2!+3!+..+10!

(Рекомендація: представити “довгі” натуральні числа у вигляді масивів з цифр та реалізувати потрібні операції над ними.

30. Задано матриці С,В, А розмірності (5х5).

Скласти схему алгоритму та програму, в якій допомогою процедури знаходити добуток від’ємних елементів матриці та їх кількість . Введення матриць та виведення результатів виконати в основній програмі.

Комп'ютерний практикум № ТП-10