Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Pascal Таблицы маршрутизации
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
nastyat1996 nastyat1996 вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.12.2015
По умолчанию Pascal Таблицы маршрутизации - 29.12.2015, 23:55

Помогите, пожалуйста, разобраться, нужно написать код, чтобы ответ был как в MTABLE.EXE, а у меня получается только то, что выведено в data.exe(то есть не правильный второй столбец), понимаю, что нужно исправлять procedure FU (а именно к чему-то привязать b[i]) но не понимаю как, подскажите как можно исправить чтобы программа работала правильно?

uses crt;
const MaxN = 5;
INF = 1000;
type Matrix = array[1..MaxN,1..MaxN] of longint;

var
b:array[1..MaxN] of integer; byk:array[1..MaxN] of char; p,a : Matrix; n: integer;
f: text;

{ввод данных из файла в переменные и вывод матрицы на экран}
procedure Input_Table(var A : Matrix; N : longint; var T : Text);
var i, j : longint;
begin
writeln('Matritsa svjazei:');
while not eof(f) do
begin
for i := 1 to N do
begin
for j := 1 to N do
begin
read(f,a[i,j]);
write(' ',a[i,j]);
if (a[i,j] = 0) and (i <> j) then
a[i,j] := INF;
end;
writeln;
readln(T);
end;
end;
end;

{алгоритм Флойда-Уоршелла}
Procedure FU(D: matrix; V: integer);
var i,j,k: integer;
begin
for i:=1 to V do
D[i, i]:=0;
for k:=1 to V do
for i:=1 to V do
for j:=1 to V do
if (D[i, k]<>0) and (D[k, j]<>0) and (i<>j) then
if (D[i, k]+D[k, j]<D[i, j]) or (D[i, j]=0) then
D[i, j]:=D[i, k]+D[k, j];
for i:=1 to V do
begin
for j:=1 to V do
begin
byk[i]:=chr(64+i);

if i=j then b[i]:=0;

write(byk[i]:2,b[i]:2,D[i, j]:3,'| ');
end;
writeln;

end;
end;

{основная программа}
BEGIN
clrscr;
writeln;
assign(f,'data.txt');
reset(f);
readln(f,n);
writeln('Kolichestvo yzlov - ',n);
writeln;
Input_Table(a,n,f);
close(f);
writeln;
writeln('Rezyltat:');
FU(a, n);
readln;
END.
Миниатюры
1.jpg  
Вложения
Тип файла: txt data.txt (56 байт, 49 просмотров)
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Точность вычислений: Pascal XSC и GNU Pascal Бобо Pascal 4 13.08.2012 23:23
Как заблокировать сайт с помощью таблиці маршрутизации? sldp Windows XP 10 29.10.2011 14:07
Создание пустой таблицы со структурой таблицы-шаблона Vova14 .NET 1 13.03.2011 16:35
Выборка из таблицы Jonano SQL 5 13.12.2010 11:23
Задача маршрутизации koly4ii Prolog 0 31.03.2010 15:58
Задача по маршрутизации Монстрадамус Prolog 0 02.01.2010 23:15
Создание таблицы состоящей из данных другой таблицы в Delphi Krica Вопросы начинающих программистов 5 28.12.2007 00:22
DB2 как очистить таблицы Voin Другие СУБД 4 28.09.2007 14:18
Исследование таблицы размещения файлов (FAT - таблицы) ОС MS-DOS Flaffik Вопросы начинающих программистов 3 19.11.2006 20:18
Непонятные ошибки маршрутизации c++ Мысли вслух 3 27.11.2005 05:23
Как объединить таблицы bfm SQL 4 12.05.2005 09:02
Таблицы в VB? Iris Visual Basic 1 23.07.2003 22:21



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов