Пример 3.4. Элементы заданного числового массива a1, a2, ..., aN упорядочить по

возрастанию.

Тест

Алгоритмический язык

алг Возрастание(арг цел N, арг рез вещ таб A[1:N])

нач цел i, j, вещ Tmp

нц для i от 1 до N-1

нц для j от i+1 до N Блок-схема (фрагмент)

ecли A[i] > A[j]

то Tmp:=A[i]; A[i]:=A[j];

A[j]:=Tmp;

Все

Кц

Кц

Кон

Turbo Pascal

Program Regulation;

Uses Crt;

Type Mas = Array [1..10] of Real;

Var A: Mas;

i, j, N: Integer;

Tmp: Real;

{--------------------------------------------}

Procedure Input; {описание процедуры ввода массива }

Begin

ClrScr;

Write('Введите N = '); ReadLn(N);

WriteLn('Введите элементы массива: ');

For i:= 1 to N do

begin Write('A [ ', i, ' ] = ');

ReadLn(A[i]);

end;

End; {of Input}

{--------------------------------------------}

Procedure Regulate; {описание процедуры упорядочения по возрастанию}

Begin

For i:= 1 to N-1 do

For j:= i+1 to N do

If A[i] > A[j] then

begin

Tmp:=A[i];

A[i]:=A[j];

A[j]:=Tmp;

end;

End; {of Regulate}

{--------------------------------------------}

Procedure Output; {описание процедуры вывода результата}

Begin

WriteLn('Упорядоченный массив:');

For i:=1 to N do Write(A[i]: 6: 1);

WriteLn; ReadLn

End; {of Output}

{--------------------------------------------}

BEGIN

Input; {вызов процедуры ввода массива }

Regulate; {вызов процедуры упорядочения по возрастанию}

Output; {вызов процедуры вывода результата}

END.

Не нашли, что искали? Воспользуйтесь поиском: