Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Василий01
1 / 1 / 0
Регистрация: 13.04.2012
Сообщений: 52
1

Кольцевой сдвиг чисел влево

23.05.2012, 13:26. Просмотров 474. Ответов 3
Метки нет (Все метки)

Допустим n=5
вывести на экран
12345
23451
34512
45123
51234

 Комментарий модератора 
Василий01, вы уже не новичок и должны были бы ознакомиться с правилами, в особенности
2.3 Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят.
3.3 Запрещено создавать темы с бессмысленными названиями вроде "Помогите!", "Вопрос" и т.п.
3.4 Запрещено размещать тему в нескольких разделах одновременно (кросспостинг), а также дублировать тему в одном разделе.
Больше предупреждений не будет.

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

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2012, 13:26
Ответы с готовыми решениями:

Сдвиг столбцов матрицы влево
дана матрица которую вводит пользователь.Нужно подвинуть все столбцы влево на n...

Циклический сдвиг элементов массива влево
нужно решить задание:элементы массива циклически сдвинуть на одну позицию...

Осуществить сдвиг элементов массива влево на K позиций
Здравствуйте. За основу брал код многоуважаемого Puporev. Есть пара вопросов....

Осуществить сдвиг элементов массива влево на K позиций
Array82. Дан массив размера N и целое число K (1 ≤ K < N). Осуществить сдвиг...

Циклический сдвиг влево элементов одномерного массива
2.Напишите процедуру, реализующую циклический сдвиг влево элементов одномерного...

3
Puporev
Модератор
55411 / 42542 / 29396
Регистрация: 18.05.2008
Сообщений: 100,636
23.05.2012, 13:59 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<=n-i+1 then a[i,j]:=i+j-1
    else a[i,j]:=j+i-n-1;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.
0
Василий01
1 / 1 / 0
Регистрация: 13.04.2012
Сообщений: 52
23.05.2012, 14:01  [ТС] 3
а можно её ришить прописывая много раз Writeln? а то твоё решение для меня сложновато, да и в пинципе не понятно
0
Puporev
Модератор
55411 / 42542 / 29396
Регистрация: 18.05.2008
Сообщений: 100,636
23.05.2012, 14:15 4
Цитата Сообщение от Василий01 Посмотреть сообщение
а можно её ришить прописывая много раз Writeln?
Можно, пиши.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2012, 14:15

Произвести сдвиг элементов вектора A(n) на к позиций влево
Произвести сдвиг элементов вектора A(n) на к позиций влево так, что на место a...

Осуществить сдвиг элементов массива влево на одну позицию
Пожалуйста, помогите мне. Дан массив размера N.Осуществить сдвиг элементов...

Написать процедуру, выполняющую циклический сдвиг заданных параметров влево
Описать процедуру ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг:...


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

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

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