Процедура переноса элемента - Pascal
Формулировка задачи:
Добрый день!
Помогите пожалуйста написать две процедуры на языке Паскаль.
Первая должна из 5 элементов переместить последний в начало (было 12345, стало 51234)
Вторая из пяти элементов переносит первый в конец (было 12345, стало 23451).
Решение задачи: «Процедура переноса элемента»
textual
Листинг программы
const n=5; type mas=array[1..n] of integer; procedure p1(var a:mas); var i,x:integer; begin x:=a[n]; for i:=n downto 2 do a[i]:=a[i-1]; a[1]:=x; end; procedure p2(var a:mas); var i,x:integer; begin x:=a[1]; for i:=1 to n-1 do a[i]:=a[i+1]; a[n]:=x; end; var a:mas; i:byte; begin randomize; writeln('Исходный массив'); for i:=1 to n do begin a[i]:=10+random(90); write(a[i]:3); end; writeln; p1(a); writeln('Перестановка последнего элемента в начало'); for i:=1 to n do write(a[i]:3); writeln; p2(a); writeln('Перестановка первого элемента в конец'); for i:=1 to n do write(a[i]:3); end.
Объяснение кода листинга программы
- Объявлены константа n типа integer со значением 5 и тип данных mas, который является массивом целых чисел.
- Объявлены две процедуры p1 и p2 для перестановки элементов массива.
- В основной части программы объявлена переменная a типа mas и переменная i типа byte.
- Выполняется инициализация генератора случайных чисел.
- Выводится исходный массив, состоящий из случайно сгенерированных чисел от 10 до 100.
- Вызывается процедура p1, которая переносит последний элемент массива в начало.
- Выводится измененный массив.
- Вызывается процедура p2, которая переносит первый элемент массива в конец.
- Выводится измененный массив.