๑۩۞۩๑[♥๑۩۞۩๑ (¯`•♥(forum class @ two)♥• ๑۩۞۩๑[♥๑۩۞۩๑/
Hello!
Âm Nhạc Theo Yêu Cầu

Latest topics
» Come home Perry - Phinese & Ferb
Thu Nov 29, 2012 4:55 pm by Beokaka

» Anh Đã Thích Em Rồi
Mon Nov 26, 2012 4:42 pm by Beokaka

» Cô Gái Ba Cô - La Thanh Ngân
Mon Nov 26, 2012 3:46 pm by Beokaka

» Cây Đèn Cù - Phan Bích Ty
Mon Nov 26, 2012 2:02 pm by Beokaka

» TKB Bắt đầu từ ngày 25-11
Mon Nov 26, 2012 1:55 pm by Beokaka

» Bá Đạo quá
Sun Nov 25, 2012 5:24 pm by Beokaka

» OBaMa Gangnam style
Sun Nov 25, 2012 5:19 pm by Beokaka

» Hội Thi Cắm Hoa Ngày 20-11
Sun Nov 25, 2012 5:13 pm by Beokaka

» Cho Dua binh yen
Mon Nov 05, 2012 6:29 pm by Beokaka

Top posting users this month

Most active topic starters
Beokaka
 
newstyle
 
f2_neymar
 
ChikapoStreet
 
baycandyta
 
Mr.Bốn
 

Top posting users this week

Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm

Không

[ View the whole list ]


Số người truy cập cùng lúc nhiều nhất là 8 người, vào ngày Sat Oct 06, 2012 12:24 pm

You are not connected. Please login or register

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

1code cho minh gui nho chieu delete ngen on Tue Jun 19, 2012 11:07 am

PROGRAM ddnt;
CONST
max=100;
maxa=10000;
VAR m,n,s,c:BYTE;
a:ARRAY[0..max,0..max] OF INTEGER;
d:ARRAY[0..max] OF INTEGER;
q:ARRAY[0..max] OF INTEGER;
p:ARRAY[0..max] OF INTEGER;
PROCEDURE doctep;
VAR u,v,i:BYTE;
f:TEXT;
BEGIN
assign(f,'dothi.inp');
reset(f);
read(f,m,n,s,c);
{ FOR u:=1 TO n DO
FOR v:=1 TO n DO
IF(u=v)THEN a[u,v]:=0 ELSE a[u,v]:= maxa;}
fillchar(a,sizeof(a),0);
FOR i:=1 TO m DO BEGIN
readln(f,u,v,a[u,v]);
a[v,u]:=a[u,v];
END;
close(f);
END;
PROCEDURE khoitao;
VAR i:INTEGER;
BEGIN
FOR i:=1 TO n DO BEGIN
q[i]:=i;
d[i]:=maxa;
END;
d[s]:=0;
{fillchar(t,sizeof(t),true);}
END;
PROCEDURE xoa(u:INTEGER);
VAR k,i:INTEGER;
BEGIN
k:=n;
FOR i:=1 TO k-1 DO BEGIN
q[i]:=q[i+1];
k:=k-1;
END;
END;
PROCEDURE tinh;
VAR i,u,v,min,c:INTEGER;
BEGIN
REPEAT
u:=0;min:=maxa;
IF (d[i] d[i]:=min;
u:=i;
END;
IF (u>0) THEN BEGIN
xoa(u);
FOR v:=1 TO n DO
IF d[v]>d[u]+a[u,v] THEN
BEGIN
d[v]:=d[u]+a[u,v];
p[v]:=u;
END;
END;
UNTIL FALSE;
END;
PROCEDURE xuat;
VAR u,j:INTEGER;
k:ARRAY[0..max]OF INTEGER;
BEGIN
j:=0;
u:=c;
WHILE u>0 DO BEGIN
inc(j);
k[j]:=u;
u:=p[u];
END;
FOR u:=j DOWNTO 1 DO write(k[j]:5);
END;
BEGIN
doctep;
khoitao;
tinh;
xuat;
readln;
END.


Loading
Xem lý lịch thành viên http://thienduonga2.forumvi.com

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang  Thông điệp [Trang 1 trong tổng số 1 trang]

Permissions in this forum:
Bạn không có quyền trả lời bài viết