Помогите создать массив...

[zhorzh2407]

Составить программу в системе программирования Delphi следующим образом:

Главная форма должна состоять из:
- поля ввода, где задается размерность массива
- кнопоки формирования случайного массива (случайные числа в диапазоне от 0 до 10*N, N - размерность массива)

[Манжосов Денис :)]

var
text: string;
Mas: array of string;
i: integer;
begin
text:=Edit1.text;
Inc(i);
SetLength(Mas, i);
Mas[i]:=Text;
end;

[sabbatazh]

пользуй!!!

var _Lines : array of integer;
n,i: integer;
...
begin
n:= StrToInt(edit1.text);
SetLength(_Lines, 10* n);
for I:= 0 to 10*n-1 do  _Lines[i]:= random(100);
end;

[vovk]

Сообщение от sabbatazh

пользуй!!!

var _Lines : array of integer;
n,i: integer;
...
begin
n:= StrToInt(edit1.text);
SetLength(_Lines,  n);
for I:= 0 to 10*n-1 do  _Lines[i]:= random(n);
end;

ЭЭ мож так размерность то N

var _Lines : array of integer;
n: integer;
begin
n:= StrToInt(edit1.text);
SetLength(_Lines,  n);
for n:= 0 to high(_Lines) do  _Lines[n]:= random(10*n);

[maxvodo.dll]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    StaticText1: TStaticText;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n,m:integer;
  massrand:array of array of real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  good:boolean;
  i,j:integer;
begin
  good:=true;
  try
  n:=strtoint(edit1.Text);
  m:=strtoint(edit2.Text);
  setlength(massrand,n,m);
  dec(n);
  dec(m);
  except
  good:=false;
  showmessage('Неверные n или m');
  end;
  if good then
    begin
    image1.Canvas.FillRect(image1.ClientRect);
    for i:=0 to n do
      for j:=0 to m do
        begin
        massrand[i,j]:=random(10*n-1);
        image1.Canvas.TextOut(j*30+2,i*20+2,format('%1.2f',[massrand[i,j]]));
        end;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize();
end;

end.

p.s.

(случайные числа в диапазоне от 0 до 10*N, N - размерность массива)

вот это ввело в заблуждение. массив (..,..)

SetLength(_Lines, n); установка длины динамического массива

[vovk]

О как а двумерный то зачем?

Мне кажется булев лишнее можно так StrToIntDef(edit1.Text,1)<>1
да и вообще смысл давать обязательно для исполнения ShowMessage, лишнее по моему
не вижу смысла в данном исполнения для

try
 .... 
  except

ЗЫ. Если ошибаюсь скажите. Знания лишними не бывают

[zhorzh2407]

Сообщение от vovk

ЭЭ мож так размерность то N

var _Lines : array of integer;
n: integer;
begin
n:= StrToInt(edit1.text);
SetLength(_Lines,  n);
for n:= 0 to high(_Lines) do  _Lines[n]:= random(10*n);

поясни пожалуйста эту строку "SetLength(_Lines, n);"

[vovk]

Сообщение от zhorzh2407

поясни пожалуйста эту строку "SetLength(_Lines, n);"

Задаём размерность массива N как просили

[zhorzh2407]

ЯСНО.. СПАСИБО