|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.02.2012, 20:08 | #1 |
Регистрация: 26.01.2012
Сообщений: 4
|
Программа на Pascal
Нужно составить программу в паскале, где следует заполнить двумерный(зеркальный по диагонали) массив рандомом или вводом с клавиатуры, а в подпрограмме найти путь с помощью деревянного алгоритма.
Вот сдесь написано про деревянный алгоритм в пункте 1.2.2 http://www.managment.aaanet.ru/economics/kommivoyajer.php То что я сделал: Код Pascal1 Program bl; var i,j,n:longint; a: array[1..100,1..100] of integer; Procedure Derevynnbly algoritm; //Сдесь будет подпрограмма где надо найти путь, с помощью деревянного алгоритма end; //Основная прога Begin ClrScr Write('Vvedite kol-vo gorodov:'); Readln(n); for i:=1 to n do for j:=1 to n do begin if (i=j) then a[i,j]:=0; if (i<j) then begin Write('Vvedite rasstoyanie v ycheiku (a[',i,',',j,']=)'); readln(a[i,j]); a[j,i]:=a[i,j]; end; end; for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:4); Writeln; end; Readln; end. нужно сделать подпрограмму ICQ: 499-130-281 |
22.02.2012, 19:07 | #2 |
Регистрация: 26.01.2012
Сообщений: 4
|
----Up----
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа на Pascal | 10Gramm | Помощь студентам | 2 | 16.11.2010 16:04 |
Программа на Pascal | basten | Помощь студентам | 6 | 20.09.2010 20:21 |
Программа на Pascal | Cayce | Фриланс | 5 | 21.01.2010 20:13 |
[PASCAL]Программа создания файла, программа обработки файла | Виколяшка | Фриланс | 7 | 23.09.2009 17:38 |
Программа создания файла, программа обработки файла [PASCAL] | Виколяшка | Помощь студентам | 1 | 22.09.2009 22:56 |