1. Описати функцію ступінь(x,n) від дійсного х та натурального n, яка обчислює (через множення) величину xn, та використати її для обчислення
B=2.7k + (a+1)-5.
2. Дано відрізки a, b, c та d. Для кожної трійки цих відрізків, з яких можна побудувати трикутник, надрукувати площину цього трикутника. (Визначити процедуру друкплощ(x,y,z), яка друкує площину трикутника зі сторонами x,y та z, якщо такий трикутник існує).
3. Нехай процедура maxmin(x,y,z) присвоює параметру х більше з дійсних чисел х та у, а параметру у – менше. Використати процедуру для перерозподілу значень дійсних змінних a, b та c так, щоб стало .
4. const n=100;
type вектор=array [1..n] of real;
var a,b,c,d: вектор.
Нехай процедура sum(x,y,z) присвоює вектору z суму векторів x та y. Використати цю процедуру для розрахунку d=a+b+c.
5. Відома довжина кожної сторони трикутника (a, b, c). Знайти медіани трикутника, сторонами якого є медіани заданого трикутника. Довжина медіани, яка проведена до сторони a, дорівнює: .
6. За заданими 20-елементними цілими масивами х та у розрахувати:
7. За заданими 50-елементними дійсними масивами a, b та c розрахувати:
8. type вектор=array [1..n] of char;
Описати процедуру перетвор(x, y, a, b) від чотирьох векторів, яка перетворює вектори х та у до такого вигляду:
x = (a1, a2, …, a8, x 9, x10, …, x20),
y = (y1, …,y5, b1, …, b6, y12, …, y16, a1, …, a4).
9. Задано три дійсні квадратні матриці. Надрукувати ту з них, норма якої найменша (прийняти, що така матриця одна). В якості норми матриці взяти максимум абсолютних величин її елементів.
10. Задано дві квадратні дійсні матриці 10-го порядку. Надрукувати ту з них, в якої найменший слід (сума діагональних елементів), прийнявши, що така матриця одна.
Додаток 6