Bai tap ve cau lenh while

Bài 1. Lệnh lặp While
Câu hỏi, ví dụ, bài tập
1. a) Lập trình tính tích của 10 số tự nhiên đầu tiên.
b) Lập trình tính tổng của 1000 số tự nhiên đầu tiên.
2. Lập trình tính tổng:


ở đây n là số tự nhiên đợc nhập từ bàn phím.
4. Tính hàm luỹ thừa an ở đây a thực và n tự nhiên đợc nhập vào từ bàn phím.
5. Có sẵn một dãy số. Hãy viết chơng trình nhập một số x rồi tìm xem có bao nhiêu phần tử trong dãy >x hay không.
6. Viết chơng trình nhập một dãy số tối đa 100 số, sau đó in ra màn hình các số khác nhau.
7. Viết chơng trình nhập một dãy số tối đa 100 số, sau đó sắp xếp lại dãy theo thứ tự tăng dần.
8. Viết chơng trình nhập tối đa 100 số, và kiểm tra xem dãy đó có lập thành một cấp số cộng hay không?
9. Viết chơng trình nhập một dãy số tối đa 100 số, sau đó xét xem dãy số này có đối xứng hay không?
10. Viết chơng trình nhập Họ, tên, năm sinh trong một danh sách có tối đa 100 ngời, sau đó xếp lại thứ tự danh sách này theo tuổi.
11. Viết chơng trình nhập số tự nhiên n và in ra số Fibonaci thứ n.
12. Dãy số tự nhiên An thoả mãn các điều kiện sau:
A1=A2=A3=A4=1
An = An-1 + An-3
Viết chơng trình tính An với n cho trớc. (n>=5)
Bài tập về nhà
13. Viết chơng trình nhập số thực A và tìm ra số tự nhiên nhỏ nhất N sao cho
1 + 1/2 + 1/3 + .... + 1/N >A.
15. Cho dãy số đợc nhập từ bàn phím. Hãy chỉ ra một dãy con liên tục đơn điệu tăng có độ dài lớn nhất. Chơng trình phải in ra đợc dãy con đó.
16. Cho trớc số tự nhiên N. Viết chơng trình lập một mảng số bao gồm các chữ số thập phân của N. Ví dụ cho N=23654 thì ta có mảng sau: a[0]=4, a[1]=5, a[2]=6, a[3]=3, a[4]=2.
17. Cho trớc số tự nhiên N. Viết chơng trình lập một mảng số bao gồm các chữ số trong biểu diễn nhị phân của N. Ví dụ cho N=5 tức là 101 thì ta có mảng sau: a[0]=1, a[1]=0, a[2]=1.
18. Giả sử đã có dãy số a1, a2, ..., an là đơn điệu tăng.
Em hãy dựa vào đoạn mô phỏng lập trình sau để viết chơng trình Pascal hoàn chỉnh.
Readln(c)
i=1, j=n
if c < ai or c > aj then Kết thúc chơng trình
while ibegin
k = (i+j) div 2
if c < ak then j = k else i =k
end
if ai = c then Thông báo tìm thấy
else Thông báo không tìm thấy
So sánh kết quả của chơng trình này với các chơng trình tìm kiếm phần tử trong dãy mà em đã làm trớc kia.
19. Cho số tự nhi