Родились сегодня:
SAW


Лидеры рейтинга

ID: 401284

Михаил Александров

Советник

422

Россия, Санкт-Петербург


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

391

Россия, пос. Теплоозёрск, ЕАО


ID: 401888

puporev

Профессор

217

Россия, Пермский край


ID: 405338

vovaromanov.jr

1-й класс

142


ID: 400669

epimkin

Профессионал

112


ID: 242862

Hunter7007

Мастер-Эксперт

30

Россия, Омск


ID: 137394

Megaloman

Мастер-Эксперт

27

Беларусь, Гомель


8.10.2

13.10.2021

JS: 2.10.2
CSS: 4.6.0
jQuery: 3.6.0
DataForLocalStorage: 2021-10-16 14:46:03-standard


Решение алгоритмов, схемы и классы алгоритмов, построение блок-схем.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 160125

Раздел: Алгоритмы и теория программирования
Автор вопроса: Psarum
Дата: 10.02.2009, 19:34 Консультация закрыта
Поступило ответов: 0

Здравствуйте.
Подскажите, как можно переделать программу написанную на Pascal в XLisp

программа должна реализовывать Алгоритм Прима-Краскала (Жадный алгоритм) (код программы в приложении)

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

описание программы

Для реализации алгоритма понадобятся:
Matrix – матрица расстояний, значение пересечении i-ой строки и j-го
столбца равно расстоянию между i-ой и j-ой вершинами. Если такого ребра
нет то значение равно Infinity – просто большому числу (машинная
бесконечность);
Color – массив цветов вершин;
Ribs – в этом массиве запоминаются найденные ребра;
a, b – вершины, соединяемые очередным минимальным ребром
len – длина дерева.
Матрицу расстояний будем хранить в текстовом файле INPUT.MTR, где число на
первой строке – количество вершин n, а остальные n строк по n чисел в
каждой – матрица расстояний. Если расстояние равно 1000 (Infinity), то
такого ребра нет.

Для такого входного файла
8
0 23 12 1000 1000 1000 1000 1000
23 0 25 1000 22 1000 1000 35
12 25 0 18 1000 1000 1000 1000
1000 1000 18 0 1000 20 1000 1000
1000 22 1000 1000 0 23 14 1000
1000 1000 1000 20 23 0 24 1000
1000 1000 1000 1000 14 24 0 16
1000 35 1000 1000 1000 1000 16 0
программа напечатает:
1–3
5–7
7–8
3–4
4–6
2–5
1–2
Length= 125.

Приложение:

Ответов пока не поступило
Мини-форум консультации # 160125
Нет сообщений в мини-форуме
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

Алексеев Владимир Николаевич

Мастер-Эксперт

Рейтинг: 391

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 102

Gluck

8-й класс

Рейтинг: 61

solowey

Академик

Рейтинг: 4

CradleA

Мастер-Эксперт

Рейтинг: 2

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0