Как изменить алгоритм для Lazarus?

Question

[Виноградов]

Мне нужно перенести алгоритм этого кода в Lasarus форму StringGrid2.Cells

uses crt;
var
a:array[1..10,1..10] of integer;
b:array[1..10,1..10] of real;
i,j,min,n,c:integer;
begin
  randomize; clrscr;
  write('N='); readln(n); min:=100;
  writeln('Kak vvesty danniye:');
  writeln('1. Random');
  writeln('2. Vruchnuyu'); readln(c);
  writeln('Matrix:');
 
  case c of
  1: begin
        for i:=1 to n do begin
          for j:=1 to n do begin
            a[i,j]:=-100+random(200);
            if (ABS(a[i,j])<ABS(min)) and (a[i,j]<>0) then min:=a[i,j];
            write(a[i,j]:5);
          end;
          writeln;
        end;
      end;
  2: begin
       for i:=1 to n do
         for j:=1 to n do begin
           readln(a[i,j]);
         if (ABS(a[i,j])<ABS(min)) and (a[i,j]<>0) then min:=a[i,j];
         end;
      end;
  end;
 
  writeln('Min = ',min);
  writeln('Result:');
  for i:=1 to n do begin
    for j:=1 to n do begin
      b[i,j]:=a[i,j]/min;
      if frac(b[i,j])<>0 then write(b[i,j]:6:2,' ')
        else write(b[i,j]:6:0,' ');
    end;
    writeln;
  end;
  readkey;
end.

Он запускает приложение, но выдает ошибку при выполнении алгоритма invalid integer


вот мой код

var
i,j,n,c:integer;
min:longint;

begin
clrscr;
min:=10000000;
n:=StrToInt(Edit1.Text)-1;

if n>9 then begin
  ShowMessage('Слишком большой размер матрицы');
  exit;
end;

StringGrid2.Clean;

begin
      for i:=1 to n do
        for j:=1 to n do begin

        if (ABS(StrToInt(StringGrid1.Cells[i, j]))<ABS(min)) and (StrToInt(StringGrid1.Cells[i, j])<>0) then
        min:=ABS(StrToInt(StringGrid1.Cells[i, j]));
        end;
     end;
for i:=1 to n do begin
  for j:=1 to n do begin
    StringGrid2.Cells[i, j]:= Format('%5.1n', [StrToInt(StringGrid1.Cells[i, j])/min]);

    if frac(StrToInt(StringGrid2.Cells[i, j]))<>0 then StrToInt(StringGrid2.Cells[i, j])
    else StringGrid2.Cells[i, j]:= Format('%5.1n', [StrToInt(StringGrid1.Cells[i, j])/min]);



  end;

end;


end;

Answer 1

[Hemul GM]

8,2 - это не integer,. Это дробное, вещественное число
Переводить нужно строку во Float, а не в int

Comments

[Виноградов]

я решил другим способом, и все заработало min теперь real а строка strtoint