I F( ABS( S2−S1) GT EPSL) THEN SOHNH = SOHNH + 1
Cấu trúc lặp với lệnh DO
Trong chương 4 đã xét sự điều khiển được thực hiện thông qua những lệnh cho phép chương trình chọn những nhánh khác nhau để thực hiện. Đồng thời, ta cũng đã một số lần sử dụng kết hợp lệnh IF lôgic và lệnh chuyển điều khiển vô điều kiện GOTO để tổ chức những vòng lặp dạng:
n IF (Biểu thức lôgic) THEN
Lệnh 1 Lệnh 2 . . . Lệnh m GOTO n END IF
Cấu trúc này gọi là vòng lặp có điều kiện (While Loop): Khi và chừng nào biểu thức lôgic trong lệnh IF có giá trị .TRUE. thì nhóm lệnh từ lệnh 1 đến lệnh m lần lượt thực hiện, nhưng lệnh GOTO ở cuối luôn luôn chuyển điều khiển lên nhãn n và hình thành vòng lặp. Vòng lặp này có những đặc điểm sau:
1) Trường hợp biểu thức lôgic có giá trị .FALSE. ngay từ đầu, thì quá trình lặp sẽ không xảy ra;
2) Trong nhóm lệnh từ lệnh 1 đến lệnh m bên trong vòng lặp nhất thiết phải có một lệnh nào đó làm thay đổi giá trị của biểu thức lôgic thành .FALSE., vậy số lần lặp phụ thuộc vào giá trị khởi đầu của biểu thức lôgic và sự biến đổi giá trị của nó bên trong chính vòng lặp.
Trong bài này ta xét một cấu trúc lặp khác mà điều kiện và số lần lặp được xác định ngay từ khi bắt đầu quá trình lặp với việc sử dụng vòng lặp DO (DO Loop). Trong chương tiếp sau sẽ xét một tính năng quan trọng của vòng lặp DO, gọi là vòng lặp ẩn, để tổ chức nhập, xuất các biến có chỉ số rất hay gặp trong thực tiễn.
5.1. Vòng lặp DO
5.1.1. Cú pháp của lệnh DO và vòng lặp DO
Dạng tổng quát của lệnh DO như sau: