Một số bài tập Pascal rèn luyện có kèm gợi Ý giải

[Ngoctruat]

Một số bài tập Pascal rèn luyện có kèm gợi Ý giải

Bài tập 1: Viết chương trình giải phương trình bậc hai: ax2 + bx + c = 0, a#0.

Gợi ý:
    - Tính Delta=b*b-4*a*c.
    - Biện luận:
        Delta<0: Phương trình vô nghiệm.
        Delta=0: Phương trình có nghiệm kép: x = -b/(2*a).
        Delta>0: Phương trình có 2 nghiệm phân biệt: x1,2 = (-bSQRT(Delta))/(2*a). 

Bài tập 2: Viết chương trình nhập vào từ bàn phím: giờ, phút, giây. Cọng thêm một số giây cũng được nhập từ bàn phím. Hãy in ra kết quả sau khi cọng xong.

Gợi ý:
    - Gọi số giây được cộng thêm là: ss. Gán giây:=giây+ss.
    - Nếu giây60 thì: phút:=phút + giây DIV 60 và giây:=giây MOD 60.
    - Nếu phút60 thì: giờ:=giờ + phút DIV 60 và phút:=phút MOD 60. 

Bài tập 3: Viết chương trình tìm Max, Min của 4 số: a, b, c, d.

Bài tập 4: Viết chương trình nhập vào ngày, tháng, năm. Máy sẽ hiện lên ngày, tháng, năm hôm sau.

Gợi ý:
    Biện luận theo tháng. Gom tháng thành 3 nhóm: tháng có 31 ngày (1,3,5,7,8,10,12), tháng có 30 ngày (4,6,9,11) và tháng 2 (có 28 hoặc 29 ngày tùy theo năm nhuận).
    Dùng lệnh lựa chọn: 
    CASE thang OF
    1,3,5,7,8,10,12: ..........
    4,6,9,11: .....................
    2: ................................
    END; 

Bài tập 5: Viết chương trình in ra màn hình các giá trị của bảng mã ASCII từ 0->255.

Gợi ý:
    Cho biến i chạy từ 0 -> 255. In ra màn hình i và CHR(i). 

Bài tập 6: Viết chương trình in ra màn hình các số nguyên từ 1 đến 100 sao cho cứ 10 số thì xuống dòng.

Gợi ý:
    Cho biến i chạy từ 1 -> 100. In ra màn hình i và kiểm tra: nếu i MOD 10=0 thì WRITELN. 

Bài tập 7: Viết chương trình in ra màn hình bảng cữu chương.

Gợi ý:
    Dùng 2 vòng lặp FOR lồng nhau: i là số bảng cữu chương (2...9), j là số thứ tự trong từng bảng cữu chương (1...10).
    For i:=2 To 9 Do
        For j:=1 To 10 Do Writeln(i,’x’,j,’=’,i*j); 

Bài tập 8: Viết chương trình tính các tổng sau:

S0 = n! = 1*2*...*n        {n giai thừa}
        S1 = 1 + 1/2 + ... + 1/n
        S2 = 1 + 1/2! + ... + 1/n!
        S3 = 1 + x + x2/2! + x3/3! + ... + xn/n!
        S4 = 1 - x + x2/2! - x3/3! + ... + (-1)nxn/n!
        S5 = 1 + sin(x) + sin2(x) + ... + sinn(x). 

Bài tập 9: Viết chương trình để tìm lời giải cho bài toán sau:
Trong giỏ vừa thỏ vừa gà,
Một trăm cái cẳng bốn ba cái đầu.
Hỏi có mấy gà mấy thỏ?

Bài tập 10: Viết chương trình để tìm lời giải cho bài toán sau:
Trăm trâu trăm bó cỏ
Bó lại cho tròn
Trâu đứng ăn năm
Trâu nằm ăn ba
Năm trâu nghé ăn một.
Hỏi có bao nhiêu trâu đứng, trâu nằm, trâu nghé?

Bài tập 11: Viết chương trình nhập vào các số nguyên từ bàn phím cho đến khi nào gặp số nguyên tố thì kết thúc nhập. Tính tổng các số chẵn và trung bình cọng các số lẻ.

