Kurs2011

If (Sum<>5) Then begin

If (Sum>5) Then IncreaseFlag:= True Else IncreaseFlag:= False;

Choice(Mt, b, Nt, n1, PositiveFlag); Sort(b, n1, IncreaseFlag);

Ret(Mt, b, Nt, PositiveFlag); end;

End; { of Transform }

{ ======= OUTPUT ======= } Procedure Output(Mo: Mas; No: Byte); var f: Text;

i: Byte;

Begin { of Output } Assign(F, 'f2.txt'); Rewrite(F);

for i:= 1 to No do Write(F, Mo[i]:4); Close(F);

End; { of Output }

{ ======= PROGRAM ======= } begin { of Program }

Input(a, n); Transform(a, n); Output(a, n);

end. { of Program }

Комментарии к программе. Ниже приводим соответствие подпрограмм в программе Lab_11 и компонентов третьего уровня на рисунках 2 и 5. FSum – Нахождение суммы цифр числа элементов; QuantityOdd – Нахождение количества нечетных элементов; SortInc – Сортировка по возрастанию; SortDec – Сортировка по убыванию.

41

42

43

44