ANTICHAT — форум по информационной безопасности, OSINT и технологиям

unit unitd;
Interface
uses crt;
type massiv=array[1..100,1..100] of real;
     massiv1=array[1..100] of real;
Implementation
procedure matri(var a:massiv);
procedure Matr_Prakt(a:massiv; var koor:massiv1);
procedure Funkcia(koor:massiv1);

procedure matri;
var
i,j:byte;
function new:real;
begin
 new:=((2-sqr(i-3))/i)*(j-5.7);
 end;
begin
clrscr;
for i:=1 to 10 do
 for j:=1 to 10 do
 a[i,j]:=new;
for i:=1 to 10 do begin
 writeln;
 for j:=1 to 10 do
 write(a[i,j]:8:2);
 end;
 readkey;
end;


procedure Matr_Prakt;
type massiv=array[1..100,1..100] of integer;
     massiv1=array[1..500] of integer;
var   q,n,n1,max_stolb:integer;
i,j:byte;
       x:massiv1;



begin
i:=1;
max_stolb:=1;
for j:=2 to N do
if a[i,j]>a[i,j-1] then max_stolb:=j;

for i:=1 to N do
for j:=1 to N do
koor[i]:=koor[i]+a[i,j]*a[j,max_stolb];

write('a(',koor[1]);
for i:=2 to n do
write(',',koor[i]);
write(')');
writeln;
writeln;
readln;
end;


procedure Funkcia;
var U:real;
qwer,a,i,n,chisl,znam:integer;
q1,q2:real;

function F(b:real; var a:real):integer;

begin
a:=a+b;
end;

begin
for i:=1 to n do
if koor[i]<=1 then f(koor[i],q1);
for i:=1 to n do
if koor[i]>1 then f(koor[i],q2);

U:=(1+q1)/(2+q2);
writeln(u);
readln;
writeln;
writeln;
end;

begin
matri;
Matr_Prakt;
Funkcia;
end.

Unit unitname;
Interface
uses ....
function f1(.........):integer;
procedure f2(........);
implementation
function f1(.........):integer;
begin
 код фунции
end;
procedure f2(........);
begin
 код процедуры
end;
begin
 код если нужно для инициализации
end.

unit unitd;
Interface
uses crt;
type massiv=array[1..100,1..100] of real;
     massiv1=array[1..100] of real;

 procedure matri(var a:massiv);
 procedure Matr_Prakt(a:massiv; var koor:massiv1);
 procedure Funkcia(koor:massiv1);
Implementation


     procedure matri(var a:massiv);
     var
     i,j:byte;
     function new:real;
     begin
      new:=((2-sqr(i-3))/i)*(j-5.7);
       end;
       begin
       clrscr;
       for i:=1 to 10 do
	for j:=1 to 10 do
	 a[i,j]:=new;
	 for i:=1 to 10 do begin
	  writeln;
	   for j:=1 to 10 do
	    write(a[i,j]:8:2);
	     end;
	      readkey;
	      end;


	      procedure Matr_Prakt(a:massiv; var koor:massiv1);
	      type massiv=array[1..100,1..100] of integer;
		   massiv1=array[1..500] of integer;
		   var   q,n,n1,max_stolb:integer;
		   i,j:byte;
			  x:massiv1;



			  begin
			  i:=1;
			  max_stolb:=1;
			  for j:=2 to N do
			  if a[i,j]>a[i,j-1] then max_stolb:=j;

			  for i:=1 to N do
			  for j:=1 to N do
			  koor[i]:=koor[i]+a[i,j]*a[j,max_stolb];

			  write('a(',koor[1]);
			  for i:=2 to n do
			  write(',',koor[i]);
			  write(')');
			  writeln;
			  writeln;
			  readln;
			  end;


			  procedure Funkcia(koor:massiv1);
			  var U:real;
			  qwer,a,i,n,chisl,znam:integer;
			  q1,q2:real;

			  function F(b:real; var a:real):integer;

			  begin
			  a:=a+b;
			  end;

			  begin
			  for i:=1 to n do
			  if koor[i]<=1 then f(koor[i],q1);
			  for i:=1 to n do
			  if koor[i]>1 then f(koor[i],q2);

			  U:=(1+q1)/(2+q2);
			  writeln(u);
			  readln;
			  writeln;
			  writeln;
			  end;

			 var
			 aa:massiv;
			 bb:massiv1;
			  begin
			  matri(aa);
			  Matr_Prakt(aa,bb);
			  Funkcia(bb);
			  end.