переставить массив

[dyc9]

Задан массив на 15 элементов. Получить массив с обратным располо-жением элементов.

не получается переставить(

procedure TForm1.btn1Click(Sender: TObject);
var a,b:array[1..15] of integer;
i,n,x,summ:Integer;
begin
for i:=1 to 15 do if Length(strngrd1.Cells[i,0])<>0
then a[i] := StrToint(strngrd1.Cells[i, 0]) else a[i] := 0;
for i :=1 to 15 do begin  b[i] := a[15 - i + 1]; end;
b[i] := StrToint(StringGrid1.Cells[i,0]);

end;

end.

[turok7770]

b[i] := StrToint(StringGrid1.Cells[i,0]);

Не правильно присваиваешь

StringGrid1.Cells[i,0]:= IntToStr(b[i]);

Ну и это строчка под циклом

[dyc9]

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

b[i] := StrToint(StringGrid1.Cells[i,0]);

Не правильно присваиваешь

StringGrid1.Cells[i,0]:= IntToStr(b[i]);

Ну и это строчка под циклом

PHP код:

procedure TForm1.btn1Click(Sender: TObject);
var a,b:array[1..15] of integer;
i,n,x,summ:Integer;
begin
for i:=1 to 15 do if Length(strngrd1.Cells[i,0])<>0
then a[i] := StrToint(strngrd1.Cells[i, 0]) else a[i] := 0;
for i :=1 to 15 do begin  b[i] := a[15 - i + 1]; end;
StringGrid1.Cells[i,0]:= IntToStr(b[i]);

end;

end. 


[dyc9]

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

b[i] := StrToint(StringGrid1.Cells[i,0]);

Не правильно присваиваешь

StringGrid1.Cells[i,0]:= IntToStr(b[i]);

Ну и это строчка под циклом

все равно не переставляет(

[Человек_Борща]

Получить массив с обратным располо-жением элементов.

Сверху-вниз шоле?
Так это for downto do цикл.

[dyc9]

Сообщение от Человек_Борща

Сверху-вниз шоле?
Так это for downto do цикл.

ну массив будет 1234
при перестановке выведет 4321

через downto делал, не канает

вот набросок, выводит что попало

procedure TForm1.btn1Click(Sender: TObject);
var a,b:array[1..4] of integer;
i,n,x,summ:Integer;
begin
for i:=1 to 4 do if Length(strngrd1.Cells[i-1,0])<>0
then a[i] := StrToint(strngrd1.Cells[i-1, 0]) else a[i] := 0;
for i :=4 downto 1 do StringGrid1.Cells[i-1,0]:= IntToStr(b[i]);
end;

end.

[s-andriano]

Кто-нибудь может мне объяснить, зачем при банальной перестановке нужно преобразовывать из строки в число и обратно?

[dyc9]

Сообщение от s-andriano

Кто-нибудь может мне объяснить, зачем при банальной перестановке нужно преобразовывать из строки в число и обратно?

рабочий код, подскажите как считать первый грид, чтобы при случайном заполнение он был выведен на экран?

PHP код:

procedure TForm1.btn1Click(Sender: TObject);
var a,b:array[1..15] of integer;
i,n,x,summ:Integer;
begin
for i:=1 to 15 do if Length(strngrd1.Cells[i-1,0])<>0
then a[i] := StrToint(strngrd1.Cells[i-1, 0]) else a[i] := 0;
for i :=15 downto  1 do begin  b[i] := a[15 - i + 1];
StringGrid1.Cells[i-1,0]:= IntToStr(b[i]);  end;
end; 


[BDA]

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  s: string;
begin
  with StringGrid1 do
    for i := 0 to (ColCount - 1) div 2 do
    begin
      s := Cells[i, 0];
      Cells[i, 0] := Cells[ColCount - i - 1, 0];
      Cells[ColCount - i - 1, 0] := s;
    end;
end;

"Переворачивает" нулевую строку стринггрида.

рабочий код, подскажите как считать первый грид, чтобы при случайном заполнение он был выведен на экран?

Сформулируйте еще раз, что Вы хотите сделать.

[dyc9]

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  s: string;
begin
  with StringGrid1 do
    for i := 0 to (ColCount - 1) div 2 do
    begin
      s := Cells[i, 0];
      Cells[i, 0] := Cells[ColCount - i - 1, 0];
      Cells[ColCount - i - 1, 0] := s;
    end;
end;

"Переворачивает" нулевую строку стринггрида.

Сформулируйте еще раз, что Вы хотите сделать.

ну, у меня сейчас strngrd1 заполняется от руки, в случае если мы пропускаем ячейку, он считает, что a[i] := 0
а я сейчас хочу сделать, чтоб в strngrd1 заполнялся случайными числами, т.е заместо a[i] := 0, делаю a[i] := random (1000)
начинаю теперь считывать грид 1, а он выдает ошибку, как считать грид,
чтоб он вывел, какие случайные числа оказались в гриде1?