Param13. Описать процедуру Bell($$A$$, $$N$$), меняющую порядок элементов вещественного массива $$A$$ размера $$N$$ на следующий: наименьший элемент массива располагается на первом месте, наименьший из оставшихся элементов — на последнем, следующий по величине располагается на втором месте, следующий — на предпоследнем и т. д. (в результате график значений элементов будет напоминать колокол). Массив $$A$$ является входным и выходным параметром. С помощью этой процедуры преобразовать массивы $$A$$, $$B$$, $$C$$ размера $$N_A$$, $$N_B$$, $$N_C$$ соответственно.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
program Param13; type RArray = array[1..10] of Real; var A,B,C:RArray; Na,Nb,Nc:integer; Procedure Bell(var A:RArray; N:integer); var k,k2:integer; TempR: RArray; begin for k:=1 to N-1 do for k2:=1 to N-k do begin if A[k2]>A[k2+1] then begin A[k2]:=A[k2]+A[k2+1]; A[k2+1]:=A[k2]-A[k2+1]; A[k2]:=A[k2]-A[k2+1]; end; end; for k:=1 to N do if (k mod 2)<>0 then TempR[(k div 2)+1]:=A[k] else TempR[N-(k div 2)+1]:=A[k]; A:=tempR; end; Procedure EnterArray(var A:RArray; var N:integer); var i:integer; begin Write('Size:'); Readln(N); for i:=1 to N do begin Write(i,': '); Readln(A[i]); end; end; Procedure InputArray(var A:RArray; var N:integer); var i:integer; begin Writeln('---'); for i:=1 to N do Writeln(i,': ',A[i]); Writeln('---'); end; begin EnterArray(A,Na); Bell(A,Na); InputArray(A,Na); EnterArray(B,Nb); Bell(B,Nb); InputArray(B,Nb); EnterArray(C,Nc); Bell(C,Nc); InputArray(C,Nc); end. |
Другие задачи из раздела Param можно посмотреть здесь.
В данной программе получается не «холм», а «впадина», так как исходный массив сортируется по убыванию
Да, ошибся знаком:
Было:
Стало: