Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
RekcaR
0 / 0 / 0
Регистрация: 26.04.2013
Сообщений: 124
Завершенные тесты: 1
#1

Одномерный массив: Поменять местами его первый элемент со вторым, третий - с четвертым и т.д. - Delphi

03.07.2013, 20:03. Просмотров 516. Ответов 1
Метки нет (Все метки)

69.RAR
Дан массив размера N (N - четное число). Поменять местами его первый элемент со вторым, третий - с четвертым и т.д.
Работаю с Memo , второй массив не получается, прога зависает и выдает чушь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.07.2013, 20:03
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Одномерный массив: Поменять местами его первый элемент со вторым, третий - с четвертым и т.д. (Delphi):

Дан двухмерный массив из четного числа столбцов. Поменять местами первый столбец со вторым, третий - с четвертым и т. д - Delphi
Дан двухмерный массив, массив забиваю так: var Form4: TForm4; k:integer; n:integer; i:integer; mas2: array of array of ...

Поменять местами первый столбец со вторым, третий - с четвертым и т. д. в данном массиве - Delphi
Дан двумерный массив из четного числа столбцов. Поменять местами первый столбец со вторым, третий - с четвертым и т. д.

Одномерный массив. Поменять местами первый и последний минимальные элементы - Delphi
Помогите СРОЧНО!!! находит первое минимальное, а последнее минимальное не находит Само задание:1. Дан одномерный массив А длиной...

В заполненном массиве найти первый отрицательный элемент и поменять его местами с максимальным - Delphi
В заполненном массиве найти первый отрицательный элемент и поменять его местами с максимальным.

Поменять местами первый элемент - Delphi
Поменять местами первый элемент массива с минимальным элементом. В окне метка вывести номер минимального элемента до и после обмена. ...

Поменять местами максимальный элемент и первый - Delphi
Var Массив:array of smallint; N:smallint; Begin Read(N); Массив:=new smallint; Массив:=-1001; For var i:= 1 to N do ...

1
Скандербег
925 / 884 / 215
Регистрация: 07.08.2012
Сообщений: 2,455
03.07.2013, 21:56 #2
Так работает без ошибок:
Кликните здесь для просмотра всего текста
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
implementation
 
uses Unit1;
 
{$R *.dfm}
 
var
  n: integer;
  a : array of Integer;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
   form2.Hide;
   form1.show;
end;
 
procedure TForm2.Button3Click(Sender: TObject);
var i:integer;
begin
  if Edit1.text = '' then begin
    ShowMessage('Задайте размерность массива !!!');
    Exit;
  end;
 
  Memo1.Lines.Clear;
  N := StrToInt(edit1.Text);
  SetLength(a, N);
  for i := 0 to High(a) do begin
    a[i]:=Random(11)+5;
    Memo1.Lines.Add(Format('%3d',[a[i]]));
  end;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
var
  i, buf : integer;
begin
  i := 0;
  while i < High(a) do begin
    buf := a[i];
    a[i] := a[i+1];
    a[i+1] := buf;
    Memo2.Lines.Add(Format('%3d',[a[i]]));
    Memo2.Lines.Add(Format('%3d',[a[i+1]]));
    inc(i, 2);
  end;
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.07.2013, 21:56
Привет! Вот еще темы с ответами:

Массив: Найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять его местами со стоящим на пересечении этих диагоналей - Delphi
Дана действительная,квардратичная матрица порядка n9,все элементы которой различны. Найти наибольший элемент среди стоящих на главной и...

Поменять местами первый отрицательный элемент с последним положительным элементом - Delphi
Дан массив Х(10) Поменять местами первый отрицательный элемент, с последним положительным элементом.

В заданном векторе поменять местами первый элемент с последним, второй – с предпоследним и т.д. - Delphi
Составить программу для выполнения заданных действий над одномерным массивом – вектором A из n элементов: В заданном векторе поменять...

В массиве поменять местами первый и мин элемент (не могу найти ошибку) - Delphi
Задание в массиве поменять местами 1 и мин элемент. Помогите найти ошибку. Если можно подскажите как использовать вместо стринггрид мемо...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru