Создать матрицы Lazarus

[Liliya1993]

Помогите пожалуйста с задачкой по Lazarus(( задача:"5. Заданы четыре квадратные матрицы: A(n,n), B(n,n), C(n,n), D(n,n), в которых хранятся целые числа. Найти матрицу, в которой находится максимальное простое число", я буду вам очень благодарна(

[Stilet]

Попытки были?
Проверку на простоту можно найти здесь: http://www.programmersforum.ru/showthread.php?p=677853

[Liliya1993]

я не умею матрицы вводить, и как в них поэлементно на простоту проверять?

[Stilet]

Понятно. Пичально.
Начать можно так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses   math,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
const
  n=3;
type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    a,b,c,d:array[1..n,1..n] of integer;
    m:array[1..4] of integer;
    { public declarations }
  end;

var i,j:integer;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  m[1]:=0; m[2]:=0;m[3]:=0;
  for i:=Low(a) do for i:=Low(a) do
   begin a[i,j]:=StrToInt(InputBox(format('Введи а[%d,%d]',[i,j]))); m[1]:=Max(m[1],IsSimple(a[i,j])); end;
  for i:=Low(b) do for i:=Low(b) do
   begin b[i,j]:=StrToInt(InputBox(format('Введи b[%d,%d]',[i,j]))); m[2]:=Max(m[1],IsSimple(b[i,j])); end;
  for i:=Low(c) do for i:=Low(c) do
   begin c[i,j]:=StrToInt(InputBox(format('Введи c[%d,%d]',[i,j]))); m[3]:=Max(m[1],IsSimple(c[i,j])); end;
  for i:=Low(d) do for i:=Low(d) do
   begin d[i,j]:=StrToInt(InputBox(format('Введи d[%d,%d]',[i,j]))); m[4]:=Max(m[1],IsSimple(d[i,j])); end;


end;

end.

Это вычисление максимума среди простых матрицы с вводом.
функцию вычисления простого возьмешь по ссылке.
Удачи.

[Liliya1993]

он не компилирует, ошибки повсюду..