Главная » Pascal, Исходники, Массивы » Программа проверки истиности перестановки элементов массива к заданной последовательности
Ноя
28

Программа проверки истиности перестановки элементов массива к заданной последовательности

Проверить, является ли введенная последовательность перестановкой последовательности 1, 2,..,N.

[sourcecode highlight=»44″ language=»css»]
uses Crt;
const
n = 10; { количество элементов массива }
var
A: Array[1..n] of Integer;
i, j: Byte;
Temp: Integer;
Exch, Done: Boolean;
{ Done — переменная, которая будет отвечать, является ли
массив перестановкой последовательности 1, 2,..,N }

begin
ClrScr;
for i:=1 to n do { инициализация массива }
Read(A[i]);
Writeln;

Exch:=True; j:=1; { сортировка массива }
While Exch do
begin
Exch:=False;
for i:=1 to n-j do
if A[i] > A[i+1] then
begin
Temp:=A[i];
A[i]:=A[i+1];
A[i+1]:=Temp;
Exch:=True;
end;
Inc(j);
end;

{ проверка является ли элементы массива перестановкой
последовательности 1, 2,.., N }
i:=1; Done:=True;
While i <= n do
begin
if A[i] <> i
then Done:=False;
Inc(i);
end;
Writeln(Done);
end.
{ prepared special for www.kpeople.ru by AlexeyJava }
[/sourcecode]



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.