Двовимiрнi масиви.

Завдання 6. Скласти програму для заповнення елементiв масиву С[6,7] значеннями, що обчислюються за формулою C[i,j]=sin i + cos j. Вивести результат на екран у виглядi таблицi.

Program PR11;

Var C:array[1..6,1..7]of Real;

i,j:Integer;

Begin {обчислення елементiв масиву}

For i:=1 to 6 do

For j:=1 to 7 do C[i,j]:=sin(i)+cos(j);

{вивiд масиву на екран у виглядi таблицi}

For i:=1 to 6 do

Begin

For j:=1 to 7 do

Write (C[i,j]:8:2);

WriteLn;

End;

End.

Результати роботи програми:

1.38 0.43 -0.15 0.19 1.13 1.80 1.60

1.45 0.49 -0.08 0.26 1.19 1.87 1.66

0.68 -0.28 -0.85 -0.51 0.42 1.10 0.90

-0.22 -1.17 -1.75 -1.41 -0.47 0.20 -0.00

-0.42 -1.38 -1.95 -1.61 -0.68 0.00 -0.21

0.26 -0.70 -1.27 -0.93 0.00 0.68 0.47

Завдання 7. Скласти програму для заповнення елементiв масиву D[8,5] значеннями, що обчислюються за формулою D[i,j]= i + j. Вивести результат на екран у виглядi таблицi.

Завдання 8. Дано прямокутний масив В з 3 рядкiв i 4 стовпчикiв дiйсних чисел. Скласти програму для обчислення: кiлькостi додатнiх елементiв масиву, суми всiх елементiв, бiльших вiд 2, але менших вiд 12.3 та індексiв всiх вiдємних елементiв.

Program PR1;

Var

B:array[1..3,1..4] of Real;

i,j,k:Integer;

S:Real;

Begin

{Введення елементiв масиву}

For i:=1 to 3 do

For j:=1 to 4 do

Begin

Write ('Введiть елемент масиву B[',i,',',j,']=');

ReadLn (B[i,j]);

End;

{Обчислення кiлькостi додатних елементiв масиву}

k:=0;

For i:=1 to 3 do

For j:=1 to 4 do

If B[i,j]> 0 Then k:=k+1;

WriteLn(' Kдод = ',k);

{Обчислення суми всiх елементiв бiльших вiд 2, але менших

вiд 12.3}

S:=0;

For i:=1 to 3 do

For j:=1 to 4 do

If (B[i,j]> 2) and (B[i,j]<12.3) Then S:=S+B[i,j];

WriteLn ('S=',S:5:2);

{Визначення кiлькостi вiд'ємних елементiв масиву В}

k:=0;

For i:=1 to 3 do

For j:=1 to 4 do

If B[i,j ] <0 Then k:=k+1;

WriteLn ('Kilk=',k);

End.

Результати роботи програми:

Введiть елемент масиву B[1,1]=1.2

Введiть елемент масиву B[1,2]=2.32

Введiть елемент масиву B[1,3]=12.3

Введiть елемент масиву B[1,4]=0.02

Введiть елемент масиву B[2,1]=0.43

Введiть елемент масиву B[2,2]=13

Введiть елемент масиву B[2,3]=234

Введiть елемент масиву B[2,4]=-4

Введiть елемент масиву B[3,1]=6

Введiть елемент масиву B[3,2]=-34

Введiть елемент масиву B[3,3]=12

Введiть елемент масиву B[3,4]=32

Kдод = 10

S = 20.32

Kilk = 2

Завдання 9. Дано прямокутний масив P з 2 рядкiв i 3 стовпчикiв цілих чисел.Скласти програму для обчислення: кiлькостi від’ємних елементiв масиву, добутку елементiв, бiльших вiд 0.2, але менших вiд 2.13 та вивести на екран всi додатні елементи.

Завдання 10. Надрукувати всi елементи прямокутного масиву С[6,7], що знаходяться пiд головною дiагоналлю. Елементи масиву обчислюються за формулою

С[i,j]=i+j.

Program diagonal;

Var

C:array [1..6,1..7] of integer;

i,j:Integer;

Begin

{обчислення елементiв масиву}

For i:=1 to 6 do

For j:=1 to 7 do

C[i,j]:= i+j;

{вивiд масиву на екран у виглядi таблицi}

For i:=1 to 6 do

Begin

For j:=1 to 7 do

if j<=i Then Write (c[i,j]:4);

WriteLn;

End;

End.

Результати роботи програми:

2

3 4

4 5 6

5 6 7 8

6 7 8 9 10

7 8 9 10 11 12

Завдання 11. Надрукувати всi елементи прямокутного масиву К[8,6], що знаходяться над головною дiагоналлю. Елементи масиву обчислюються за формулою С[i,j]=2i+j.

Написати висновок та оформити звіт по роботі. Закріпити його скріншотими.