Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Завдання до лабораторної роботи
|
Порядок визначника n |
Рядок, Стовбець, Головна чи Побічна діагональ |
Номер рядка чи стовбця |
|
4 |
С - стовбець |
2 |
|
Порядок обміну елементів |
||
|
Р4 |
С2 |
С6 |
Завдання 1
program Z1;
var a:array[1..4,1..4] of real;
i,j,i1,j1:integer;
max:real;
begin
a[1,1]:=3.97;
a[1,2]:=4.89;
a[1,3]:=11.17;
a[1,4]:=5.67;
a[2,1]:=-7.52;
a[2,2]:=-11.67;
a[2,3]:=-5.80;
a[2,4]:=4.32;
a[3,1]:=15.96;
a[3,2]:=12.96;
a[3,3]:=-14.20;
a[3,4]:=8.50;
a[4,1]:=11.70;
a[4,2]:=-4.50;
a[4,3]:=2.94;
a[4,4]:=2.17;
max:=a[1,1];
for j:=1 to 4 do
for i:=1 to 4 do
if a[i,j]>max then max:=a[i,j];
writeln('Максимальний елемент = ',max);
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=a[i,j]/max;
writeln('Матриця поділена на максимальний елемент');
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(a[i,j]:2:3,' ');
writeln;
end;
end.
Результат програми:
Максимальний елемент = 15.96
Матриця поділена на максимальний елемент
0.249 0.306 0.700 0.355
-0.471 -0.731 -0.363 0.271
1.000 0.812 -0.890 0.533
0.733 -0.282 0.184 0.136
Завдання 2
program Z2;
var a:array[1..4,1..4] of integer;
i,j,d:integer;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(10);
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(a[i,j],' ');
writeln;
end;
d:=a[1,2]*(-1)*(a[2,1]*a[3,3]*a[4,4]+a[4,1]*a[2,3]*a[3,4]+a[3,1]*a[4,2]*a[2,4]-a[4,1]*a[3,3]*a[2,4]-a[2,1]*a[4,2]*a[3,4]-a[3,1]*a[2,3]*a[4,4]);
d:=d+a[2,2]*(a[1,1]*a[3,3]*a[4,4]+a[4,1]*a[1,3]*a[3,4]+a[3,1]*a[4,2]*a[1,4]-a[4,1]*a[3,3]*a[1,4]-a[1,1]*a[4,2]*a[3,4]-a[3,1]*a[1,3]*a[4,4]);
d:=d+a[3,2]*(-1)*(a[1,1]*a[2,3]*a[4,4]+a[4,1]*a[1,3]*a[2,4]+a[2,1]*a[4,2]*a[1,4]-a[4,1]*a[2,3]*a[1,4]-a[1,1]*a[4,2]*a[2,4]-a[2,1]*a[1,3]*a[4,4]);
d:=d+a[4,2]*(a[1,1]*a[2,3]*a[3,4]+a[3,1]*a[1,3]*a[2,4]+a[2,1]*a[3,2]*a[1,4]-a[3,1]*a[2,3]*a[1,4]-a[1,1]*a[3,2]*a[2,4]-a[2,1]*a[1,3]*a[3,4]);
writeln('Визначник = ',d);
end.
Результат програми:
6 5 2 7
3 6 4 7
1 8 7 0
0 6 0 0
Визначник = -42
Завдання 3
program Z3;
var a:array[1..100,1..100] of integer;
b,c,d:array[1..100] of integer;
i,j,m:integer;
begin
randomize;
writeln('Введіть m');
readln(m);
for i:=1 to m do
for j:=1 to m do
a[i,j]:=random(100);
for i:=1 to m do
begin
for j:=1 to m do
write(a[i,j]:2,' ');
writeln;
end;
writeln('Змiнений масив');
for i:=1 to m do
begin
b[i]:=a[4,i];
c[i]:=a[i,2];
d[i]:=a[i,6];
end;
for i:=1 to m do
begin
a[4,i]:=c[i];
a[i,2]:=d[i];
a[i,6]:=b[i];
end;
for i:=1 to m do
begin
for j:=1 to m do
write(a[i,j]:2,' ');
writeln;
end;
end.
Результат програми:
Введіть m
4
44 61 69 18
39 14 33 93
43 56 41 98
1 66 67 96
Змiнений масив
44 0 69 18
39 0 33 93
43 0 41 98
61 0 56 66
Завдання 4
program Z4;
var a:array[1..4,1..4] of real;
i,j:integer;
s:real;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(20);
writeln('Початковий масив');
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(a[i,j]:2,' ');
writeln;
end;
writeln('Кiнцевий масив');
for i:=1 to 4 do
begin
s:=s+sqr(a[i,i]);
s:=s+sqr(a[4-i+1,i]);
end;
for i:=1 to 4 do
a[4,i]:=a[4,i]/s;
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(a[i,j]:3:3,' ');
writeln;
end;
end.
Результат програми:
Початковий масив
12 19 4 0
7 12 17 17
19 2 3 7
6 5 5 13
Кiнцевий масив
12.000 15.000 11.000 7.000
4.000 14.000 11.000 1.000
18.000 14.000 5.000 4.000
0.007 0.024 0.001 0.007
Зм.
Арк.
№докум.
Підпис
Дата
Виконав
Перевір.
Н.контр.
Затвер.
Слободянюк К.М.
Савенко О.С.
М
Літера
у
Аркуш
Аркушів
ХНУ КІ-13-1
ЛРКІ.000000.13.03.01 ПЗ
Лабораторна робота №4