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

Dãy Farey Cho số tự nhiên N > 0. hãy liệt kê theo trật tự tăng dần các phân số t / m thỏa đồng thời các tính chất sau: - t / m là phân ...
Tệp các hoán vị Tệp các hoán vị Với mỗi số n cho trước trong khoảng 1..9, ghi vào một tệp văn bản có tên cho trước toàn bộ các ho...
Trò chơi NIM Trò chơi NIM có xuât xứ từ Trung Hoa, dành cho hai đấu thủ A và B với các nước đi lần lượt đan nhau trên một đấu trường với N đống sỏi....
Palindrome Palindrome Olympic Quốc tế, năm 2000, Bắc Kinh, Trung Quốc. Dãy kí tự s được gọi là đối xứng (palindrome) nếu các phần tử cách đề...
Chữ số cuối khác 0 Chữ số cuối khác 0 Đề thi Tin học Quốc gia Ireland, 1994. Tìm chữ số cuối cùng khác 0 của n! với n trong khoảng 1..100. Thí dụ: ...

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