Процедура переноса элемента - 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.

Объяснение кода листинга программы

  1. Объявлены константа n типа integer со значением 5 и тип данных mas, который является массивом целых чисел.
  2. Объявлены две процедуры p1 и p2 для перестановки элементов массива.
  3. В основной части программы объявлена переменная a типа mas и переменная i типа byte.
  4. Выполняется инициализация генератора случайных чисел.
  5. Выводится исходный массив, состоящий из случайно сгенерированных чисел от 10 до 100.
  6. Вызывается процедура p1, которая переносит последний элемент массива в начало.
  7. Выводится измененный массив.
  8. Вызывается процедура p2, которая переносит первый элемент массива в конец.
  9. Выводится измененный массив.

Оцени полезность:

14   голосов , оценка 3.929 из 5
Похожие ответы