Реферат: Методика создания программ

begin errngtv:=i ;

writeln (i,‘-я компонента не

натуральное число’)

end

{Проверка условия Q2: "i: 1 £i£ 100 : Ø$j: 1 £j£ 100: v[i] = v[j] Ùi¹j}

erreqvl:=0 ; for i:=1 to 4 do

for j:=i+1 to M do if v[i]=v[j]

then begin erreqvl:=1;

writeln(‘Все компоненты исходного

вектора должны быть попарно

различны. В заданных

исходных данных _’, i,‘-я_

и_’, j,‘-я_компонента равны’)

end {for j; for i}

if errngtv =0 Ù erreqvl:=0 then {Q}

{Обработка исходных данных} {R}

Рис. 13.3. Фрагмент программы “Проверка исходных данных”.

{Данные корректны} Обработка исходных данных.

i:=1 ;

whilei <= Mdo {Цикл заполнения вектора-результата}

{P₁ : "i: 1 £i £ 100: "k : 1 £ k £ i : о[k]<о[k+1]}

begin

о[i] :=maxint ;

forj:=1 toMdo {Поиск очередного наименьшего

компонента в исходном массиве}

begin {P₂ : "j: 1 £ j < i: "k : 1 £ k £100: î[j]< v[k]

Ú v[k]=-1}

if (î[i]>v[j]) and (v[j]< >-1) then

begin î[i]:=v[j];