Описать процедуру

[alpysya]

Описать процедуру

Помогите решить срочно необходимо!
Пожалуйста!
Написать надо в паскале
Описать процедуру SortDec(A,N), выполняющую сортировку по убыванию массива A из N вещественных чисел. Массив A является входным и выходным параметром. С помощью этой процедуры отсортировать массивы A, B, C размера NA, NB, NC соответственно.

 

[Vladimir_S]

Помогите решить срочно необходимо!
Пожалуйста!
Написать надо в паскале
Описать процедуру SortDec(A,N), выполняющую сортировку по убыванию массива A из N вещественных чисел. Массив A является входным и выходным параметром. С помощью этой процедуры отсортировать массивы A, B, C размера NA, NB, NC соответственно.

Да пожалуйста, какие проблемы:

const
 Nmax=255;
type
 vector=array[1..Nmax] of Real;
var
 A,B,C:Vector;
 NA,NB,NC,i:Byte;

procedure SortDec(X:vector; Nx:Byte; var Y:vector);
var
 k,m:byte;
 temp:real;
 Z:vector;
begin
 Z:=X;

 for k:=1 to Nx do
  for m:=1 to Nx-k do
   if Z[m]<Z[m+1] then
    begin
     temp:=Z[m];
     Z[m]:=Z[m+1];
     Z[m+1]:=temp;
    end;

 Y:=Z;
end;

begin
 Write('NA= ');
 Readln(NA);
 Write('NB= ');
 Readln(NB);
 Write('NC= ');
 Readln(NC);
 Randomize;
 Writeln('Initial array A:');
 for i:=1 to NA do
  begin
   A[i]:=(0.5-Random)*100;
   write(A[i]:8:3);
  end;
 writeln;
 Writeln('Initial array B:');
 for i:=1 to NB do
  begin
   B[i]:=(0.5-Random)*100;
   write(B[i]:8:3);
  end;
 writeln;
 Writeln('Initial array C:');
 for i:=1 to NC do
  begin
   C[i]:=(0.5-Random)*100;
   write(C[i]:8:3);
  end;
 writeln;
 writeln;
 SortDec(A,NA,A);
 SortDec(B,NB,B);
 SortDec(C,NC,C);
 Writeln('Sorted array A:');
 for i:=1 to NA do
  write(A[i]:8:3);
 writeln;
 Writeln('Sorted array B:');
 for i:=1 to NB do
  write(B[i]:8:3);
 writeln;
 Writeln('Sorted array C:');
 for i:=1 to NC do
  write(C[i]:8:3);
 readln
end.

 

[alpysya]

Спасибо вам большое!!!