Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
hello32
4 / 4 / 5
Регистрация: 16.04.2010
Сообщений: 10
16.04.2010, 21:54 0

Переставить первые k и последние k элемента местами, сохраняя порядок их следования

16.04.2010, 21:54. Просмотров 909. Ответов 3
Метки (Все метки)

Ответ

3. Переставить первые k и последние k элемента местами, сохраняя порядок их следования.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
 a_massive: array [1..16] of string;
 k, i: integer;
 my_buffer: string; //Место для временного хранения определенного значения
begin
 k:=3;
 
 for i:=1 to k do
  begin
    my_buffer:=a_massive[length(a_massive)-k+i];
    a_massive[length(a_massive)-k+i]:=a_massive[i];
    a_massive[i]:=my_buffer;
  end;
end;


Вернуться к обсуждению:
Переставить первые k и последние k элемента местами, сохраняя порядок их следования
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2010, 21:54
Готовые ответы и решения:

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

Сдвинуть все элементы с четными индексами в начало массива, а с нечетными – в конец, сохраняя порядок их следования.
Задан одномерный массив. Сдвинуть все элементы с четными индексами в начало...

Вывести на экран первые вхождения букв в текст, сохраняя при этом их исходный взаимный порядок
Помогите, вот еще одна задача. Для зачета нужно. Без нее не поставят зачет!!!!...

Поменять местами две половины массива, сохраняя их порядок
Дан массив целых чисел из n элементов, заполненный случайным образом числами из...

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

3
Другие темы раздела
Delphi Вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей http://www.cyberforum.ru/delphi-beginners/thread117666.html
Здравствуйте,пожалуйста,кто знает как делать,помогите... Дан двумерный массив размером n*m, заполненный случайным образом. 1. Заменить максимальный элемент каждой строки нулем 2. ...
Delphi Динамическое создание компонентов в потоке Добрый день, я динамически создаю компоненту в потоке и мне нужно прореагировать на ее событие, не подскажете как это правильно сделать. Чтобы было понятнее что я пытаюсь сделать, вот куски кода ... http://www.cyberforum.ru/delphi-beginners/thread117654.html
Написать программу сортировки массива по возрастанию Delphi
Задача 2 Написать программу, которая определяет, идет ли поезд между двумя выбранными городами. Список городов организовать в виде двух компонентов RadioGroup. Задача 4 Написать программу...
Delphi Определить, какие символы и сколько раз встречаются в тексте
1)Определить, какие символы и сколько раз встречаются в тексте. 2)Составить программу, вычёркивающую из слова X и Y те буквы, что одновременно используются при написании каждого из этих слов. ...
Delphi delphi прога не работает http://www.cyberforum.ru/delphi-beginners/thread117626.html
не понимаю в чем ошибка,помогите исправить пожалуйста! надо расположить 3 числа в порядке убывания! procedure TForm1.Button1Click(Sender: TObject); var a,b,c: real; begin...
Delphi Сделайте блок-схему по лабе. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1:... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru