Var I,j:integer;
Begin
Writeln(‘vvod’);
For i:=1 to n do
For j:=1 to n do
Read(r[I,j]);
End;
Function kob(var x:matrix):real;
Var I,j:integer; s:real;
Begin
S:=1;
For i:=2 to n do
For j:=1 to i-1 do
If x[I,j]<>0 then s:=s*x[I,j];
Kob:=s;
End;
Begin
Vv(a); vv(b); vv(c);
G:=kob(a)*kob(b)*kob(c);
Writeln(‘g=’,g:7:2);
End.
Л.р.№5 Вариант 21
Даны четыре массиваA[4,4], B[4,4], C[4,4], D[4,4]. Найти сумму этих массивов. Оформить в виде процедуры.
program var_21;
const n=4;
type matr=array[1..n,1..n] of integer;
procedure Vvod(var a:matr);
Var I,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(25);
end;
procedure Vyvod(var a:matr; c:string;cl:integer);
Var I,j:integer;
begin
write('matrica ',c);
for i:=1 to n do
begin
gotoXY(20,whereY);
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end;
procedure Summa(a,b:matr; var c:matr);
Var I,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
end;
var a,b,c,d,m1,m2,m:matr;
begin
randomize;
Vvod(a);
Vvod(b);
Vvod(c);
Vvod(d);
Vyvod(a,'A',10);
Vyvod(b,'B',11);
Vyvod(c,'C',14);
Vyvod(d,'D',13);
Summa(a,b,m1);
Summa(c,d,m2);
Summa(m1,m2,m);
Vyvod(m,'M=A+B+C+D',12);
readln
end.
Л.р.№5 вариант 8
Даны действительные числа a,b,c,d,. Найти площадь пятиугольника, изображенного на рисунке.
Program var_8;
procedure Plosh(a,b,c:real;var s:real);
var p:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
var a,b,c,d,s1,s2,s3,s:real;
begin
writeln('vvedite 4 storony pyatiugol’nika:');
repeat
write('1<a<3 a=');
read(a);
until(a>1)and(a<3);
repeat
write('0.5<b<4.5 b=');
read(b);
until(a>0.5)and(a<4.5);
repeat
writeln('c,d c+d>2.5');
read(c,d);
until c+d>2.5;
Plosh(1,a,2,s1);
Plosh(2,b,2.5,s2);
Plosh(2.5,c,d,s3);
s:=s1+s2+s3;
write('S=',s:0:1);
end.
Л.р.№7 Даны действительные числа x1,y1,x2.y2…,x7,y7. Найти периметр семиугольника, вершины которого имеют соответственно
Координаты (x1,y1), (x2,y2),…,(x7,y7).
Program var_7;
Const n=5;
Type mas=array [1..n] of integer;
Var A,B:mas; i,j:integer; p:real;
Function dlina (m1,m2,n1,n2:real):real;
Var l:real;
Begin
L:=sqrt(sqr(m2-m1)+sqr(n2-n1));
Dlina:=l;
End;
Begin
Writeln(‘vvod’);
For i:=1 to n do
Read (b[i]);
P:=0;
P:=dlina (a[1], a[2], b[1], b[2])+dlina([a2],a[3],b[2],b[3])+dlina(a[3],a[4],b[3],b[4])+dlina(a[4],a[5,],b[4],b[5]);
Writeln (‘p=’, p:7:2);
End.
Л.р.№5 Вариант 11
Даны три массива A(5,5), B(5,5), C(5,5). Найти минимальное произведение ненулевых элементов, расположенных в нечетных строках этих массивов.
Program var_11;
var a,b,c :array[1..5,1..5] of longint;
min,i,j,p1,p2,p3:longint;
procedure massivs ;
begin
for i:=1 to 5 do
for j:=1 to 5 do
begin
a[i,j]:=random(15); b[i,j]:=random(15); c[i,j]:=random(15);
end;
writeln('massiv A');
for i:=1 to 5 do
begin
for j:=1 to 5 do
write (a[i,j]:4);
writeln;
end; writeln('massiv B');
for i:=1 to 5 do
begin
for j:=1 to 5 do
write (a[i,j]:4);
writeln;
end; writeln('massiv C');
for i:=1 to 5 do
begin
for j:=1 to 5 do
write (c[i,j]:4);
writeln;
end;
end;
function mi(a,b,c,d:longint):longint;
var m:longint;
begin m:=10000;
if m>a then m:=a;
if m>b then m:=b;
if m>c then m:=c;
if m>d then m:=d;
mi:=m;
end;
begin
randomize;
massivs;
min:=1000;
for i:=1 to 5 do
if odd(i) then
begin
p1:=1; p2:=1; p3:=1;
for j:=1 to 5 do
begin
if a[i,j]<>0 then p1:=p1*a[i,j];
if b[i,j]<>0 then p2:=p2*b[i,j];
if c[i,j]<>0 then p3:=p3*c[i,j];
end;
min:=mi(p1,p2,p3,min);
end;
writeln('minimal’noe proizvedenie ',min);
end.