VPF::Из списка смежности в матрицу смежности!

Andrey87

Дата 27.5.2008, 23:44 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите с решением:

есть список смежности
(например)
12
234
4
24
5
36

нужно из этого сделать матрицу смежности
(т.е. вот это)
110000
011100
000100
010100
000010
001001

В частности не понимаю как преобразовать строку StrinGrid'е в числа и по их значениям напихать единиц в матрицу...

MaXL

Дата 28.5.2008, 05:23 (ссылка)

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

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 380
Регистрация: 24.10.2005
Где: Владивосток

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

Andrey87, ну а что непонятного то ? ищешь строку в StringGrid'е максимальной длины(будет m) и создаёшь массив, размерностью m. И потом просто бежишь по стринг гриду, и заполняешь.
А код, который выдирает из строки числа, разделённые пробелом, будет выглядеть примерно вот так:

Код


const
  MAX_NUMBERS = 10;
var
  Text: string;
  Number: string;
  i, j: integer;
  a: array[0..MAX_NUMBERS] of integer;
begin
  ZeroMemory(@a, Length(a) * 4);
  Text:= MyText;
  i:= 1; j:= 0;
  Number:= '';
  for i := 1 to Length(Text) do
  begin
    if not (Text[i] in ['0'..'9']) then
    begin
      a[j]:= StrToInt(Number);
      Number:= '';
      Inc(j);
    end
    else
      Number:= Number + Text[i];
  end;

--------------------

MaXL

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