Lũy Thừa 2, 3 Và 5

Có thể bạn quan tâm

Thứ Hai, 16 tháng 12, 2013

Lũy thừa 2, 3 và 5

Với mỗi giá trị N cho trước hãy sinh N số đầu tiên theo trật tự tăng dần là tích các lũy thừa của 2, 3 và 5.

LUYTHUA.INP	LUYTHUA.OUT
12	1 2 3 4 5 6 8 9 10 12 15 16

Dữ liệu vào: tệp văn bản LUYTHUA.INP Chứa số tự nhiên N,1 £ N £ 1000. Dữ liệu ra: tệp văn bản LUYTHUA.OUT N số tìm được, mỗi dòng một số.

Thuật toán

Gọi S là tập các số cần tìm. Ta có (i) 1 Î S (ii) Nếu x Î S thì 2x, 3x, 5x Î S. Giả sử các phần tử trong S được sắp tăng và ta đã tìm được phần tử thứ i. Ta kí hiệu S(i) = { a1, a2,…,ai }. Để tìm phần tử thứ i+1 ta nhận xét ai+1 = Min { 2x, 3y, 5z | x, y, z Î S(i), 2x > ai, 3y > ai, 5z > ai } Ta sử dụng 3 biến i2, i3, i5 để ghi nhận các chỉ số trong S sao cho ai2 = x, ai3 = y và ai5 = z.Các biến a[1], i2, i3 và i5 được khởi trị 1. Khi đó hàm Next(i) sinh phần tử sát sau phần tử A[i] sẽ như sau: function Next(i: integer): integer; begin while (a[i2] * 2 <= a[i]) do i2 := i2 + 1; while (a[i3] * 3 <= a[i]) do i3 := i3 + 1; while (a[i5] * 5 <= a[i]) do i5 := i5 + 1; Next := Min(a[i2]*2, a[i3]*3, a[i5]*5); end; (*Pascal*) (*************************************** LUY THUA cua 2, 3, 5 *************************************) program LuyThua; uses crt; const bl = #32; mn = 1001; fn = 'LUYTHUA.INP'; gn = 'LUYTHUA.OUT'; type ml1 = array[0..mn] of longint; var f,g: text; n: integer; a: ml1; procedure Doc: tự viết; function Min(a,b,c: longint): tự viết; function Next(i: integer): tự viết; procedure Sinh; var i: longint; begin assign(g,gn); rewrite(g); a[1] := 1; writeln(g,1); i2 := 1; i3 := 1; i5 := 1; for i := 2 to n do begin a[i] := Next(i-1); writeln(g,a[i]); end; close(g); end; BEGIN Doc; Sinh; END. Nguồn: SÁNG TẠO TRONG THUẬT TOÁN VÀ LẬP TRÌNH Người đăng: Unknown vào lúc 18:23

Nhãn: CÁC HÀM NEXT

Không có nhận xét nào:

Đăng nhận xét

Trang chủ Đăng ký: Đăng Nhận xét (Atom)

Danh Mục Gia Sư

gia sư tiếng trung tại nhà hà nội

DANH MỤC BÀI VIẾT

BÀI TOÁN VỀ ĐOẠN THẲNG (16)
BÀN PHÍM VÀ MÀN HÌNH (4)
CÁC HÀM NEXT (13)
CÁC THUẬT TOÁN SẮP ĐẶT (11)
GIẢI MỘT BÀI TOÁN TIN (6)
PHƯƠNG PHÁP QUAY LUI (4)
PHƯƠNG PHÁP THAM LAM (6)
QUY HOẠCH ĐỘNG (5)
SINH DỮ LIỆU VÀO RA (15)
SUY NGẪM (8)
TỔ CHỨC DỮ LIỆU (6)
TRÒ CHƠI (14)

Giới thiệu về tôi

Unknown Xem hồ sơ hoàn chỉnh của tôi

Tìm kiếm Blog này

BÀI ĐƯỢC XEM NHIỀU

