Перевод программы с Pascal на C++

@Андей · Регистрация: 20.09.2014

Author24 — интернет-сервис помощи студентам

Имеется программа написанная на Pascal

Pascal

Program prim;
uses Crt;
var
a:array[1..100,1..100] of integer;
t,min,x,y,u,i,j,k,l,m,n,cost:longint;
b,c:array[1..100] of integer;
begin
clrscr;
writeln;
writeln('Lab Work #8 - Raschet Minimalynogo Puti ( Algoritm Prima ):');
write('Vvedite Razmer Massiva: ');
readln(n);
for i:=1 to n do
for j:=1 to n do a[i,j]:=32000;
writeln('Vvedite Kolichestvo Vvodimih Elementov: ');
readln(m);
for i:=1 to m do
begin
Writeln('Vvedite Aderess(x,y) i Harakteristiku #',i,':');
readln(k,l,cost);
a[k,l]:=cost;
a[l,k]:=cost;
end;
k:=0;
u:=1;
c[1]:=1;
b[u]:=1;
while u<n do
begin
min:=32000;
for i:=1 to u do
if b[i]> 0 then
begin
t:=b[i];
for j:=1 to n do
if (a[t,j]<min) and (c[j]=0) then begin min:=a[t,j]; y:=t; x:=j; end;
end;
inc(u);
b[u]:=x;
c[x]:=1;
Writeln(x,y);
k:=k+a[y,x];
a[y,x]:=32000;
a[x,y]:=32000;
end;
Writeln('Rezultat: ',k);
readkey;
end.

Я перевел на СИ++ но где-то совершил ошибку помогите найти

C++

#include <locale.h>
#include <stdlib.h>
#include <stdio.h>
#define max 50
int main()
{
struct graph
{
int begin;
int end;
int length;
};
struct graph kol[max];
struct graph p;
FILE *file;
int ver[max];
int mas[max][max];
int c[max];
int b[max];
int n = 0, m = 0, z = 0, k = 0, l = 0, u = 1;
int i, j;
int min;
int cost = 0;
int t=0;
int x = 0;
int y = 0;
setlocale(LC_ALL, "Russian");
scanf("%d", &n);
scanf("%d", &m);
for (i=1;i<=n;i++){
for (j = 1; j <= n;j++){
mas[i][j] = 32000;
}
}
for (i = 1; i <=m; i++){
scanf("%d %d %d", &k, &l, &cost);
mas[k][l] = cost;
mas[l][k] = cost;
}
k = 0;
u = 1;
c[1] = 1;
b[u] = 1;
while (u <=n){
min = 32000;
for (i = 1; i <= u; i++)
if (b[i]>0){
t = b[i];
for (j = 1; j <= n; j++)
if (mas[t][j] < min && c[j] == 0){
min = mas[t][j];
y = t;
x = j;
}
}
u++;
b[u] = x;
c[x] = 1;
printf("%d-%d\n", y, x);
k += mas[y][x];
mas[x][y] = 32000;
mas[y][x] = 32000;
}
printf("%d\n", k);
system("pause");
}

	18.11.2014, 19:03