|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.06.2011, 22:17 | #1 |
Пользователь
Регистрация: 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. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
алгоритм краскала | Олександр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 |