Chuyên đề về vòng lặp với số lần lặp
chưa biết trước và mảng một chiều
1.Lệnh lặp while do
Cú pháp : while < biểu thức điều kiện > do
<Câu lệnh>
Chức năng : Trong khi biểu thức điều kiện
còn đúng thì thực hiện câu lệnh sau Do
< Câu lệnh > có thể là câu lệnh đơn hay lệnh
ghép.
2.Lệnh lặp repeat … until
Cú pháp : Repeat < Câu lệnh>
Until < Biểu thức điều kiện >
Chức năng : Thực hiện câu lệnh cho đến khi
biểu thức điều kiện đúng
3.Lưu ý : Câu lệnh ghép giữa repeat .. until
không cần begin ..end;
Trong cả 2 dạng lệnh lặp trên , trong câu lệnh
phải có lệnh làm thay đổi giá trị của biểu


thức điều kiện để tránh được vòng lặp vô
hạn .
4.Một số bài tập nâng cao
Bài 1: Viết chương trình tính tổng bình
phương của n số đầu tiên.
Bài 2 : Viết chương trình nhập vào 1 số
nguyên dương từ bàn phím và suất ra màn
hình số chữ số của số vừa nhập .
Bài 3: Một người gửi tiết kiệ tại ngân hàng
với số tền ban đầu là A (triệu đồng) với lãi
suất là 3 % tháng . Hỏi sau sau bao nhiêu

Nhập từng phần của mảng :
For i:=1 to n do
Begin
Write(‘A[‘,i,’] =’);readln(A[i]);
End;
II. Bài Tập
Bài 1 : Cho một dãy gồm n phần tử n