- Mô hình Internet Mail: Là mô hình liên kết cách ộp thư lưu trên Internet, mỗi hộp thư
c. Các lưu ý khi sử dụng các lệnh lặp WHILE và REPEAT
1) Trong thân vòng lặp phải có ắt nhất một lệnh làm thay ựổi giá trị của biểu thức ựiều kiện nhằm dừng vòng lặp. Nếu ựiều kiện luôn ựược thoả mãn thì lệnh có thể rơi vào vòng lập vô tận. Khi ựó chỉ còn cách là tắt máy hoặc dừng chương trình.
Xem vắ dụ sau: I:=1;
WHILE I<2 DO write('Stop!');
Vòng lặp này sẽ chạy vô tận vì trong thân vòng lặp sau từ khoá DO chỉ có một lệnh in ra xâu chữ 'Stop!', không có lệnh nào làm thay ựổi giá trị của I. Tức là với I ựược khởi tạo ban ựầu là
1 luôn nhỏ hơn 2, ựiều kiện luôn thoả mãn.
2) Trong lệnh lặp với ựiều kiện trước WHILE thì thân vòng lặp (sau từ khoá DO) phải sử dụng câu lệnh phức hợp begin... end; còn trong lệnh lặp với ựiều kiện sau thì không cần.
3) Trong lệnh lặp với ựiều kiện trước, máy luôn kiểm tra ựiều kiện trước khi thực hiện lệnh, do ựó nếu ựiều kiện sai ngay từ ựầu thì lệnh không ựược thực hiện lần nào. Còn trong lệnh lặp với ựiều kiện sau, máy luôn thực hiện lệnh một lần rồi mới kiểm tra ựiều kiện, dù ban
ựầu ựiều kiện có thể ựúng. Nhớ rằng trong lệnh lặp với ựiều kiện sau lệnh ựược quay lại thực hiện chỉ khi ựiều kiện sai.
4) Các lệnh lặp có thể viết lồng nhau
5) Người ta thường dùng các lệnh lặp có số bước lặp không xác ựịnh ựể quay vòng thực hiện nhiều lần cả một công việc nào ựó hoặc cả chương trình, cho phép tạo sự tương tác giữa người sử dụng và máy. Xem vắ dụ mẫu sau:
Program VD; Var tieptuc:char; ... { các biến của chương trình } Begin Repeat ...
{ ựoạn chương trình thực hiện công việc và thay ựổi ựiều kiện kiểm tra}
write(' Ban co tiep tuc nua hay khong (C/K)'); readln(tieptuc);
UNTIL (tieptuc='k') or (tieptuc='K'); End;