๑۩۞۩๑[♥๑۩۞۩๑ (¯`•♥(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]

nhà xuất bản: "beokaka";
chú ý: koi được thì tốt không được cháy máy ráng chịu?
Code:
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;
    t:ARRAY[0..max] OF BOOLEAN;
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 t[i] AND (d[i]<min) THEN BEGIN
        d[i]:=min;
        u:=i;
        END;
    IF (u=0) OR ( u=c) THEN break;
        t[u]:=FALSE;
        FOR v:=1 TO n DO
        IF (t[v])AND (d[v]>d[u]+a[u,v]) THEN
        BEGIN
              d[v]:=d[u]+a[u,v];
              p[v]:=u;
        END;
    UNTIL FALSE;
    END;
PROCEDURE xuat;
VAR u,j:INTEGER;
BEGIN
IF d[u] = maxa THEN
  writeln('khong co duogn di')
ELSE
    BEGIN
        writeln('duogn di tu',s,' den',c, ':',d[c]);
WHILE s<>c DO
      BEGIN
          write(u,'<-');
          u:=p[u];
      END;
      writeln(c);
      END;
END;
BEGIN
    doctep;
    khoitao;
    tinh;
    xuat;
    readln;
END.

Loading
Xem lý lịch thành viên http://thienduonga2.forumvi.com
zì zậy bean đĩ scratch

Loading
Xem lý lịch thành viên http://www.me.zing.vn/vinvip1/
zwk nha tai tubos pascal di cop cai code vao roi alt +f9 la pk ket qua ak

Loading
Xem lý lịch thành viên http://thienduonga2.forumvi.com
bean wu t mới phát hiện ra cái ứng dụng window movie marke hay khang he` lol!

Loading
Xem lý lịch thành viên http://www.me.zing.vn/vinvip1/
cai nay t xai lau roy ma đĩ kakakakakaka

Loading
Xem lý lịch thành viên http://thienduonga2.forumvi.com
con khĩ thì hầu h ông quan tâm ông đi học còn tui đâu có bik , mak làm sao tải video về máy dc bean

Loading
Xem lý lịch thành viên http://www.me.zing.vn/vinvip1/
tutu tui alm 1 muc huogn dan roi huong dan tat ca cau hoi luon ok

Loading
Xem lý lịch thành viên http://thienduonga2.forumvi.com
MAK SAO ÔNG KO SỬA FORUM THEO Ý TUI Crying or Very sad Evil or Very Mad Sad Suspect Sleep Mad Sad

Loading
Xem lý lịch thành viên http://www.me.zing.vn/vinvip1/
tututu da may hom nay ban lam

Loading
Xem lý lịch thành viên http://thienduonga2.forumvi.com
nhanh đê Razz lol!

Loading
Xem lý lịch thành viên http://www.me.zing.vn/vinvip1/
binh tinh lam j nong zu

Loading
Xem lý lịch thành viên http://thienduonga2.forumvi.com
OK tui sẽ wait nhưng phải beautiful mí dc

Loading
Xem lý lịch thành viên http://www.me.zing.vn/vinvip1/

Sponsored content


Loading

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