Lập trình Pascal (vòng lặp)

VÒNG LẶP CÓ BƯỚC LẶP KHÔNG XÁC ĐỊNH

Giáo viên: Nghiêm Văn Hưng
I. MỤC ĐÍCH VÀ YÊU CẦU
1. Kiến thức
Sau khi nghiên cứu xong bài này, học viên sẽ:
- Biết được ý nghĩa của cấu trúc lặp có bước lặp không xác định.
- Hiểu được cú pháp của vòng lặp While và vòng lặp Repeat.
Để hiểu những kiến thức trong bài giảng, học viên cần nắm vững kiến thức các bài giảng trước:
- Kiến thức về các kiểu dữ liệu chuẩn, các kiểu dữ liệu có cấu trúc, cấu trúc rẽ nhánh.
- Học viên đã biết cách soạn thảo, dịch, thực hiện và hiệu chỉnh một chương trình đơn giản.
2. Kỹ năng
Sau khi nghiên cứu xong bài này, học viên sẽ có kỹ năng:
- Phân biệt được vòng lặp While và vòng lặp Repeat.
- Vẽ được lưu đồ cú pháp của vòng lặp While và vòng lặp Repeat.
- Biết sử dụng cấu trúc lặp để giải toán.
3. Cách tiếp thu bài của học viên
Học viên cần chú ý nghe giảng, chủ động suy luận, tư duy để giải quyết vấn đề đặt ra.
II. NỘI DUNG BÀI GIẢNG
Cấu
trúc
Thời
gian
Nội dung
Tiến trình bài học




Hoạt động của GV
Hoạt động của HV

Mở đầu
5 phút
 Trong cuộc sống, chúng ta gặp nhiều trường hợp làm một công việc lặp đi lặp lại. Số bước lặp có thể đã được xác định hoặc có thể không xác định.
Vòng lặp có bước lặp không xác định trong ngôn ngữ Pascal có hai kiểu là while và repeat.


Giới thiệu để đặt vấn đề.


- Chú ý nghe giảng, tập trung tư duy.
- Liên hệ với các kiến thức đã học để giải quyết vấn đề đặt ra.


Phần chính
30 phút
1. Vòng lặp While
1.1. Cú pháp
while <điều kiện> do
Trong đó: Điều kiện: là một biểu thức logic.
Câu lệnh: có thể là một câu lệnh đơn hoặc một dãy các lệnh đặt giữa hai từ khóa begin và end.
1.2. Lưu đồ cú pháp


 Máy tính sẽ lặp đi lặp lại chu kì sau: chừng nào điều kiện còn đúng (tức là biểu thức logic có giá trị TRUE) thì thực hiện câu lệnh.


1.3. Ví dụ
Tính tổng s = 1 + 2 + 3 + ... + n

program tinh_tong;
var i, n, s: integer;
BEGIN
write(`Nhap n =`); readln(n);
s:=0; i:=1;
while (i<=n) do
begin
s:=s+i;
i:=i+1;
end;
writeln(`Ket qua s =`,s);
readln;
END.

2. Vòng lặp Repeat
2.1. Cú pháp
Repeat

Until <điều kiện>;

Trong đó: Điều kiện: là một biểu thức logic.
Câu lệnh: có thể là một câu lệnh đơn hoặc một dãy các câu lệnh; nếu là dãy các câu lệnh thì không cần sử dụng hai từ khóa begin và end.
2.2. Lưu đồ cú pháp



Máy tính sẽ lặp đi lặp lại chu kì sau: thực hiện lệnh cho đến khi điều kiện đúng (tức là biểu thức logic có giá trị TRUE)




2.3. Ví dụ
Tính tổng s = 1 + 2 + 3 + ... + n

program tinh_tong;
var i, n, s: integer;
BEGIN
write(`Nhap n =`); readln(n);
s:=0; i:=1;
repeat
s:=s+i;
i:=i+1;
until (i>n);
writeln(`Ket qua s =`,s);
readln;
END.

Chương trình dưới đây chỉ sử dụng 2 biến: n và s
program tinh_tong;
var n, s: integer;
BEGIN
write(`Nhap n =`); readln(n);
s:=0;
repeat
s:=s+n;
n:=n-1;
until (n=0);
writeln(`Ket qua s =`,s);
readln;
END.

- Trình bày cú pháp của vòng lặp WHILE, giải thích.





-