Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
tahyuka
0 / 0 / 0
Регистрация: 15.03.2019
Сообщений: 1
1

Алгоритм Прима

15.03.2019, 20:38. Просмотров 182. Ответов 0

Помогите, пожалуйста!
Пишу программу для нахождения минимального остова алгоритмом Прима, но немного не могу придумать что использовать для минимума, чтобы цикл не выходил раньше времени. В моем случае, он выходит на втором шаге, когда минимум приравнивается 1
Уже все, что могла испробовала, просто не могу придумать и все

В файле t находится матрица и количество вершин
7
0 3 0 0 0 0 4
3 0 0 0 1 0 0
0 0 0 5 0 2 2
0 0 5 0 3 0 0
0 1 0 3 0 0 0
0 0 2 0 0 0 1
4 0 2 0 0 1 0

Сама программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Program Prima;
const n=10;
max=100000;
var 
vt : set of integer;
et : set of integer;
v : set of integer;
i, j, b, c, d, min, w: integer;
t: text;
matrix: array[1..n, 1..n] of integer;
begin
assign(t,'c:\Новая папка\t.txt');
reset(t);
readln(t,b);
for i:=1 to b do
    begin
      for j:=1 to b do
          begin
             read(t,matrix[i,j]);
          end;
    end;
close(t);
begin
min:=max;
w:=0;
vt:=[1];
et:=[];
v:=[2..b];
for i:=1 to b do
for j:=1 to b do
if (matrix[i,j]>0) and (i in vt) and (matrix[i,j]<min) then begin
min:=matrix[i,j]; {вот это место как-то надо додумать}
c:=j;
d:=i;
vt+=[c];
et+=[d,c];
v-=[c];
w:=w+matrix[d,c];
end;
writeln(vt, ' ', et, ' ', v, ' ', w);
end;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.03.2019, 20:38
Ответы с готовыми решениями:

Алгоритм Прима / Краскала: Соединить все города телефонной связью
Дана плоская страна и в ней n городов. Нужно соединить все города телефонной связью так, чтобы...

Реализовать метод Прима для построения минимального каркаса графа. Исходный граф задан в файле в виде матрицы смежности
Реализовать метод Прима для построения минимального каркаса графа. Исходный граф задан в файле в...

Линейный алгоритм, Алгоритм с ветвлениями, Циклический алгоритм Линейный алгоритм
Линейный алгоритм, Алгоритм с ветвлениями, Циклический алгоритм Линейный алгоритм 1. Объясни, что...

Построить алгоритм ДО и алгоритм ПОКА дя вычислений значения функции на отрезке [а,b] с шагом h. Написать программу
F=3+tg x

Составить алгоритм-вычисление квадрата суммы двух чисел и алгоритм для вычисления функции
Здравствуйте!Мне нужно все с самого начала и точно,помогите пожалуйста! 1.составить...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.03.2019, 20:38

Написать алгоритм по блок схеме (Алгоритм метода Ньютона)
Прошу помогите, очень срочно! Сижу на экзамене!

Кто может составить алгоритм по проге? Алгоритм нужен для отчета если вам это интересно)
uses crt; var a:array of integer; b:array of integer; i,j,m,n:integer; begin ClrScr;...

Разработайте алгоритм и программу, реализующую этот алгоритм. Исходные данные вводите из текстового файла. Результаты работы программы также помести
Разработайте алгоритм и программу, реализующую этот алгоритм. Исходные данные вводите из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru