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

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

Войти
Регистрация
Восстановить пароль
 
губошлёп
0 / 0 / 0
Регистрация: 28.02.2009
Сообщений: 26
#1

В заданом одномерном массиве поменять местами соседние элементы, стоящие на четных и нечетных местах. - Delphi

28.05.2011, 10:32. Просмотров 954. Ответов 1
Метки нет (Все метки)

Вообщем, буду благодарен.
В заданом одномерном массиве поменять местами соседние элементы, стоящие на четных и нечетных местах.
p.s. используя 2 компоненты StringGrid)))

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TF_menu.VvodClick(Sender: TObject);
type
  mass=array[1..10] of integer;
  var n,k,i:integer;
  S:real;
  a:mass;
begin
  k:=0;
  n:=strtoint(E_n.text);
 for i:=0 to n-1 do
 A[i+1]:=strtoint(St_vod.Cells[i,0]);
 while I <n+1 do
begin
      k:= St_vod.Cells[i,0];
     St_vivod.Cells[i,0]:= St_vod.Cells[i+1,0];
   St_vivod.Cells[i+1,0]:=k ;
      i:=i+2;
     end;
end;
Ошибка в цикле
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2011, 10:32
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В заданом одномерном массиве поменять местами соседние элементы, стоящие на четных и нечетных местах. (Delphi):

В одномерном массиве переставить местами элементы, находящиеся на четных и нечетных местах. Начальный и преобразованный массивы выдать на печать форма - Delphi
Написать консольное приложение.Массивы заполняются вручную с клавиатуры.самым простым способом заранее спасибо 14 В одномерном массиве...

поменять местами элементы, стоящие на нечётных местах, с элементами стоящими на чётных местах - Delphi
Дан одномерный массив, содержащий n элементов местами элементы, поменять местами элементы, стоящие на нечётных местах, с элементами...

Вывести сначала элементы массива, стоящие на четных местах, затем - на нечетных - Delphi
Дан массив.Вывести на экран сначала его элементы, стоящие на четных местах, затем - на нечетных.

В массиве отсортировать элементы, стоящие на четных местах по возрастанию - Delphi
19 В массиве отсортировать элементы, стоящие на четных местах по возрастанию. Написать консольное приложение самым простым способом...

В массиве отсортировать элементы, стоящие на четных местах по возрастанию - Delphi
сделать консольное приложение 19 В массиве отсортировать элементы, стоящие на четных местах по возрастанию. Решите пожалуйста самым...

В массиве заменить все элементы, стоящие на четных местах, максимальным значением массива - Delphi
Выдает ошибки в этом &quot;i:=i+2&quot;. Что не так? procedure TForm1.Button1Click(Sender: TObject); const n = 9; var A: array of...

1
вумудщзук
61 / 61 / 3
Регистрация: 19.05.2010
Сообщений: 198
28.05.2011, 13:08 #2
Ты после цикла For i не обнолил переменную i

Добавлено через 39 секунд
Delphi
1
2
3
4
5
for i:=0 to n-1 do
 A[i+1]:=strtoint(St_vod.Cells[i,0]);
i:=0;//<-Вот это забыл
 while I <n+1 do
begin
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2011, 13:08
Привет! Вот еще темы с ответами:

В прямоугольной матрице поменять местами элементы четных и нечетных столбцов-соседей. - Delphi
В прямоугольной матрице поменять местами элементы четных и нечетных столбцов-соседей. var Form1: TForm1; ...

В одномерном массиве максимальный и минимальный элементы поменять местами - Delphi
Здравствуйте помогите решить задачу &quot;В одномерном массиве максимальный и минимальный элементы поменять местами&quot;

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

Заменить элементы одномерного массива, стоящие на нечетных местах, их модулями - Delphi
Создать одномерный массив X случайным образом. Вывести его в строку. Затем заменить элементы, стоящие на нечетных местах их модулями....


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

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

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