Дан массив. Переставить элементы следующим образом a[1], a[12], a[2], a[11],

@TiumanNn · Регистрация: 14.03.2019

Студворк — интернет-сервис помощи студентам

Дан массив, Переставить элементы следующим образом a[1], a[12], a[2], a[11], a[3], a[10],a[4], a[9], a[5], a[8], a[6], a[7].

помогите пожалуйста с последним заданием

@Puporev · 25.04.2019, 14:57

Добавьте еще 1 StyringGrid.

Delphi

procedure TForm1.BitBtn4Click(Sender: TObject);
const n=12;
var x,i,j,k:integer;
    a:array[1..n] of integer;
begin
randomize;
with StringGrid4 do
 begin
  colcount:=n;
  for i:=1 to n do
   begin
    a[i]:=10+random(90);
    Cells[i-1,0]:=inttostr(a[i]);
   end;
 end;
k:=2;
for i:=1 to n  do
 begin
  x:=a[n];
  for j:=n downto k+1 do
  a[j]:=a[j-1];
  a[k]:=x;
  k:=k+2;
 end;
with StringGrid5 do
 begin
  colcount:=n;
  for i:=1 to n do
  Cells[i-1,0]:=inttostr(a[i]);
 end;
end;

@TiumanNn · 25.04.2019, 15:40 **[ТС]**

У меня тут такая ошибка выходить при нажатии на кнопку
''access violation at 0x0043706c: read of address 0x00000045''

@Puporev · 25.04.2019, 15:45

Вы уж с проектом сами разбирайтесь, у меня ошибки нет.
Вот код

Delphi

procedure TForm1.BitBtn4Click(Sender: TObject);
const n=12;
var x,i,j,k:integer;
    a:array[1..n] of integer;
begin
randomize;
with StringGrid4 do
 begin
  colcount:=n;
  for i:=1 to n do
   begin
    a[i]:=10+random(90);
    Cells[i-1,0]:=inttostr(a[i]);
   end;
 end;
k:=2;
for i:=1 to n div 2  do
 begin
  x:=a[n];
  for j:=n downto k+1 do
  a[j]:=a[j-1];
  a[k]:=x;
  k:=k+2;
 end;
with StringGrid5 do
 begin
  colcount:=n;
  for i:=1 to n do
  Cells[i-1,0]:=inttostr(a[i]);
 end;
end;

Вот результат.

@TiumanNn · 25.04.2019, 15:47 **[ТС]**

Хорошо, спасибо

@Puporev · 25.04.2019, 15:50

Что-то скрин неверно отразился.

@TiumanNn 0 / 0 / 0 Регистрация: 14.03.2019 Сообщений: 32
	25.04.2019, 15:40 [ТС]	3
	У меня тут такая ошибка выходить при нажатии на кнопку ''access violation at 0x0043706c: read of address 0x00000045'' 0

@TiumanNn 0 / 0 / 0 Регистрация: 14.03.2019 Сообщений: 32
	25.04.2019, 15:47 [ТС]	5
	Хорошо, спасибо 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	25.04.2019, 15:50	6
	Что-то скрин неверно отразился. Миниатюры 0

Опции темы

Дан массив. Переставить элементы следующим образом a[1], a[12], a[2], a[11],

Решение