Решаем задачи Абрамян на Паскале. Param13

Param13. Описать процедуру Bell( $A$ , $N$ ), меняющую порядок элементов вещественного массива $A$ размера $N$ на следующий: наименьший элемент массива располагается на первом месте, наименьший из оставшихся элементов — на последнем, следующий по величине располагается на втором месте, следующий — на предпоследнем и т. д. (в результате график значений элементов будет напоминать колокол). Массив $A$ является входным и выходным параметром. С помощью этой процедуры преобразовать массивы $A$ , $B$ , $C$ размера $N_A$ , $N_B$ , $N_C$ соответственно.

Решение:

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.

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;

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;

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 можно посмотреть здесь.

Комментарии 3

Рустам

25.05.2016 в 17:33

В данной программе получается не «холм», а «впадина», так как исходный массив сортируется по убыванию

Ответить
- Anton
  
  25.05.2016 в 18:04
  
  Да, ошибся знаком:
  Было:
  
  if A[k2]< A[k2+1] then
  
  1
  
  if A[k2]< A[k2+1] then
  
  Стало:
  
  if A[k2]>A[k2+1] then
  
  1
  
  if A[k2]>A[k2+1] then
  
  Ответить

program Param13;//pabc.net

procedure Hill(var a: array of integer);
begin
  Sort(a);
  if a.Count.IsOdd then
    a := a[::2] + a[a.High - 1::-2]
  else a := a[::2] + a[::-2]
end;

begin
  var a := Arr(10, 9, 8, 7, 6, 5, 4, 3, 2, 1);
  Hill(a);
  a.Println;//1 3 5 7 9 10 8 6 4 2
end.

program Param13;//pabc.net

procedure Hill(var a: array of integer);

Sort(a);

if a.Count.IsOdd then

a := a[::2] + a[a.High - 1::-2]

else a := a[::2] + a[::-2]

var a := Arr(10, 9, 8, 7, 6, 5, 4, 3, 2, 1);

Hill(a);

a.Println;//1 3 5 7 9 10 8 6 4 2

Ответить

Решаем задачи Абрамян на Паскале. Param13

Комментарии:

Комментарии 3

Добавить комментарий Отменить ответ