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

const
  n=3;
var
  i,j:integer;
  a:array[1..n, 1..n] of integer;
  max, index:integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      readln (a[i,j]);
  for i:=1 to n do
    begin
     max:=0;
      for j:=1 to n do
        if a[j,i]>max then
          begin
            max:=a[j,i];
            index:=j;
          end;
      writeln ('max = ', max, 'index = ', index);
    end;
end.

begin
AssignFile(Text, 'data/text1.txt');
Reset(Text);
while not Eof(Text) do
begin
ReadLn(Text, Data);
Edit1.Text := Data;
end;
CloseFile(Text);
end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
  Edit1: TEdit;

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Edit1: TEdit;
  Text: TextFile;
  Data: string;

implementation

{$R *.dfm}

begin
Data := 'fgd';
AssignFile(Text, 'data/text1.txt');
Reset(Text);
Edit1.Text := Data;
CloseFile(Text);
end.

{$APPTYPE CONSOLE}

type
  TMatrix =
    record
      size: integer;
      data: array of array of integer;
    end;

var
  m: TMatrix;

function Minor(matrix: TMatrix; i,j: integer): TMatrix;
var
  a,b,a1,b1: integer;
begin
  a1 := -1;
  b1 := -1;
  result.size := matrix.size - 1;
  setlength(result.data, result.size, result.size);
  for a := 0 to result.size do
    begin
      if a=i then
        continue
      else
        inc(a1);
      for b := 0 to result.size do
        begin
          if b = j then
            continue
          else
            if b - b1 > 1 then
              inc(b1)
            else
              b1 := 0;
          result.data[a1,b1] := matrix.data[a,b];
      end;
    end;
end;

function Determ(matrix: TMatrix): integer;
var
  i: integer;
begin
  result := 0;
  if matrix.size = 2 then
    result := (matrix.data[0,0]*matrix.data[1,1]) - (matrix.data[0,1]*matrix.data[1,0])
  else
    begin
      for i := 0 to matrix.size - 1 do
        if odd(i+1) then
          result := result + matrix.data[i,0]*Determ(Minor(matrix,i,0))
        else
          result := result - matrix.data[i,0]*Determ(Minor(matrix,i,0));
    end;
end;

begin
  m.size := 3;
  setlength(m.data,3,3);
  m.data[0,0] := 2;
  m.data[0,1] := 4;
  m.data[0,2] := -1;
  m.data[1,0] := -1;
  m.data[1,1] := 3;
  m.data[1,2] := 2;
  m.data[2,0] := 3;
  m.data[2,1] := 2;
  m.data[2,2] := -2;
  writeln(Determ(m));
  readln;
end.