[ps1panda]

Доброго времени суток. Помогите написать программу естественно на делфи.Суть вот в чем нужен двумерный массив из координат и чтоб дальше он рандомно выводил точки по координатам из массива

[angvelem]

А где ваши попытки? Всё за вас написать?

[Bargest]

По описанию прога элементарная. И информации про Random, про массивы, про вывод точек просто море. Так что пишите, что не получается и что не работает, будем думать.

[ps1panda]

procedure TForm1.Button1Click(Sender: TObject);
begin
canvas.Pen.Style:=pssolid;
canvas.MoveTo(100,400);
canvas.LineTo(400,400);
canvas.Pen.Style:=pssolid;
canvas.MoveTo(100,400);
canvas.LineTo(100,100);

for i:=100 to 250 do
for j:=110 to 390 do
begin
x:=i+random(10);
y:=j+random(10);
canvas.Pen.style:=pssolid;
canvas.Pen.Color:=clred;
canvas.Rectangle(x,y,x+10,y+10);
end;
for i1:=250 to 400 do
for j1:=110 to 390 do
begin
x1:=i1+random(10);
y1:=j1+random(10);
canvas.Pen.style:=pssolid;
canvas.Pen.Color:=clblue;
canvas.Rectangle(x1,y1,x1+10,y1+10);
end;

вопрос такой как мне уменьшить шаг рандома чтоб выводило не 1000 квадратов а парочку

[angvelem]

В таком случае не шаг, а количество выводов. Добавь ещё одну переменную, к примеру Count, обнуляй её перед циклом и наращивай в цикле. Как дойдёт до нужного значения прерывай цикл командой Break.

[ps1panda]

а не подскажеш куда эту переменную впихнуть)