Лабораторна робота №5

Program Zrist;

Const N=10;

type data = array |l...N| of real;

Var :data;

I:byte;

Begin

....

....

1. for i =1 to N do {цикл зчитування даних}

begin

Write('≈│',i,'|=');

ReadLn(≈│і│);

End;

....

....

end.

Program Out Table;

Const N=4;

M=5;

Type Matrix = array|1..N,1..M|of real;

Var x:Matrix;

I,j:byte;

Begin

....

....

For i: =1 to N do {Здвоєний порядковий цикл виводу}

Begin

For j: =1 to M do Write (Х|i, j|:6:2,' ');

WriteLn;

End;

....

end.

Program FindMin;

Const N=3;

M = 4;

Type Matrix = array|1..N,1..M|of real;

Var i, j: byte;

Min:real;

Imin, jmin: byte;

X: Matrix;

Begin

....

min:= x|1,1|; {Вважаємо мінімальним елемент 1-рядка і1стовбця }

imin: =1; { і запам’ятовуємо його величину та індекси}

jmin: =1;

for i: =1 to N do {Порівнюємо елемент, що ми вважаємо мінімальним }

for j :=1 to M do {з усіма іншими елементами матриці, і якщо}

if min >x|i,j|then {знаходимо серед них ще менший, то вважаємо}

begin {його мінімальним і запам’ятовуємо величину }

min: =x|i,j|; {та індекси нового мінімуму}

imin:=i;

jmin: =j;

end;

WriteLn(' Мінімальний елемент Х |',imin,','jmin,'|=',X|imin,jmin|:6:2);end

Варіант

Завдання

1.

В матриці 4х4 замінити елементи третього стовпчика на їх синуси.

2.

В матриці 4х4 замінити елементи головної діагоналі на їх квадрати.

3.

В матриці 4х4 підрахувати суму елементів другого порядку.

4.

В матриці 4х4 замінити всі нулі на одиниці.

5.

З матриці 4х4 вивести на дисплей другий стовпчик.

6.

Найти мінімальний елемент матриці 4х4.

7.

Вивести на екран вектор (4) побудований з сум рядків матриці 4х4

8.

Побудувати матрицю 4х4, елементи якої дорівнюють сумі своїх

індексів.

9.

Із вектора (4) побудувати матрицю 4х4 першим та останнім

рядком, якого буде заданий вектор, другою та третьою- квадрати

та куби його відповідних елементів.

10.

На базі матриці 4х4 побудувати іншу матрицю, елементи якої будуть дорівнювати квадратам елементів заданої матриці.

11.

В матриці 4х4 обчислити суму максимального та мінімального елементів.

12.

Із матриці 4х4 поміняти місцями першу строку та перший стовпчик.

13.

Обчислити суму елементів матриці 4х4.

14.

Транспонувати матрицю 4х4. (Поміняти місцями її рядки та стовпчики).

15.

Знайти мінімальний елемент в першому стовпчику матриці 4х4

16.

З матриці 4х4 винести на екран елементи розташовані вище головної діагоналі.

17.

В матриці 4х4 знайти середнє арифметичне елементів її головної діагоналі.

18.

В матриці 4х4 замінити максимальний елемент на нуль.

19.

В матриці 4х4 замінити всі елементи менші 4 на нулі.

20.

Підрахувати в матриці 4х4 суму всіх елементів більших ніж 2.

21.

Підрахувати скільки елементів матриці 4х4 більші за 2.

22.

Обчислити середнє арифметичне першого рядка матриці 4х4

23.

Побудувати матрицю 4х4, елементи якої дорівнюють квадрату

Різниці їх індексів.

24.

Замінити в матриці 4х4 всі елементи розташовані на головній діагоналі на нулі.

25.

Замінити на нулі елементи матриці розташовані нижче головної діагоналі.