Question

Перевести с С++ на паскаль. #define _CRT_SECURE_NO_WARNINGS
#include
#include
#define SIZE 6
int main()
{
int a[SIZE][SIZE]; // матрица связей
int d[SIZE]; // минимальное расстояние
int v[SIZE]; // посещенные вершины
int temp, minindex, min;
int begin_index = 0;
system("chcp 1251");
system("cls");
// Инициализация матрицы связей
for (int i = 0; i 0)
{
temp = min + a[minindex][i];
if (temp < d[i])
{
d[i] = temp;
}
}
}
v[minindex] = 0;
}
} while (minindex < 10000);
// Вывод кратчайших расстояний до вершин
printf("\nКратчайшие расстояния до вершин: \n");
for (int i = 0; i = 0; i--)
printf("%3d ", ver[i]);
getchar(); getchar();
return 0;
}

Answer 1

просто перевод строк на паскаль. Логики тут искать не стоит. Первоначальное задание не полностью дано.

Объяснение:

const

 size = 6

var

 a : array [0..size, 0..size] of integer;

 d, v : array [0..size] of integer;

 i, temp, minindex, min, begin_index : integer;

begin

 begin_index := 0;

 for i:=0 to size-1 do begin

   temp := min + a[minindex][i]

   if temp < d[i] then

     d[i] := temp

 end;

 v[minindex] := 0;

 writeln('Кратчайшие расстояния до вершин')

 for i := 0 to size-1 do

   writeln(ver[i])  

end.