Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 10.05.2014, 22:57   #1 (permalink)
molo4nik
Новичок
 
Регистрация: 10.05.2014
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Циклический сдвиг вправо

Дан линейный массив на N элементов. Выполнить циклический сдвиг всех его элементов на один вправо начиная с последнего нулевого элемента. Нулевой элемент обязательно существует.
Входные данные:
Во входном потоке в первой строке задано натуральное число N - количество элементов массива (N <= 100).
Во второй строке через пробел перечислены целые значения элементов массива. Все значения не превышают по модулю 1000.

Выходные данные:
В выходной поток вывести в строку через пробел целые числа.

Пример входного файла (input.txt):
5
1 0 3 4 5
Пример выходного файла (output.txt):
1 5 0 3 4
Подскажите как организовать вывод данного массива
Цитата:
Var m : array[1..100] of Integer;
tmp,i,z,max : Integer;
begin
readln(max);
for i:=1 to max do
readln(m[i]);
for i:=max downto 1 do if m[i] = 0
then begin
z := i;
break
end;
tmp:=m[5];
For i:=z+1 to max do begin
m[i]:=m[i-1];
m[1]:=tmp;
molo4nik вне форума   Ответить с цитированием

Старый 10.05.2014, 22:57
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Данные топики могут содержать в себе важную информацию

Помогите, пожалуйста, написать на Паскале программу "Циклический алгоритм"
Циклический таймер
Cycle Alarm Clock - циклический будильник, просыпайся отдохнувшим
Нужно произвести циклический сдвиг
Сдвиг элементов массива, Паскаль

Старый 11.05.2014, 09:21   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,863
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от molo4nik Посмотреть сообщение
Подскажите как организовать вывод данного массива
Так:
Код:
Var
 m:array[1..100] of Integer;
 tmp,i,z,max : Integer;
begin
 write('max = ');
 readln(max);
 for i:=1 to max do
  begin
   write('m[',i,']= ');
   readln(m[i]);
  end;
 writeln;
 for i:=1 to max do write(m[i]:4);
 writeln;
 z:=max+1;
 repeat
  z:=z-1;
 until m[z]=0;
 tmp:=m[max];
 for i:=max downto z+1 do m[i]:=m[i-1];
 m[z]:=tmp;
 for i:=1 to max do write(m[i]:4);
 readln
end.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:19.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.