Алгоритм Прима

@Vizion · Регистрация: 25.11.2009

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

Доброго времени суток.

Мне нужно перевести программу написанную в Pascal, в Delphi.
Вот программа в 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;
 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;   
k:=k+a[y,x];   
a[y,x]:=32000;   
a[x,y]:=32000;  
end;
 Writeln('Rezultat: ',k);
 readkey;
 end.

Вот что я сделал в Delphi(В StringGrid вводится матрица, в Edit- размерность матрицы):

Delphi

procedure TForm1.btn1Click(Sender: TObject);
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
  n:= StrToInt(Edt1.Text);
  strngrd1.RowCount:= n;
  strngrd1.ColCount:= n;
  for i:=1 to n do
  for j:=1 to n do
  a[i,j]:=32000;
 for i:=1 to strngrd1.RowCount do
  for j:= 1 to strngrd1.ColCount do
    a[i,j]:= StrToInt(strngrd1.Cells[i,j]);
 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;
k:=k+a[y,x];
a[y,x]:=32000;
a[x,y]:=32000;
end;
 lbl1.Caption:= IntToStr(k);
end;

Так как Delphi знаю тока по наслышке, то получилась вообще ерунда.
Помогите правильно код перевести.

@Asker · 03.12.2011, 21:26

Правда я не понял, для чего программа )) попытка не пытка

@Vizion · 03.12.2011, 22:01 **[ТС]**

Ну в принципе правильно все, тут уж я дальше сам переделаю)
Спасибо огромное за помощь!

@Vizion 1 / 1 / 1 Регистрация: 25.11.2009 Сообщений: 19
	03.12.2011, 22:01 [ТС]	3
	Ну в принципе правильно все, тут уж я дальше сам переделаю) Спасибо огромное за помощь! 0