Помогите пожалуйста оформить программу в виде модуля (program Sortirovka_massiva_part_two)

[Агнесска]

Помогите пожалуйста оформить программу в виде модуля

program Sortirovka_massiva_part_two;
   
   const stlb = 5;
         str  = 5;         
   
   type Vector = array[1..stlb] of real;
        Massiv = array[1..str] of Vector;
        
   VAR B : Massiv;
       v, l : integer;
       F1, F2 : text;
        
   procedure FormMassiv(var A : Massiv);
   var i, j : integer;
   begin
      for i := 1 to str do
         for j := 1 to stlb do
            A[i,j] := random(-1000,1500);
   end;
   
   function F(Y : vector):Real;
   var j : integer; 
   S : real;
   begin
      S := 0;
      for j := 1 to stlb do
         S := S + Y[j];
      F := S;
   end;  
   
   procedure StraightSelection;
      VAR 
      i, j,
      nom : integer ;
      min : Vector;
      Begin
         for i := 1 to str-1 do
            begin
               nom := i;
               min := B[i];
               for j := i + 1 to str do
                  if F(B[j]) > F(min) then
                     begin
                        min := B[j];
                        nom := j;
                     end;
               B[nom] := B[i];
               B[i] := min;
            end;
      end;
  
  
   begin
      Assign(F1,'Result_of_sortirovka_Matrix.txt');
      Assign(F2,'Result_pervichnaya_Matrix.txt');
      Rewrite(F1);
      Rewrite(F2);
      FormMassiv(B);
      For v := 1 to str do
         begin
            for l := 1 to stlb do
               Write(F2,B[v,l]:6,' ');
            Writeln(F2);
         end;
      StraightSelection;
      For v := 1 to str do
         begin
            for l := 1 to stlb do
               Write(F1,' ',B[v,l]:6,' ');
            Writeln(F1);
            Write(F(B[v]),' ');
          //  Write(F(v),' ');
         end;
      Close(F1);
      Close(F2);
  end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

здесь нужно поступить точно так же, как Вам объяснили в соседней теме: http://programmersforum.ru/showpost....65&postcount=2
- вынести в отдельный файл описание типов, функцию и процедуру и правильно его оформить.

[Агнесска]

Подскажите пожалуйста, верно ли я оформила модуль.

unit sortmas;
interface 
const stlb = 5;str  = 5; 
type Vector = array[1..stlb] of real;
     Massiv = array[1..str] of Vector;
VAR B : Massiv;
procedure FormMassiv(var A : Massiv);     
function F(Y : vector):Real;  
procedure StraightSelection;  
implementation
procedure FormMassiv;
var i, j : integer;
begin
     for i := 1 to str do
        for j := 1 to stlb do
           A[i,j] := random(-1000,1500);
end;
function F:Real;
var j : integer;S : real;
begin
      S := 0;
      for j := 1 to stlb do
         S := S + Y[j];
      F := S;
end;  
procedure StraightSelection;
VAR  i, j,nom : integer ;min : Vector;
Begin
      for i := 1 to str-1 do
         begin
               nom := i;
               min := B[i];
               for j := i + 1 to str do
                  if F(B[j]) > F(min) then
                     begin
                        min := B[j];
                        nom := j;
                     end;
               B[nom] := B[i];
               B[i] := min;
         end;
end;
program ex_1;
uses sortmas;
VAR v, l : integer;F1, F2 : text; 
begin
      Assign(F1,'Result_of_sortirovka_Matrix.txt');
      Assign(F2,'Result_pervichnaya_Matrix.txt');
      Rewrite(F1);
      Rewrite(F2);
      FormMassiv(B);
      For v := 1 to str do
         begin
            for l := 1 to stlb do
               Write(F2,B[v,l]:6,' ');
            Writeln(F2);
         end;
      StraightSelection;
      For v := 1 to str do
         begin
            for l := 1 to stlb do
               Write(F1,' ',B[v,l]:6,' ');
            Writeln(F1);
            Write(F(B[v]),' ');
          //  Write(F(v),' ');
         end;
      Close(F1);
      Close(F2);
 end.

_____

Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)

Модератор

[min@y™]

program Sortirovka_massiva_part_two;

uses My; { your second unit My.pas }   

   begin
      Assign(F1,'Result_of_sortirovka_Matrix.txt');
      Assign(F2,'Result_pervichnaya_Matrix.txt');
      Rewrite(F1);
      Rewrite(F2);
      FormMassiv(B);
      For v := 1 to str do
         begin
            for l := 1 to stlb do
               Write(F2,B[v,l]:6,' ');
            Writeln(F2);
         end;
      StraightSelection;
      For v := 1 to str do
         begin
            for l := 1 to stlb do
               Write(F1,' ',B[v,l]:6,' ');
            Writeln(F1);
            Write(F(B[v]),' ');
          //  Write(F(v),' ');
         end;
      Close(F1);
      Close(F2);
  end.

unit My;

interface

const stlb = 5;
         str  = 5; 
        
   
type Vector = array[1..stlb] of real;
        Massiv = array[1..str] of Vector;
        
VAR B : Massiv;
       v, l : integer;
       F1, F2 : text;

procedure FormMassiv(var A : Massiv);
function F(Y : vector):Real;
procedure StraightSelection;

implementation
        
   procedure FormMassiv(var A : Massiv);
   var i, j : integer;
   begin
      for i := 1 to str do
         for j := 1 to stlb do
            A[i,j] := random(-1000,1500);
   end;
   
   function F(Y : vector):Real;
   var j : integer; 
   S : real;
   begin
      S := 0;
      for j := 1 to stlb do
         S := S + Y[j];
      F := S;
   end;  
   
   procedure StraightSelection;
      VAR 
      i, j,
      nom : integer ;
      min : Vector;
      Begin
         for i := 1 to str-1 do
            begin
               nom := i;
               min := B[i];
               for j := i + 1 to str do
                  if F(B[j]) > F(min) then
                     begin
                        min := B[j];
                        nom := j;
                     end;
               B[nom] := B[i];
               B[i] := min;
            end;
      end;
end.