Трассировка

Экзамен(1 модуль).

Задание и пример его выполнения

Задача. Дан целочисленный массив A[1:n]. Упорядочить по возрастанию элементы массива, расположенные после его максимального элемента. Записать постановку задачи, алгоритм ее решения, написать программу и привести данные для исчерпывающего тестирования.

Решение.

Дано: n, A[1:n]

Результат: A’[1:n] или сообщение «нет сортировки: максимум последний» или сообщение «нет перестановок»

При: nЄN, n≤Lmax

Связь: A’[i]≤A[i+1], i=nmax, n-1, где A[nmax]>=A[i], i=1,n.

Алг «сортировка после максимума»

Нач

ввод(n, a[1:n])

{инициализации}

nmax:=1

циклот i:=2 до n

если a[i] >= a[nmax] то

nmax:=i

все

кц

если nmax=n то

вывод(«нет сортировки: максимум последний»)

иначе f:=false {признак наличия перестановок}

циклот i:=nmax+1 до n-1{метод установки}

циклот j:=i+1 до n

если a[i]>a[j] то

f:=true {перестановка была}

{собственно перестановка}

b:=a[i]; a[i]:=a[j]; a[j]:=b

все

кц

кц

если f=false то

вывод («нет перестановок»)

иначе

вывод («массив после сортировки»)

вывод(a[1:n])

все

все

кон

program kr;

var a:array[1..20] of integer;

i,j,n,nmax,b:integer;

f:boolean;

begin

write('введите n'); read(n);

write('введите массив');

for i:=1 to n do

read(a[i]);

{инициализация}

nmax:=1;

for i:=2 to n do

if a[i] >= a[nmax] then

nmax:=i;

if nmax=n then

writeln('нет перестановок: максимум последний')

else

begin

f:=false; {признак наличия перестановок}

for i:=nmax+1 to n-1 do{метод установки}

for j:=i+1 to n do

if a[i]>a[j] then

begin

f:=true;{перестановка была}

{собственно перестановка}

b:=a[i];a[i]:=a[j];a[j]:=b;

end;

if f=false then

writeln ('нет перестановок')

else

begin

writeln('массив после сортировки');

for i:=1 to n do writeln(a[i]);

end;

end;

end.