12 Вариант
А(5,5), В(5,5), С(5,5), D(5,5), F(5,5) пять массивов найдите произведение. Определение произведение двух массивов оформить в виде прцедуры.
Program ilya;
Const n=5;
Type matrix=array[1..n,1..n] of integer;
Var a,b,c,d,f:matrix;
I,j:integer;
Procedure vv(var r:matrix);
Var I,j:integer;
Begin
Writeln(‘vvod’);
For i:=1 to n do
For j:=1 to n do
Read (r[i,j]);
End;
Procedure mult(x,y:matrix; var z:matrix);
Var I,j,k,s:integer;
Begin
For i:=1 to n do
For j:=1 to n do
Begin
S:=0;
For k:=1 to n do
S:=s+x[I,j]*y[k,j];
Z[I,j]:=s;
End; end;
Begin
Vv(a);vv(b);vv(c);vv(d);vv(f);
Mult(a,b,a); mult(a,c,a); mult(a,d,a); mult(a,f,a);
For i:=1 to n do
Begin
For j:=1 to n do
Write(a[I,j]:4);
Writeln;
End; end.
Л.р.№5 вариант 14
Найти семиугольник с координатами вершин (x1,y1), (X2,Y2),..(x7,y7). Вывести на печать координаты треугольника с максимальной площадью. Определение плошади треугольника по формуле герона. оФОрмить в виде функции.
Program var_14;
Uses crt;
Var:k array [1..2,1..7] of integer;
I:integer; s,max:real;
Function ff(x1,x2,y1,y2:real):real;
Var p,s,a,b,c:real;
Begin
A:=sqrt((x[1.7]-x1)*(k[1.7]-x1)+(k[2.7]-y1)*(k[2.7]-y1));
B:=sqrt((k[1.7]-x2)*(k[1.7]-x2)+(k[2.7]-y2)*(k[2.7]-y2));
C:=sqrt((x2-x)+(y2-y1)*(y2-1));
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Ff:=s;
End;
Begin
Clrscr;
Writeln(‘vvod x’);
For i:=1 to 7 do
Read(k[1.i]);
Writeln(‘vvod y’);
For i:=1 to 7 do
Read(k[2.i]);
S:=0;
Max:=ff(k[1.1],k[2.1],k[1.2],k[2.2]);
For i:=1 to 5 do
If ff(k[1.i],k[2.i],k[1.i+1],k[2.i+1])>max then
Max:=ff(k[1.i],k[2.i],k[1.i+1],k[2.i+1]);
Writeln(‘max =’, max:4:2);
Readkey;
End.