Code Dãy Con đơn điệu Dài Nhất Bằng Pascal !! | Toán Học

Program Day_con_don_dieu_dai_nhat; {Giải bài toán bằng phương pháp quy hoạch động} uses crt; Const Max = 5000; fi='Day.INP'; fo='Day.OUT'; Var a,L,T:array [1..Max] of integer; i,j,N,jmax:integer; g:text; Procedure Nhapdulieu; Var f:text; begin assign(f,fi); reset(f); N:=0; while not eof (f) do begin N:=N+1; read(f,a[N]); end; close(f); end; procedure quyhoachdong; Begin L[1]:=1;T[1]:=0;a[N+1]:=32767; for i:=2 to N+1 do begin jmax:=0; L[i]:=1; for j:=1 to i-1 do if (a[j]<=a[i])and (L[i]< L[j]+1) then begin L[i]:=L[j]+1; jmax:=j; end; T[i]:=jmax; end; End; Procedure Truyvet(m:integer); Begin m:=T[m]; if m=0 then exit; truyvet(m); write(g,a[m],' '); end; Procedure ghidulieu; begin assign(g,fo); rewrite(g); quyhoachdong; truyvet(N+1); close(g); end; begin clrscr; Nhapdulieu; Ghidulieu; end.

Chia sẻ:

• X
• Facebook

Thích Đang tải...

Có liên quan

2 bình luận Comments RSS

1. dangtrungkien

   Tháng Bảy 22, 2014

   Thêm test vào đi!!

   Trả lời

2. dangtrungkien

   Tháng Bảy 22, 2014

   Chú giải vào từng câu lệnh đi !!

   Trả lời

Bình luận về bài viết này Hủy trả lời

Δ

Bài & Trang đáng chú ý

• Đề thi đại học khối B năm 2010 câu 1b - Khảo sát hàm số
• Định lý 3 (Công thức Tích phân Cauchy)
• Bài 12 trang 6 Sách bài tập xác suất
• Định lí ba đường vuông góc
• Đề thi đại học khối D năm 2008 câu 1b - Khảo sát hàm số

Bài viết mới

• Bài tập 6.22 sách bài tập tin học lớp 11 trang 66 Tháng Sáu 11, 2015
• Hình học động !! Tháng Hai 28, 2015
• Date and Time in Pascal Tháng Tám 20, 2014
• (không có tựa đề) Tháng Bảy 23, 2014
• Code dãy con đơn điệu dài nhất bằng pascal !! Tháng Bảy 22, 2014
• Các khái niệm cơ bản về đồ thị (phần 1) Tháng Bảy 15, 2014
• Lesson 15: Prepositions with the Genitive Case Tháng Một 31, 2014
• Lesson 14Nouns in the Genitive Case (all genders, Singular). Tháng Một 31, 2014
• Lesson 13:Numbers and Quantity Tháng Một 31, 2014
• Lesson 12 :Speaking about reasons: “because” and “that’s why”. Tháng Một 31, 2014

Chuyên mụcChuyên mục Chọn chuyên mục Bất đẳng thức (5) Chuyên đề tự chọn (63) Hình học không gian (10) Hình học phẳng (7) Khảo sát hàm số (22) Lượng giác (2) Phương trình, bất phương trình, hệ phương trình (8) Số phức (7) Tích phân (5) Giải tích (15) Khái niệm (1) Định lý (13) Hình học sơ cấp (8) Hình học động (3) Lịch sử (1) Lịch sử Toán (1) Phương trình vi phân (1) Sách giáo khoa (2) Hình học 10 (2) Sức khỏe (1) Tiếng Anh (22) Giáo trình English (4) Tiểu thuyết (2) Unit 15. Past perfect (7) Bài tập Unit 15 (2) Lời giải Unit 15 (2) Lý thuyết Unit 15 (3) Unit 88 Both/both of,neither/neither of,either/either of (6) Bài tập Unit 88 (1) Lí thuyết Unit 88 (5) Unit 89. All, every and whole (3) Bài tập Unit 89 (1) Lí thuyết Unit 89 (2) Tiếng Nga (19) Tiếng Pháp (4) Tin học (13) Pascal (1) Phần cứng (1) Quy hoạch động (1) Thuật toán (4) Quicksort (3) Tin học 10 (4) TH10 – Chương I. Một số khái niệm cơ bản của Tin học (1) Toán rời rạc (1) Đồ thị (1) Tin tức nước ngoài (2) Toán học (128) Chỉnh hợp (2) Giải tích 2 (3) Giải tích hàm (13) Giải tích số (2) Hàm biến phức (7) Chương II. Hàm chỉnh hình và các tính chất của hàm chỉnh hình (6) Bài 1. Hàm chỉnh hình (1) Bài 2. Tích phân phức (4) 2. Lý thuyết tích phân Cauchy (4) Hình học (3) Hình sơ cấp II (3) Hình học affine và Euclid (6) Hình học vi phân (25) Bài tập hình học vi phân (6) Chương I. Phép tính giải tích trong không gian Euclide E^n và hình học vi phân của E^n (5) Chương III. Mặt trong E^3 (15) Hình học vi phân 1 (1) Không gian Metric (24) Phương trình vi phân đạo hàm riêng (22) Chương I. Phân loại phương trình đạo hàm riêng (14) Chương II. Phương trình Laplace (2) Chương III. Phương trình Hyperbolic (3) Chương IV. Phương trình Parabolic (6) Đại số sơ cấp (9) Đại số tuyến tính và hình học giải tích (4) Độ đo tích phân (7) Toán THPT (35) Giải tích 12 (13) Chương I Ứng dụng đạo hàm để khảo sát và vẽ đồ thị của hàm số (13) Hình học 11 (7) Bài tập (6) Chương III. Vecto trong không gian. Quan hệ vuông góc (2) Hình học 12 (16) Chương III. Phương pháp tọa độ trong không gian (16) Bài tập (15) Lí thuyết (1) Toán-Tin (1) Uncategorized (69) Xác suất thống kê (11) Bài tập xác suất thống kê (6) Đại số đại cương (1) Bài tập đại số đại cương (1) Đề thi đại học (27) A2006 (1) A2009 (1) A2010 (2) A2011 (2) A2012 (13) A2013 (1) B2010 (1) D2007 (1) D2008 (1) D2009 (1) D2010 (1) D2011 (1) D2012 (1) Trang này sử dụng cookie. Tìm hiểu cách kiểm soát ở trong: Chính Sách Cookie

• Bình luận
• Đăng lại
• Theo dõi Đã theo dõi
  • Toán học
  Đã có 41 người theo dõi Theo dõi ngay
  • Đã có tài khoản WordPress.com? Đăng nhập.
• • Toán học
  • Theo dõi Đã theo dõi
  • Đăng ký
  • Đăng nhập
  • URL rút gọn
  • Báo cáo nội dung
  • Xem toàn bộ bài viết
  • Quản lý theo dõi
  • Ẩn menu

%d Tạo trang giống vầy với WordPress.comHãy bắt đầu