Сортировка строк массива (по числам)

[cyt]

Подскажите, пожалуйста, как отсортировать строки массива по числовым значениям? Например,

Имя Рост

Даша 168
Рома 182
Саша 190
Таня 178
Вова 184

Самые высокие:
...


Необходимо вывести общий список ребят и двух самых высоких (списком ниже).

Как я понимаю, сначала надо символы 168, 192 и т.д. перевести в числа с помощью команды "ord", а потом отсортировать от большего к меньшему и вывести 2 первых числа и соответствующие им строки.

Застрял на команде 'ord' (числа выводятся, но совсем не те, что даны в исходных данных) и на выводе соответствующих строк (не знаю как связать полученные числа и первоначальные строки)
Заранее спасибо за помощь!

[Niro]

Ну во-первых функция "ord" не переводит строку в число, а возвращает код символа, неважно будь то цифра или буква.
Для перевода строки в число используй функцию - VAL(строка, число, C), - 'С' равно нулю, если преобразование успешно

[Stilet]

ord тут не помощник - она выдает код символа
Ты имел ввиду val. Но.
Я бы не хранил данные смешанного вида в одной ячейке массива. Лучше уж массив записей с полями Имя,Рост. тогда просто сортировка с проверкой по полю Рост.

[cyt]

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

Ну во-первых функция "ord" не переводит строку в число, а возвращает код символа, неважно будь то цифра или буква.
Для перевода строки в число используй функцию - VAL(строка, число, C), - 'С' равно нулю, если преобразование успешно

По заданию мне нужно работать с символьным массивом. Вот, например, что скажете по этому поводу: (ord(A[i,j])-48)*1000 + (ord(A[i,j+1])-48)*100... ?

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

ord тут не помощник - она выдает код символа
Ты имел ввиду val. Но.
Я бы не хранил данные смешанного вида в одной ячейке массива. Лучше уж массив записей с полями Имя,Рост. тогда просто сортировка с проверкой по полю Рост.

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

[Mad_Cat]

сделаю за 3.5 $ icq 600067777

[Serge_Bliznykov]

1) сортируйте строки целиком

2) для сравнения строк используйте функцию GetHeight(s : string):integer;

function GetHeight(s : string):integer;
var
  H, k : integer;
  subStr : string;
begin
  if Pos(' ',s)=0 then
    H := 0
  else begin
    subStr := Copy(s, Pos(' ',s), 255);
    while (Length(subStr)>0) and (subStr[1]=' ') do
      Delete(subStr, 1, 1);
    while (Length(subStr)>0) and (subStr[Length(subStr)]=' ') do
      Delete(subStr, Length(subStr), 1);
    Val(subStr, H, k);
    if K<>0 then H := 0;
  end;
  GetHeight := H;
end;

[cyt]

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

1) сортируйте строки целиком

2) для сравнения строк используйте функцию GetHeight(s : string):integer;

function GetHeight(s : string):integer;
var
  H, k : integer;
  subStr : string;
begin
  if Pos(' ',s)=0 then
    H := 0
  else begin
    subStr := Copy(s, Pos(' ',s), 255);
    while (Length(subStr)>0) and (subStr[1]=' ') do
      Delete(subStr, 1, 1);
    while (Length(subStr)>0) and (subStr[Length(subStr)]=' ') do
      Delete(subStr, Length(subStr), 1);
    Val(subStr, H, k);
    if K<>0 then H := 0;
  end;
  GetHeight := H;
end;

Строки по заданию использовать нельзя. Только массив символов

[Serge_Bliznykov]

Строки по заданию использовать нельзя. Только массив символов

1) по какому заданию?! Покажите, где это написано?
2) Строка — это и есть массив символов
3) а ну-ка, покажите, пожалуйста Ваш код, которым Вы заполняете исходный массив с данными.
4) Не вижу принципиальных сложностей, можно переделайть под использование массивов символов. НО! Вам прийдётся реализовать аналог функции VAL
я бы мог такое написать, но не уверен, что это кому-нибудь нужно...

p.s. Вы реально хотите сделать задачу самостоятельно?! Может быть, действительно обратитесь к фрилансерам, и они с огромным удовольствием сделают Вам задачу за бабки...

[cyt]

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

1) по какому заданию?! Покажите, где это написано?
2) Строка — это и есть массив символов
3) а ну-ка, покажите, пожалуйста Ваш код, которым Вы заполняете исходный массив с данными.
4) Не вижу принципиальных сложностей, можно переделайть под использование массивов символов. НО! Вам прийдётся реализовать аналог функции VAL
я бы мог такое написать, но не уверен, что это кому-нибудь нужно...

p.s. Вы реально хотите сделать задачу самостоятельно?! Может быть, действительно обратитесь к фрилансерам, и они с огромным удовольствием сделают Вам задачу за бабки...

Да, хочу самостоятельно :-)

Исходный массив уже дан (в отдельном файле), его заполнять не надо. Надо только вывести две строки с наибольшими значениями.

В задании сказано: надо преобразовать символы в числа и вывести в выходной файл.

[Serge_Bliznykov]

Да, хочу самостоятельно :-)

Весьма похвально!

Значится так.
Я смогу Вам помочь если Вы:
- приведёте задание не в вольном пересказе, а _дословно
- приведёте здесь Ваш исходный массив (в отдельном файле) + Ваши наработки по работе с этим файлом. Ведь хотя бы вывести список ребят на экран из этого самого файла у Вас получается?

p.s. файл и Ваш исходник лучше запаковать в архив, и архив выложить сюда, на форум. Если Вам ещё не хватает прав для этого - тогда на любой файлообменник, а сюда ссылочку на скачивание.

Удачи!