Bài tập Pascal

tengiday:

Mấy bài của bạn có vẻ nghiêng về toán rất nặng.
Bài 1: Đây là bài tập cơ bản. Bạn cần duyệt i từ 2 tới sqrt rồi kiểm tra n mod i.

Bài 2: Tổng các chữ số của 1 số N chính là N mod 9. Như vậy bài này ta chỉ cần tìm N mod 9 là xong. Thuật toán tính N mod 9 nếu N là số lớn như sau:

Mã:

Với từng chữ số N[i] của N
   result = (result * 10 + N[i]) mod 9.

Bài 3: Bài này mục đích cần tìm chính là M^N mod 10^K. Gọi d = 10^k và lambda = 2*10^(K-1), ta có công thức:

Mã:

M^N mod d = A^B mod d,
với M mod d = A mod d   và   N mod lambda = B mod lambda.

Tư tưởng chính là vì M^N quá lớn nên ta phải thay thế M^N bằng A^B với A^B đủ nhỏ. Nhỏ tới cỡ nào thì bạn tự nghĩ xem nhé.

- Phần 2 của bài này không khó lắm vì n chỉ có 10 số, hơn nữa chúng ta đã có thuật toán tìm UCLN và BCNN cực nhanh rồi.

Bài 4: Bài này chỉ cần dùng while (N mod 10 = 0).

Bài 5: Bài này mình đang xem có thể tìm đc công thức tính luôn hay là phải đệ quy quay lui.

Bài 6: Bạn nhớ lại đinh nghĩa của N! như thế nào, và ước của nó là số nào nhé.

Nhấn để mở rộng...

MIB1258:

Bạn có thể làm cụ thể ra được không.Mình chỉ vừa mới học và tiếp xúc với môn này thôi mà BTVN đã dư lày.
Đây đều là các bài tập trong sách giáo khoa chuyên tin quyển 1.

Nhấn để mở rộng...

// Giả sử n > 1.
count := 2;
sum := 1 + n;
for i := 2 to trunc(sqrt(n)) do
   if (n mod i = 0) then   // n chia hết cho i nên i là ước của n.
      begin
         count := count + 1;   // có 1 ước nữa là i nên tăng biến đếm.
         sum := sum + i;   // cộng ước mới vào cho tổng.
         if (n div i <> i) then   // nếu i là ước thì n / i cũng là ước nếu n <> i^2
            begin
               count := count + 1;
               sum := sum + n div i;
            end;
      end;
writeln(count, ' ', sum);

tuongsonqt:

bạn ơi cho mình hỏi chút,ở bài 2.nếu số lớn ta cung phải dùng mảng để lưu trữ như bài trừ ở post trước rồi sau đó sẽ xử lý giống ý của bạn phải không ak

Nhấn để mở rộng...

tuongsonqt:

bạn nói rõ hơn cho mình kể quả =0 thì chuyển thành 9 dk ko ak
và cái này nữa mảng của mình chak ko cần phải luu ngược lại giống post trước phải ko bạn?

Nhấn để mở rộng...

a[1] := 6; a[2] := 3; a[3] := 7; a[4] := 5;
n := 4;
result := 0;
for i := 1 to n do   // bạn đổi thành "n downto 1" xem thử nhé
    result := (10 * result + a[i]) mod 9;
if (result = 0) then result := 9;   // dòng lệnh này có thể bỏ qua nếu cần kiểm tra số đẹp, chứ ko phải tìm digital sum.
writeln(result);

hàm f là tổng các chữ số của n thì f tính được đó làm sao biết được là số đẹp hay ko hở bạn.

Nhấn để mở rộng...

tuongsonqt:

voi bài này mình cũng đang hiểu hết sức là mơ hồ
1. về cách lưu trữ: ở đây ta phải dùng xâu tách từng chữ số lưu vào mảng mới được
2. số đẹp ở đây có ngĩa là tổng các chữ số của n phải = 9 hay sao hở bạn( mình chỉ chưa hiểu định nghĩa f(N) là tổng các chữ số của N thì f(N) cũng là số đẹp ) còn cách tính của bạn thì mình đã hiểu

Nhấn để mở rộng...

N là số đẹp nếu:
- N = 9, hoặc
- f(N) là số đẹp.

f(N) là số đẹp nếu:
- f(N) = 9, hoặc
- f(f(N)) là số đẹp.

f(f(N)) là số đẹp nếu:
- f(f(N)) = 9, hoặc
- f(f(f(N))) là số đẹp.
...