program umnoshenie_matric;

Лабораторная работа №7

ПРОЦЕДУРЫ И ФУНКЦИИ

Вариант №8

Задание 1: 8. Среди чисел из интервала от А до В найти все простые.

Работа программы

Вводятся исходные данные: переменные А и В через клавиатуры.

Назначение переменных

Назначение переменных, используемых в задаче, приведено в таблице 1

Таблица 1 – Назначение переменных

Переменная	Тип	Назначение
x, k	integer	Численные переменные
a,b	integer	Границы интервала
d	integer	Переменная деления
flag	boolean	Правда/ложь

1.3Блок – схема алгоритма программы

Рис. 1 Блок схема алгоритма программы

Текст программы

Program prostie_chisla;

var x, k: integer; a, b: integer;

Function prost (y: integer): boolean;

var d, i: integer; flag: boolean;

Begin

d:=0; flag:=false;

for i:=2 to y-1 do if y mod i=0 then d:=d+1;

if d=0 then flag:=true;

prost:=flag; end;

Begin

writeln ('Vvedite granici intervala'); readln (a, b);

begin

writeln ('Prostie chisla');

for x:=a to b do

begin

if prost (x) then

begin

write (' ',x);

end; end; end;

readln;

End.

Тестирование

Вводим границы интервала, проверяя корректность программы. Программа ведёт себя корректно.

Vvedite granici interval: 1 9

Prostie chisla:

1 3 5 7

Задание 2:

8. Даны координаты вершин двух треугольников. Определить, какой из них имеет большую площадь.

Работа программы

Вводятся исходные данные: координаты вершин треугольника оператором random.

Назначение переменных

Назначение переменных, используемых в задаче, приведено в таблице 2.

Таблица 2 – Назначение переменных

Переменная	Тип	Назначение
x1, x2, x3, y1, y2, y3	real	Координаты вершин треугольника
s, smax	real	Площадь треугольника
i	integer	Номера треугольника
n	integer	Численная переменная

1.3Блок – схема алгоритма программы

Рис. 2 Блок схема алгоритма программы

Текст программы

Program ploshad_treugolnika;

procedure sum (x1, x2, x3, y1, y2, y3:real; var s:real);

begin

S:=(sqrt (sqr (x1+x2-x3)+sqr (y1+y2-y3))*sqrt (sqr (x2-x1)+sqr (y2-y1)))/2; end;

var x1,y1,x2,y2,x3,y3,s,smax:real;

i, n: integer;

Begin

randomize;

smax:=0;

for i:=1 to 2 dо begin

writeln ('Koordinati virchin ',i,' treugolnika');

x1:=random(10); y1:=random(10);

writeln ('A (',x1:1:1,' ',y1:1:1,')');

x2:=random(10); y2:=random(10);

writeln ('B (',x2:1:1,' ',y2:1:1,')');

x3:=random(10); y3:=random(10);

writeln ('C (',x3:1:1,' ',y2:1:1,')');

sum (x1, x2, x3, y1, y2, y3, s);

if s>smax then n:=i;

if s>smax then smax:=s;

end;

writeln ('Macsimalnaya ploshad ',n,' treugolnika= ',smax:3:3);

readln;

End.

Тестирование

Koordinati virchin 1 treugolnika

A (2,3)

B (1,2)

C (3,2)

Koordinati virchin 2 treugolnika

A (4,3)

B (1,1)

C (3,5)

Macsimalnaya ploshad 2 treugolnika= 35.6

Задание 3:

8. Даны натуральное число р и вещественные квадратные матрицы A, B и C 4-го порядка. Получить (ABC)^p.

Работа программы

Вводятся исходные данные: натуральное число p с клавиатуры.

Назначение переменных

Назначение переменных, используемых в задаче, приведено в таблице 3.

Таблица 3 – Назначение переменных

Переменная	Тип	Назначение
р	real	Натуральное число
i, j	integer	Номер элемента массива
n	integer	Численная переменная
ab, abc, A,B,C	integer	Массив

1.3Блок – схема алгоритма программы

Рис. 3 Блок схема алгоритма программы

Текст программы

program umnoshenie_matric;

Type matrix=array[1..4,1..4] of integer;

var A,B,C,ab, abc:matrix;

j,i,p,n:integer;

procedure zapmatrix(var a:matrix);

begin

for i:=1 to 4 do

for j:=1 to 4 do

a[i,j]:=random(2)+1; end;

procedure vivmatrix( a:matrix);

begin

for i:=1 to 4 do begin

for j:=1 to 4 do

write(a[i,j]:4,' '); writeln;

end; writeln; end;

Begin

writeln('Matrica A: ');

zapmatrix( a); vivmatrix( a);

writeln('Matrica B: ');

zapmatrix( b); vivmatrix( b);

writeln('Matrica C: ');

zapmatrix( c); vivmatrix( c);

for i:=1 to 4 do begin

for j:=1 to 4 do begin

ab[i,j]:=a[i,j]*b[i,j]; abc[i,j]:=ab[i,j]*c[i,j];

end; end; end; readln;

begin

write ('Vvedite naturalnoe chislo= '); readln (p); writeln;

begin

for n:=1 to p-1 do begin

for i:=1 to 4 do begin

for j:=1 to 4 do begin abc[i,j]:=abc[i,j]*abc[i,j];

end; end; end; end; end;

begin

writeln; writeln ('Proizvedenie matrix na naturalnoe chislo');

for i:=1 to 4 do begin

for j:=1 to 4 do begin

write (abc[i,j]:4,' '); end;

writeln; end;

writeln; end; readln;

End.

Тестирование

Вводим натуральное число р, проверяя корректность работы программы. Программа ведёт себя корректно.

Matrica A:

1 2 2 1

2 1 2 1

1 2 2 2

2 1 2 1

Matrica B:

1 2 2 1

2 2 2 2

2 2 1 2

Matrica C:

2 2 2 2

1 2 1 2

1 2 2 1

2 2 2 1

Vvedite naturalnoe chislo= 2

Proizvedenie matrix na naturalnoe chislo

4 64 64 4

4 16 16 4

4 64 64 16

64 16 16 4