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

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.