Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
15 / 21 / 8
Регистрация: 05.04.2013
Сообщений: 204
1

Составьте программу циклического сдвига элементов таблицы

17.10.2013, 00:35. Просмотров 409. Ответов 3
Метки нет (Все метки)

Составьте программу циклического сдвига элементов таблицы на 2 элемента. Последние два элемента займут первые два места.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2013, 00:35
Ответы с готовыми решениями:

Написать программу для циклического сдвига списка на n-1 элементов влево
Здравствуйте, помогите написать программу на Lisp Написать программу для циклического сдвига...

Составить программу осуществления циклического сдвига влево на k позиций элементов вектора
Составить программу осуществления циклического сдвига влево на k позиций элементов вектора В = { bi...

Программа циклического сдвига элементов массива
Помогите!Срочно! Составить программу циклического сдвига элементов массива А(10) на 5 позиций...

Осуществление циклического сдвига элементов прямоугольной матрицы на n элементов вправо
помогите пожалуйста....

3
Модератор
60878 / 45695 / 31526
Регистрация: 18.05.2008
Сообщений: 109,950
17.10.2013, 13:46 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
var a:array of integer;
    n,i,j,x:integer;
begin
n:=strtoint(edit1.text);
setlength(a,n);
randomize;
for i:=0 to n-1 do
 begin
  a[i]:=random(100);
  edit2.text:=edit2.text+inttostr(a[i])+' ';
 end;
for i:=1 to 2 do
 begin
  x:=a[n-1];
  for j:=n-1 downto 1 do
  a[j]:=a[j-1];
  a[0]:=x
 end;
for i:=0 to n-1 do
edit3.text:=edit3.text+inttostr(a[i])+' ';
end;
1
15 / 21 / 8
Регистрация: 05.04.2013
Сообщений: 204
18.10.2013, 00:44  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
[DELPHI]procedure TForm1.Button1Click(Sender: TObject);
Спасибо большое, а можно для консоли?
0
Модератор
60878 / 45695 / 31526
Регистрация: 18.05.2008
Сообщений: 109,950
18.10.2013, 06:43 4
Pascal
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a:array of integer;
    n,i,j,x:integer;
begin
write('n=');
readln(n);
setlength(a,n);
randomize;
for i:=0 to n-1 do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
for i:=1 to 2 do
 begin
  x:=a[n-1];
  for j:=n-1 downto 1 do
  a[j]:=a[j-1];
  a[0]:=x
 end;
for i:=0 to n-1 do
write(a[i]:4);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.10.2013, 06:43

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Получить результат циклического сдвига элементов списка на K позиций влево
Доброго времени суток. Не могли бы вы мне помочь решить несколько задач на прологе. Очень долго...

Функция циклического сдвига элементов массива на заданное количество позиций
Написать функцию, которая циклически сдвигает одномерный массив вправо или влево на указанное число...

Ошиба циклического сдвига
Вот задание. Дана действительная квадратная матрица порядка n. 1) осуществить циклический сдвиг...

Функция Циклического сдвига
Уже несколько дней мучаюсь никак не могу организовать функции циклического сдвига. Необходимо...

Функция циклического сдвига массива
Доброго времени суток, есть задача - нужно написать функцию, которая сдвигает массив array...

Подпрограмма циклического сдвига направо
Реализовать подпрограмму циклического сдвига направо . Код максимум пишется на 3-4 строчки. Входные...


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

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

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