Sinh Viên Việt Nam

THÀNH CÔNG MART chuyên phân phối thanh long, tủ vải sinh vien, tủ vải đựng quần áo, tu vai dung quan ao giá rẻ và các loại như may tap co bung, | nồi cơm điện | Goi massage hong ngoai | Goi massage | Gối mát xa | Gối massage | Gối massage hồng ngoại | Máy sấy quần áo |May say quan ao | noi com dien | bếp nướng than hoa | bếp nướng than hoa nam hồng | bep nuong than hoa nam hong | bep nuong than hoa | Ghế massage toàn thân nệm massage toàn thân Máy xay công nghiệp máy xay công suất lớn Đai massage x5 Đai mát xa x5 dai mat xa x5 dai massage x5 Điều khiển điều hòa đa năng Máy xay sinh tố công nghiệp máy xay đậu nành nguyên xác Máy xay công nghiệp oshika hàng nhật bản oshika Thương hiệu nhật bản


Trở lại   Sinh Viên Việt Nam > Diễn Đàn Tin Học > Lập Trình > Pascal - Delphi - Kylix

Gởi Ðề Tài Mới  Trả lời
 
Ðiều Chỉnh Xếp Bài
  #1  
Cũ 02-02-2010, 10:17 PM
Pascal
Guest
 
Bài gửi: n/a
Post Biên dịch Pascal

Nhờ mọi người biên dịch giúp t bài này qua C , t đang cần bài này nhưng ko hiểu một chút gì về ngôn ngữ nó đang sử dụng
Thanks
Code:
Procedure main;
var  ncol,m,i,mx:byte;
Begin
  input;
  ncol:=0;{Đặt màu ban đầu bằng 0}
  m:=MaxDegree;{m là đỉnh có bậc lớn nhất}
  while(m0) do {Nếu đồ thị chưa rỗng}
    begin
      inc(ncol);{Tăng màu, sắc số đồ thị tại vòng lặp này}
      color[m]:=ncol;{tô màu đỉnh m}
      mx:=MaxIntermediate(m);  {mx là đỉnh có số đỉnh trung gian với 
                                đỉnh m là lớn nhất}
      if (mx=0) then mx:=Non_MaxDegree(m);{Không tìm được đỉnh có đỉnh 
              trung gian với đỉnh m, tìm đỉnh không kề với m có bậc lớn nhất}
      while(mx0) do
        begin
          Merge(mx,m);{Nhập mx vào m}
          color[mx]:=ncol; {Tô màu cho đỉnh mx, mx có cùng màu với đỉnh m}
          mx:=MaxIntermediate(m);
          if (mx=0) then mx:=Non_MaxDegree(m);
          {Tiếp tục tìm đỉnh mx như trên cho đến khi không còn tìm được nữa}
        end;
      m:=MaxDegree;{m là đỉnh có bậc lớn nhất trong đồ thị còn lại, 
                      nếu m=0 thì đồ thị đã rỗng và việc tô màu đã hoàn thành}
   end;
   Cromatic:=ncol;{Đặt sắc số của đồ thị là ncol}
   Ouput;
End;
[color=red]
[=========> Bổ sung bài viết
Trả Lời Với Trích Dẫn
Gởi Ðề Tài Mới  Trả lời

Bookmarks

Ðiều Chỉnh
Xếp Bài

Quyền viết bài
Bạn không thể gửi chủ đề mới
Bạn không thể gửi trả lời
Bạn không thể gửi file đính kèm
Bạn không thể sửa bài viết của mình

BB code is Mở
Mặt cười đang Mở
[IMG] đang Mở
HTML đang Tắt


Chủ đề giống nhau
Chủ đề Người khởi xướng chủ đề Diễn đàn Trả lời Bài mới gửi
Phần mềm Pascal (Turbo Pascal & Free Pascal Full) Pascal Pascal - Delphi - Kylix 0 02-02-2010 10:17 PM
Thi quốc gia nên dùng Turbo Pascal hay Free Pascal? Pascal Pascal - Delphi - Kylix 0 02-02-2010 10:14 PM
Từ điển Pascal - Công cụ không thể thiếu cho dân Pascal Pascal Pascal - Delphi - Kylix 0 02-02-2010 10:04 PM
Turbo pascal & Pascal Pascal Pascal - Delphi - Kylix 0 02-02-2010 07:39 PM
Pascal Study 1.00: Học Pascal từ cơ bản đến nâng cao Vua_software Other software 0 05-12-2008 01:00 AM




Powered by: vBulletin v3.8.4 Copyright ©2000-2019, Jelsoft Enterprises Ltd.