Tháp Hà Nội cổ Có ba cọc cắm tại ba vị trí là 1, 2 và 3 như hình 5. Trên một cọc, gọi là cọc a có một chồng gồm n đĩa bằng gỗ hình tròn to nhỏ khác ...
Số duy nhất Tệp văn bản UNIQUE.INP chứa dãy số, mỗi số chiếm một dòng dài không quá 20 chữ số. Trong dãy này có duy nhất một số xuất hiện đúng một ...
Ma phương Ma phương Ma phương là những bảng số hình vuông trong đó mỗi dòng, mỗi cột và mỗi đường chéo đều cùng thoả một số tính chất nào đó. C...
Chuỗi hạt Chuỗi hạt - gia sư tin học Trong một tệp văn bản tên CHUOI.DAT có biểu diễn một chuỗi hạt, mỗi hạt có thể nhận một ...
Số thân thiện Số thân thiện - gia sư tin học giới thiệu bài toán số thân thiện. Tìm tất cả các số tự nhiên hai chữ số mà khi đảo trật tự của hai ch...

Lưu trữ Blog

► 2014 (33)
- ► tháng 3 (3)
- ► tháng 2 (10)
- ► tháng 1 (20)

▼ 2013 (75)
- ▼ tháng 12 (75)
  - Sắp đoạn
  - Đếm tàu
  - Đọc dữ liệu từ tệp vào mảng đối xứng
  - Đọc dữ liệu từ tệp vào mảng biết một kích thước
  - Đọc dữ liệu từ tệp vào mảng biết hai kích thước
  - Tệp các hoán vị
  - Số độ cao h
  - Sinh ngẫu nhiên mảng đối xứng
  - Sinh ngẫu nhiên tệp cấp số cộng
  - Sinh ngẫu nhiên tệp tăng
  - Sinh ngẫu nhiên tỉ lệ
  - Sinh ngẫu nhiên đều
  - Sinh hoán vị ngẫu nhiên
  - Sinh ngẫu nhiên tăng
  - Sinh ngẫu nhiên theo khoảng
  - Chia mảng tỉ lệ 1:k
  - Chia mảng tỉ lệ 1:1
  - Mảng ngẫu nhiên
  - Số cấp nhân
  - Số cấp cộng
  - Số thân thiện
  - Số duy nhất
  - Chín chiếc đồng hồ
  - Các nhà khoa học
  - Thuận thế
  - Thuận thế
  - Bộ bài
  - Dãy các hoán vị
  - Xếp sỏi
  - Dạng biểu diễn của giai thừa
  - Lưới tam giác đều
  - Cờ tam tài
  - Bốc sỏi H
  - Cờ đẩy
  - Cờ bảng
  - Trò chơi NIM
  - Chia Hình hộp
  - Bốc sỏi G
  - Chia Hình chữ nhật
  - Bốc sỏi F
  - Bốc sỏi E
  - Bốc sỏi D
  - Chia đoạn
  - Bốc sỏi C
  - Bốc sỏi B
  - Bốc sỏi A
  - Lũy thừa 2, 3 và 5
  - Đoạn đơn điệu dài nhất
  - Đoạn không giảm dài nhất
  - Tổng đoạn
  - Qúy Mùi
  - Dãy Farey
  - Trả tiền
  - Khóa vòng
  - Số Kapreka
  - Tổ hợp
  - Các hoán vị
  - Số sát sau cùng chữ số
  - Số sát sau cùng độ cao
  - Các tam giác vuông cân
  - Các hình chữ nhật
  - Xếp đoạn
  - Xanh đỏ
  - Ghép hình chữ nhật
  - Đoạn rời 2
  - Phủ đoạn 2
  - Xanh đỏ tím vàng 2
  - Xanh đỏ tím vàng 1
  - Phủ đoạn 1
  - Đoạn bao nhau 2
  - Đoạn bao nhau 1
  - Đoạn gối 3
  - Đoạn gối 2
  - Đoạn gối 1
  - Đoạn rời 1

Từ khóa » Cách Viết Lũy Thừa Trong Pascal

Lũy Thừa 2, 3 Và 5

Thứ Hai, 16 tháng 12, 2013