В модуль поместить функции сортировки символьных и числовых массивов. Подключить созданный модуль и применить эти функции к вводим

[Tuns]

В модуль поместить функции сортировки символьных и числовых массивов. Подключить созданный модуль и применить эти функции к вводимым с клавиатуры данным(на Delphi)

[ZX Spectrum-128]

Сами функции есть?

[Tuns]

Сообщение от ZX Spectrum-128

Сами функции есть?

нету к сожалению (

[ZX Spectrum-128]

Тогда надо их написать или можно найти прямо на форуме. И эти готовые функции поможем оформить в модуль.

[Tuns]

Сообщение от ZX Spectrum-128

Тогда надо их написать или можно найти прямо на форуме. И эти готовые функции поможем оформить в модуль.

Массивы любые? и какое кол-во ? пойдут

for(int i = 0; i < a.length; i++)
    for(int j = 0; j < n - i - 1; j++)
        if(a[j] > a[j + 1])
            swap(a[j], a[j + 1]);

type
 TIntVec = array of Integer;
...
procedure BubbleSort(var a: TIntVec);
 var i,p,n: Integer; b: boolean;
begin
 n:= Length(a);
 if n < 2 then exit;
 repeat
  b:= false;
  Dec(n);
  if n > 0 then
  for i:= 0 to n-1 do
   if a[i] > a[i+1] then
    begin
     p:= a[i];
     a[i]:= a[i+1];
     a[i+1]:= p;
     b:= true;
    end;
 until not b;
end;

[Stilet]

С потолка:
Прога:

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, Unit1
  { you can add units after this };
var a:TIntVec; s:TStrVec;  i:integer;
begin
 SetLength(a,10);
 for i:=Low(a) to high(a) do a[i]:=Random(100);
 BubbleSort(a);
 for i:=Low(a) to high(a) do write(a[i]:5);
 SetLength(a,0);

 SetLength(s,10);
 for i:=Low(s) to high(s) do readln(s[i]);
 BubbleSort(s);
 for i:=Low(s) to high(s) do write(s[i]:5);
 SetLength(s,0);

 readln;
end.

модуль:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;
type
 TIntVec = array of Integer;
 TStrVec = array of String;

 procedure BubbleSort(var a: TIntVec) overload;
 procedure BubbleSort(var a: TStrVec) overload;

implementation


procedure BubbleSort(var a: TIntVec) overload;
 var i,p,n: Integer; b: boolean;
begin
 n:= Length(a);
 if n < 2 then exit;
 repeat
  b:= false;
  Dec(n);
  if n > 0 then
  for i:= 0 to n-1 do
   if a[i] > a[i+1] then
    begin
     p:= a[i];
     a[i]:= a[i+1];
     a[i+1]:= p;
     b:= true;
    end;
 until not b;
end;
procedure BubbleSort(var a: TStrVec) overload;
 var i,n: Integer; b: boolean; p:string;
begin
 n:= Length(a);
 if n < 2 then exit;
 repeat
  b:= false;
  Dec(n);
  if n > 0 then
  for i:= 0 to n-1 do
   if a[i] > a[i+1] then
    begin
     p:= a[i];
     a[i]:= a[i+1];
     a[i+1]:= p;
     b:= true;
    end;
 until not b;
end;
end.

Годится?

[Tuns]

Сообщение от Stilet

С потолка:
Прога:

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, Unit1
  { you can add units after this };
var a:TIntVec; s:TStrVec;  i:integer;
begin
 SetLength(a,10);
 for i:=Low(a) to high(a) do a[i]:=Random(100);
 BubbleSort(a);
 for i:=Low(a) to high(a) do write(a[i]:5);
 SetLength(a,0);

 SetLength(s,10);
 for i:=Low(s) to high(s) do readln(s[i]);
 BubbleSort(s);
 for i:=Low(s) to high(s) do write(s[i]:5);
 SetLength(s,0);

 readln;
end.

модуль:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;
type
 TIntVec = array of Integer;
 TStrVec = array of String;

 procedure BubbleSort(var a: TIntVec) overload;
 procedure BubbleSort(var a: TStrVec) overload;

implementation


procedure BubbleSort(var a: TIntVec) overload;
 var i,p,n: Integer; b: boolean;
begin
 n:= Length(a);
 if n < 2 then exit;
 repeat
  b:= false;
  Dec(n);
  if n > 0 then
  for i:= 0 to n-1 do
   if a[i] > a[i+1] then
    begin
     p:= a[i];
     a[i]:= a[i+1];
     a[i+1]:= p;
     b:= true;
    end;
 until not b;
end;
procedure BubbleSort(var a: TStrVec) overload;
 var i,n: Integer; b: boolean; p:string;
begin
 n:= Length(a);
 if n < 2 then exit;
 repeat
  b:= false;
  Dec(n);
  if n > 0 then
  for i:= 0 to n-1 do
   if a[i] > a[i+1] then
    begin
     p:= a[i];
     a[i]:= a[i+1];
     a[i+1]:= p;
     b:= true;
    end;
 until not b;
end;
end.

Годится?

Думаю да!! БОЛЬШОЕ СПАСИБО!!!!