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

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

Решение:

program Param11;

type
 RArray = array[1..10] of Real;

var
 A,B,C:RArray;
 Na,Nb,Nc:integer;

Procedure Sort(var A:RArray; var N:integer);
 var i,i2:integer;
begin
 for i:=1 to N-1 do
  for i2:=1 to N-i do
   begin
    if A[i2]>A[i2+1] then
     begin
      A[i2]:=A[i2]+A[i2+1];
      A[i2+1]:=A[i2]-A[i2+1];
      A[i2]:=A[i2]-A[i2+1];
     end;
   end;
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);
 Sort(A,Na);
 InputArray(A,Na);

 EnterArray(B,Nb);
 Sort(B,Nb);
 InputArray(B,Nb);

 EnterArray(C,Nc);
 Sort(C,Nc);
 InputArray(C,Nc);
end.

program Param11;

type

RArray = array[1..10] of Real;

var

A,B,C:RArray;

Na,Nb,Nc:integer;

Procedure Sort(var A:RArray; var N:integer);

var i,i2:integer;

begin

for i:=1 to N-1 do

for i2:=1 to N-i do

begin

if A[i2]>A[i2+1] then

begin

A[i2]:=A[i2]+A[i2+1];

A[i2+1]:=A[i2]-A[i2+1];

A[i2]:=A[i2]-A[i2+1];

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);

Sort(A,Na);

InputArray(A,Na);

EnterArray(B,Nb);

Sort(B,Nb);

InputArray(B,Nb);

EnterArray(C,Nc);

Sort(C,Nc);

InputArray(C,Nc);

end.

Другие задачи из раздела Param можно посмотреть здесь.

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

program Param11;//pabc.net

procedure SortArray(a: array of real);
begin
  for var i := a.High - 1 downto 0 do
  begin
    var iMax := i + 1;
    for var j := 0 to i do
      if a[j] > a[iMax] then iMax := j;
    if iMax < i + 1 then Swap(a[iMax], a[i + 1])
  end
end;

begin
  var n := 10;
  var a := SeqRandomReal(n, 0.0, 99.0)
  .Select(x -> Round(x, 2)).Println.ToArray;
  SortArray(a);
  a.Println;
end.

program Param11;//pabc.net

procedure SortArray(a: array of real);

for var i := a.High - 1 downto 0 do

var iMax := i + 1;

for var j := 0 to i do

if a[j] > a[iMax] then iMax := j;

if iMax < i + 1 then Swap(a[iMax], a[i + 1])

end

var n := 10;

var a := SeqRandomReal(n, 0.0, 99.0)

.Select(x -> Round(x, 2)).Println.ToArray;

SortArray(a);

a.Println;

Ответить

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

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

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

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