Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.06.2011, 22:17   #1
salwator
Пользователь
 
Регистрация: 21.12.2010
Сообщений: 31
По умолчанию прима-краскала

Всем привет!!!!Помогите написать процедуру прима-краскала.
Программу я написал,только в ней не хватает процедуры прима-краскала

program pr;
uses CRT;
const n=20;
type mas=array[1..n,1..n] of integer;
var A:mas;
size,p:integer;

procedure Zapol(var A:mas;var size:integer);
var i,j:integer;
begin
clrscr;
write('Введите кол-во вершин*: ');
readln(size);
writeln('Заполните матрицу смежности: ');
for i:=1 to size-1 do
begin
for j:=i+1 to size do
begin
write('[',i,',',j,']: ');
readln(A[i,j]);
end;
end;
end;

procedure PR_KR;
begin

end;

procedure vivod(A:mas;size:integer);
var p,i,j:integer;
begin
clrscr;
writeln('Матрица смежности:');
for i:=1 to size-1 do
begin
for j:=i+1 to size do
if A[i,j]<>0 then write(' [',i,',',j,']=',A[i,j]:3);
writeln;
end;
readkey;
end;

procedure menu(var p:integer);
begin
writeln('Меню');
writeln('1.Заполнить');
writeln('2.Вывод');
writeln('3.Прима-Краскала');
writeln('4.Выход');
write('Введите комманду: ');
readln(p);
end;

begin
repeat
clrscr;
menu(p);
case p of
1: Zapol(A,size);
2: vivod(A,size);
3: PR_KR;
end;
until p=4;
readkey;
end.
salwator вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
алгоритм краскала Олександр17 Помощь студентам 0 02.12.2010 19:59
Алгоритм Прима DeCo Помощь студентам 0 10.09.2010 15:11
Как проверить граф на связанность? Алгоритм Краскала PasSuper Общие вопросы C/C++ 10 18.01.2010 10:13
Метод Прима Alister Помощь студентам 2 19.01.2009 16:29
Алгоритм Краскала anGeee Паскаль, Turbo Pascal, PascalABC.NET 0 17.12.2008 18:16