Будь умным!


У вас вопросы?
У нас ответы:) SamZan.ru

го порядку понижаючи його порядок виділенням kго стовбця рядка чи однієї з діагоналей

Работа добавлена на сайт samzan.ru: 2016-03-13


Завдання до лабораторної роботи

  1.  Поділити елементи матриці на найбільший елемент. Перетворену матрицю надрукувати.

  1.  Знайти визначник n-го порядку, понижаючи його порядок виділенням k-го стовбця, рядка чи однієї з діагоналей.

Порядок визначника n

Рядок, Стовбець, Головна чи Побічна діагональ

Номер рядка чи стовбця

4

С - стовбець

2

  1.  Дано двовимірний массив розміром m×m. Поміняти місцями елементи рядків і стовбців у вказаному порядку згідно варіанту.

Порядок обміну елементів

Р4

С2

С6

  1.  Задано матрицю А розмірністю 4×4. Знайти суму квадратів діагональних елементів і розділити на неї останній рядок.


Завдання 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




1. Культегин и Тоньюкок созданные в период Тюркского каганата
2. лекция Экономическая теория товара и денег
3. Лес секретов Эрин Хантер Лес секретов Котывоители ~ 3 Аннотация Вме
4. Вариант 1 12ч 30 мин мотоциклист ехал со скоростью 90 км -ч
5. Введение В любой системе научного знания есть проблемы интерес к которым постоянен и не зависит от смены т
6. 1Где находятся веруюшие в православном храме во время молитвы и с чем это связанно трехчастное деление хра
7. на тему- ОРГАНИЗАЦИОННАЯ КУЛЬТУРА Выполнил- студент гр
8. реферата ученик 10 класса Алещенко Дмитрий 1997 г.html
9. .1] 1.2 Регион как объект приоритетного инвестирования [1
10. Реферат- История становления и особенности национального этикета и протокола в дипломатической службе Германии
11. Тема- Профессиональная этика практического психолога Выполнила- студентка 3 курса Факультета психо.
12. Анализ проблемной ситуации; формулировка тезиса
13. 15 Синтаксис как и морфология в отличие от лексики и фразеологии не обладает ни столь четкой стилевой окра
14. В статистике развитых стран он выделяется в особую отрасль годовой объем услуг которой составляет в США 50 м
15. ЛЕКЦИЯ 8. ФАКТОРЫ ПРОИЗВОДСТВАкопия План Земля и земельная рента
16. человек индивид личность индивидуальность.
17. Времена английских глаголов
18. необходимость постоянного воспроизводства разнообразных продуктов природы поскольку запасы природы пост
19. Реферат- Литература - фтизиатрия (диссеминированный туберкулез легких)
20. Курсовая работа- Лидеры детского коллектива, воспитательная работа с ними