Подключить модули

program num1;
uses crt;
type
matr = array[1..20,1..20] of integer;
procedure vvod(var arr: matr; n,m: integer);
var i,j: integer;
begin
for i:= 1 to n do
for j:= 1 to m do
 begin
 write('vvedite znachenie elementa [',i,',',j,']:');
 readln(arr[i,j]);
 end;
end;
procedure wuwod(var arr:matr;m,n:integer);
var i,j:integer;
begin
for i:=1 to m do
 begin
 for j:=1 to n do
  write(arr[i,j]:4);
  writeln;
 end;
 end;
procedure maxmatr(arr: matr; n,m: integer; var ind1,ind2: integer);
var
  i,j: integer;
  max: integer;
begin
max:= arr[1,1];
ind1:= 1;
ind2:= 1;
for i:= 1 to n do
for j:= 1 to m do
if arr[i,j] > max then
 begin
 max:= arr[i,j];
 ind1:= i;
 ind2:= j;
 end;
end;
var
a,b: matr;
ind1a,ind2a: integer;
ind1b,ind2b: integer;
s: integer;
 begin
 writeln('matrica A:');
 vvod(a,3,3);
 writeln('matrica B:');
 vvod(b,4,3);
 maxmatr(a,3,3,ind1a,ind2a);
 maxmatr(b,3,4,ind1b,ind2b);
 writeln('matrica A:');
 wuwod(a,3,3);
 writeln('matrica B:');
 wuwod(b,4,3);
 s:= a[ind1a,ind2a];
 a[ind1a,ind2a]:= b[ind1b,ind2b];
 b[ind1b,ind2b]:=s;
 writeln('izmenennaya matrica A:');
 wuwod(a,3,3);
 writeln('izmenennaya matrica B:');
 wuwod(b,4,3);
 readln;
end.

program num2;
uses crt;
function sp(x,y:real):real;
begin
sp:=x*y/2;
end;
function sc(x,y,z:real):real;
var p:real;
begin
p:=(x+y+z)/2;
sc:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
var x,y,z,t,a,b:real;
 begin
 writeln('dlina storon:');
 readln(x,y);
 if (x>0)and(y>0)
 then a:=sqrt(x*x+y*y);
  begin
  writeln('dliny dvyh drygih storon');
  write;
  readln(z,t);
  if (z>0)and(t>0)and(z+t>a)
  then b:=sp(x,y)+sc(z,t,a);
  writeln('ploshad=',b:0:2)
  end;
end.

unit zad_1_2;
interface
const n=3;
      m=4;
type
matr = array[1..n,1..m] of integer;
procedure vvod(var arr: matr; n,m: integer;c:char);
procedure wuwod(var arr:matr;n,m:integer;s:string);
procedure maxmatr(arr: matr; n,m: integer; var ind1,ind2: integer);
function sp(x,y:real):real;
function sc(x,y,z:real):real;
implementation
procedure vvod(var arr: matr; n,m: integer;c:char);
var i,j: integer;
begin
for i:= 1 to n do
for j:= 1 to m do
 begin
 write('vvedite znachenie elementa ',c,' [',i,',',j,']:');
 readln(arr[i,j]);
 end;
end;
procedure wuwod(var arr:matr;n,m:integer;s:string);
var i,j:integer;
begin
writeln(s);
for i:=1 to n do
 begin
 for j:=1 to m do
  write(arr[i,j]:4);
  writeln;
 end;
end;
procedure maxmatr(arr: matr; n,m: integer; var ind1,ind2: integer);
var
  i,j: integer;
  max: integer;
begin
max:= arr[1,1];
ind1:= 1;
ind2:= 1;
for i:= 1 to n do
for j:= 1 to m do
if arr[i,j] > max then
 begin
 max:= arr[i,j];
 ind1:= i;
 ind2:= j;
 end;
end;
function sp(x,y:real):real;
begin
sp:=x*y/2;
end;
function sc(x,y,z:real):real;
var p:real;
begin
p:=(x+y+z)/2;
sc:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
end.

program num_1_2;
uses zad_1_2,crt;
var
a1,b1: matr;
ind1a,ind2a: integer;
ind1b,ind2b: integer;
s: integer;
x,y,z,t,a,b:real;
begin
clrscr;
writeln('Zadanie 1');
vvod(a1,n,n,'A');
vvod(b1,n,m,'B');
clrscr;
maxmatr(a1,n,n,ind1a,ind2a);
maxmatr(b1,n,m,ind1b,ind2b);
wuwod(a1,n,n,'Matrica A');
wuwod(b1,n,m,'Matrica B');
s:= a1[ind1a,ind2a];
a1[ind1a,ind2a]:= b1[ind1b,ind2b];
b1[ind1b,ind2b]:=s;
wuwod(a1,n,n,'Izmenennaya matrica A:');
wuwod(b1,n,m,'Izmenennaya matrica B:');
writeln('Zadanie 2');
 writeln('dlina storon:');
 readln(x,y);
 if (x>0)and(y>0)
 then a:=sqrt(x*x+y*y);
  begin
  writeln('dliny dvyh drygih storon');
  write;
  readln(z,t);
  if (z>0)and(t>0)and(z+t>a)
  then b:=sp(x,y)+sc(z,t,a);
  writeln('ploshad=',b:0:2)
  end;
readln;
end.