VPF::Сортировка данных - Форум программистов

insidex

Дата 22.9.2007, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 23.11.2006

Репутация: нет
Всего: нет

Приветствую, дан массив Ar(5x30) подскажите, как организовать сортировку данных по второму полю (число),

Код


Ar[1]: text1 12332 text
Ar[2]: text2 12443 text
...
Ar[5]: text5 7734 text

Проблема в том, что я не понимаю как в Паскале ВЫДЕЛИТЬ число(в перменную типа REAL) из массива символов , в СИ бы просто через указатель, а здесь.. smile

Это сообщение отредактировал(а) insidex - 22.9.2007, 15:50

volvo877

Дата 22.9.2007, 16:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Код


function get_number(s: string): real;
var
  _result: real;
  error: integer;
begin
  delete(s, 1, pos(' ', s));
  val(copy(s, 1, pos(' ', s) - 1), _result, error);
  get_number := _result;
end;

const
  n = 5;
  ar: array[1 .. n] of string[30] = (
    'text1 12332 text',
    'text2 12443 text',
    'text3 17848 text',
    'text4 17445 text',
    'text5 7734 text'
  );


var i: integer;
begin
  for i := 1 to n do begin
    writeln('i = ', i:2, '|', get_number(ar[i]):10:3);
  end;
end.

Дальше справишься?

insidex

Дата 22.9.2007, 17:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 23.11.2006

Репутация: нет
Всего: нет

Ох!!! Большущее спасибо smile

.... на Паскаль с .Net/Java так тяжело спускаться

зы. целый день сегодня со строками пропарился smile

, еще раз спасибо

Это сообщение отредактировал(а) insidex - 22.9.2007, 17:35

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »