Сортировка в одномерном массиве

[lena-tus]

1. Задан одномерный массив из 8 элементов строкового типа со значением в диапазоне. Разработать программу, которая осуществляет упорядочение массива по невозрастанию методом «прямого выбора»
2. Задан одномерный массив из 8 элементов вещественного типа со значением в диапазоне -10-45..10+38 . Разработать программу, которая осуществляет упорядочение массива по невозрастанию методом «простого обмена»
Помогите реализовать на Паскале!

[execom]

Не поленилась переписать задание. Молодец. А так могла бы фотку нужной страницы учебника с телефона выложить. Может покажешь что ты писала и что не вышло? Просто интересно, может теме место в разделе фриланс.

[execom]

1)Прямой выбор

{$APPTYPE CONSOLE}
program VR;
const
N=8;
var
a:array[1..N] of integer;
buf:integer;
j,i:integer;
begin
  writeln('Vvedite massiv iz 8 elementov');
  for i:=1 to N-1 do
   read (a[i]);
   readln(a[N]);
   writeln('Sort...');
   for i:=1 to n-1 do
     for j:=i+1 to n do
       if a[i]>a[j] then
         begin
          Buf:=a[i];
          a[i]:=a[j];
          a[j]:=Buf;
         end;
   for j:=1 to n do
          write(a[j],' ');
          writeln;
  readln;
end.

2) Простой обмен(пузырек)

{$APPTYPE CONSOLE}
program VR;
const
N=8;
var
a:array[1..N] of integer;
buf:integer;
j,i:integer;
begin
  writeln('Vvedite massiv iz 8 elementov');
  for i:=1 to N-1 do
   read (a[i]);
   readln(a[N]);
   writeln('Sort...');
   for i:=1 to N-1 do
     begin
       for j:=1 to N-1 do
         begin
           if a[j]>a[j+1] then
             begin
               buf:=a[j];
               a[j]:=a[j+1];
               a[j+1]:=buf;
             end;
         end;
        for j:=1 to n do
          write(a[j],' ');
          writeln;
     end;
  readln;
end.

если пишешь на паскале то первую строку замени на USES CRT;

[lena-tus]

Если со второй еще как-то разберусь, то в первой не могу понять как, каким образом элементы строкового типа сортировать. Думаю необходимо определить длину строки, сформировать одномерный массив и его упорядочить. Но как это сделать практически? Увы и ах...( Пожалуйста, помогите.

[lena-tus]

Большое спасибо за помощь (за задачу 2) И... я не волшебник, я еще только учусь!

[execom]

ну очевидно надо строки по ASCII сортировать.. В общем пример простейшей реализации сортировок я привел тебе осталось только правильно типизировать под свою задачу.

[lena-tus]

Спасибо за вимание и помощь!

[execom]

возможно правильно будет примерно так
1)

{$APPTYPE CONSOLE}
program VR;
const
N=8;
var
a:String;
buf:Char;
j,i:integer;
begin
  writeln('Vvedite massiv iz 8 simvolov v rjad');
   readln(a);
   writeln('Sort...');
   for i:=1 to n-1 do
     for j:=i+1 to n do
       if ord(a[i])>ord(a[j]) then
         begin
          Buf:=a[i];
          a[i]:=a[j];
          a[j]:=Buf;
         end;
   for j:=1 to n do
          write(a[j],' ');
          writeln;
  readln;
end.

2)

{$APPTYPE CONSOLE}
USES SysUtils;
const
N=8;
var
a:array[1..N] of real;
buf:real;
j,i:integer;
st : string;
begin
  writeln('Vvedite massiv iz 8 veshestvennih elementov');
  for i:=1 to N-1 do
  begin
   readln(st);
   a[i]:=StrToFloat(st);
  end;
   writeln('Sort...');
   for i:=1 to N-1 do
     begin
       for j:=1 to N-1 do
         begin
           if a[j]>a[j+1] then
             begin
               buf:=a[j];
               a[j]:=a[j+1];
               a[j+1]:=buf;
             end;
         end;
        for j:=1 to n do
          write(a[j]:5,2,' ');
          writeln;
     end;
  readln;
end.

увы проверить не могу т.к. среды под рукой нет