Gợi ý:
    Dùng vòng lặp REPEAT ... UNTIL NTo; để nhập. Trong đó, NTo là biến kiểu Boolean để kiểm tra số được nhập vào có phải là số nguyên tố hay không. 

Bài tập 12: Viết chương trình nhập vào một số nguyên dương. Hãy thông báo lên màn hình số đó có bao nhiêu chữ số và tổng các chữ số của số đó.

Gợi ý:
Dùng vòng lặp WHILE. Trong khi N>0 thì: lấy ra chữ số cuối cùng của N để tính bằng phép toán MOD 10, sau đó bỏ bớt đi chữ số cuối cùng của N bằng phép toán DIV 10.

Bài tập 13: Viết chương trình in ra màn hình tất cả các số nguyên tố từ 2 đến N. Với N được nhập từ bàn phím.

Bài tập 14: Viết chương trình phân tích một số ra thừa số nguyên tố. Ví dụ: N=100 sẽ in ra màn hình:

    100    |    2
    50    |    2
    25    |    5
    5    |    5
    1    | 

Bài tập 15: Số hoàn thiện là số tự nhiên có tổng các ước của nó (không kể chính nó) bằng chính nó. Viết chương trình kiểm tra xem một số được nhập vào từ bàn phím có phải là số hoàn thiện hay không? Ví dụ: 6, 28 là các số hoàn thiện.

Gợi ý:
    - Tính tổng các ước số của N: từ 1  N div 2 lưu vào biến S.
    - Nếu S=N thì N là số hoàn thiện. 

Bài tập 16: Viết chương trình in ra các số nguyên từ 1 đến N2 theo hình xoắn ốc với N được nhập vào từ bàn phím. Ví dụ, với N=5 ta có:
1 2 3 4 5
16 17 18 19 6
15 24 25 20 7
14 23 22 21 8
13 12 11 10 9

Có thể bạn quan tâm

• » Tài liệu cho người mới đầu học Pascal
• » Viết chương trình Pascal nhập vào tuổi của...
• » Các thành phần và phím tắt cơ bản khi làm...
• » Bàn luận về vấn đề về tham biến, tham trị...
• » Code tính diện tích và chu vi hình chữ nhật
• » Bán chè khô thái nguyên (Toàn Quốc)
• » Viết chương trình tìm Ước số chung lớn nhất...
• » Thông báo lỗi thường gặp trong pascal
• » Lập trình pascal : Đếm bao nhiêu số chẵn...
• » Muốn làm 1 lập trình viên thực thụ, hãy vào...

Thông báo & Quảng Cáo

biểu thuế 2014

[huongtramy]

Bài tập 14: Viết chương trình phân tích một số ra thừa số nguyên tố.
Ví dụ: N=100 sẽ in ra màn hình:

    100    |    2
    50    |    2
    25    |    5
    5    |    5
    1    |
và Kết luận: Vay 100=2.2.5.5 

Ai giải giùm bài này với, vưa rồi thi nhưng bí. Cám ơn rất nhiều

[ntpilm]

Nhập vào số tự nhiên n. xét xem số đó có đối xứng hay ko.(một số đối khi viết ngược lại ta dc số giống ban đầu.

[Xì Po]

Bài tập 14: Viết chương trình phân tích một số ra thừa số nguyên tố.
Ví dụ: N=100 sẽ in ra màn hình:

    100    |    2
    50    |    2
    25    |    5
    5    |    5
    1    |
và Kết luận: Vay 100=2.2.5.5 

Ai giải giùm bài này với, vưa rồi thi nhưng bí. Cám ơn rất nhiều

sax, cái này mình cũng tìm hiểu sơ sơ và đây là bài giải. Cái tính đúng đắn có tuyệt đối hay không thì mình không biết, nhưng chắc là được .:D

var n,i: integer;
begin
write('Nhap so nguyen to: ');readln(n);
repeat
i:=2;
while (n mod i <> 0) and ( i < n) do inc(i);
write(i:4);
n:=n div i;
until n=1;
writeln;
readln;
end.

[Xì Po]

Nhập vào số tự nhiên n. xét xem số đó có đối xứng hay ko.(một số đối khi viết ngược lại ta dc số giống ban đầu.

đang suy nghĩ, nếu là xâu thì nó có trong SGK :)