Delphi - одномерные массивы

[sasha27]

Ребята, помогите, пожалуйста, решить две задачки на DELPHI. Огромное спасибо.

Дан массив В, состоящий из 2n элементов. Элементы массива ввести с использованием компонента Edit. Переставить его элементы по следующему правилу: b[1], b[n+1], b[2], b[n+2], … b[n], b[2n]. Вывести новый массив в окно сообщений.

Дан массив В, состоящий из n элементов. Элементы массива ввести с использованием компонента Edit. Удалить элементы с k1-го по k2-ой, где k1 и k2 вводятся с клавиатуры. Вывести новый массив в окно сообщений.

[newerow1989]

function GetSubStr(st:string; k:integer):integer;
var
  p, i:integer;
  r:string;
begin
   for i:=1 to k-1 do begin
      p:=pos(' ', st);
      st:=copy(st, p+1, length(st)-p);
   end;
   p:=pos(' ', st);
   if p<>0
      then r:=copy(st, 1, p-1)
      else r:=st;
   Result:=StrToInt(r);
end;

procedure TForm1.Button1Click(Sender: TObject);
const n=5;
var b:array[1..2*n] of integer;
    i,j,z:integer;
begin
   For i:=1 to 2*n do
      b[i]:=GetSubStr(Edit1.Text,i);
   For i:=1 to n-1 do
   begin
      z:=b[n+i];
      For j:=n+i downto (i-1)*2+3 do
         b[j]:=b[j-1];
      b[(i-1)*2+2]:=z;
   end;
   Edit2.Text:='';
   For i:=1 to 2*n do
      Edit2.Text:=Edit2.Text+IntToStr(b[i])+' ';
end;

function GetSubStr(st:string; k:integer):integer;
var
  p, i:integer;
  r:string;
begin
   for i:=1 to k-1 do begin
      p:=pos(' ', st);
      st:=copy(st, p+1, length(st)-p);
   end;
   p:=pos(' ', st);
   if p<>0
      then r:=copy(st, 1, p-1)
      else r:=st;
   Result:=StrToInt(r);
end;

procedure TForm1.Button1Click(Sender: TObject);
const n=5;
var b:array[1..2*n] of integer;
    i,j,z,k1,k2:integer;
begin
   For i:=1 to 2*n do
      b[i]:=GetSubStr(Edit1.Text,i);
   k1:=StrToInt(Edit2.Text);
   k2:=StrToInt(Edit3.Text);
   For i:=k1 to k2 do
   begin
      For j:=k1 to 2*n-1 do
         b[j]:=b[j+1];
      b[2*n]:=0;
   end;
   Edit4.Text:='';
   For i:=1 to 2*n-k2+k1-1 do
      Edit4.Text:=Edit4.Text+IntToStr(b[i])+' ';
end;

[sasha27]

Вторая задача
Ввожу массив:1,2,3,5,4
ввожу к1=2 к2=5, мне выводится массив 1,4,4,4,4,4

ввожу к1=1 к2=5, мне выводится массив 4,4,4,4,4

ввожу к1=2 к2=4, мне выводится массив 1,4,4,4,4,4,4

procedure TForm1.btn1Click(Sender: TObject);
var
s:string;
i,n,k1,k2,k,j:integer;
B:array [1..100] of integer;
begin
 n:=StrToInt(edt1.text);
for i:=1 to 2*n do
 begin
  b[i]:=StrToInt(GetSubStr(Edt2.Text,i));
 end;
 k1:=StrToInt(edt3.text);
 k2:=StrToInt(edt4.text);
for i:=k1 to k2 do
 begin
  for j:=k1 to 2*n-1 do
  b[j]:=b[j+1];
 b[2*n]:=0;
  end;
  s:='';
 for i:=1 to 2*n-k2+k1-1  do s:=s+' '+IntToStr(b[i])+', ';

 showMessage(s);

end;

[zvygin1964]

Задание должно формулироваться так:

[newerow1989]

Там просто заменить 2*n на n (забыл поменять)

begin
 n:=StrToInt(edit1.text);
for i:=1 to n do
 begin
  b[i]:=GetSubStr(Edit2.Text,i);
 end;
 k1:=StrToInt(edit3.text);
 k2:=StrToInt(edit4.text);
for i:=k1 to k2 do
 begin
  for j:=k1 to n-1 do
  b[j]:=b[j+1];
 b[2*n]:=0;
  end;
  s:='';
 for i:=1 to n-k2+k1-1  do s:=s+' '+IntToStr(b[i])+', ';

 showMessage(s);
end;

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

Задание должно формулироваться так:

Похоже, я на ящик заработал!

[sasha27]

все равно также получается
Ввожу массив:1,2,3,5,4
ввожу к1=2 к2=5, мне выводится массив 1,
ввожу к1=1 к2=5, мне выводится пустое окно сообщений
ввожу к1=2 к2=4, мне выводится массив 1,4

begin
 n:=StrToInt(edt1.text);
for i:=1 to n do
 begin
  b[i]:=StrToInt(GetSubStr(Edt2.Text,i));
 end;
 k1:=StrToInt(edt3.text);
 k2:=StrToInt(edt4.text);
for i:=k1 to k2 do
 begin
  for j:=k1 to n-1 do
  b[j]:=b[j+1];
 b[2*n]:=0;
  end;
  s:='';
 for i:=1 to n-k2+k1-1  do s:=s+' '+IntToStr(b[i])+', ';

 showMessage(s);
end;

[newerow1989]

А условие задания какое?

[sasha27]

я про то,что задаю удаление массива с 2 до 4,а выводя новый массив 4 в нем присутствует, а ее быть не должно

[newerow1989]

1,2,3,5,4
будет 1,4

[sasha27]

вот, показывает 1, а должно быть 1,4