Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

массив

Страницы: < 1 2 3
дямак © (2006-05-08 11:46:00)
здравствуйте, Уважаемые мастера! На днях вот начал юзать delphi, прочитал какую-то книгу по совету одного из мастеров, вроде чё-то понял, но на подробное изучение не хватает времени, так как мне лабу в четверг сдавать надо , а она у меня ещё не сделана, точнее одну про график функции я сделал, а вот про массив никак! Может я тупой такой, вот я тут начал делать заполнение массива случайно

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function Unic(var flag: array of boolean; range: integer): integer;
begin
{ возвращение одного случайного числа}
result := random(range);
while flag[result] do
result := random(range); //какого числа еще нет
flag[result] := true; //чтобы не было повторений
end;

procedure MassRand(range: integer; var inputMass: array of integer);
var
i: integer;
bm: array of boolean;
begin
SetLength(bm, length(inputMass));
for i := 0 to length(inputMass) - 1 do
begin
inputMass[i]:=Unic(bm,range);//заполнение от 0,1, ... ,до N
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
mass: array of integer; //собственно сам массив
begin
Memo1.Lines.Clear; //Ввод результата
SetLength(mass, strtoint(Edit1.Text)); //скока линий
MassRand(strtoint(Edit1.Text), mass); //использование процедуры
for i := 0 to length(mass) - 1 do
begin
Memo1.Lines.Add(inttostr(mass[i])); //результат
end;
end;

end.

но он по ходу одномерный (или как он там называется), а мне нужно чтобы он был многомерный (может я неправильно выражаюсь, ну чтобы например 10 строк и 10 столбцов) объясните чё я неправильно делаю?

дямак (2006-05-08 12:06:00) [41]
сенкс

alex-drob (2006-05-08 11:55:00) [42]
Тебе нужен масив вида mas: array [0..9,0..9] of integer.
Ну а если динамический то
_mas: array of integer;
mas: array of _mas;
Кажеться так.

Страницы: < 1 2 3

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »