Các kiểu dữ liệu trong C ( int - float - double - char ...) 
Thuật toán tìm ước chung lớn nhất trong C/C++ 
Cấu trúc lệnh switch case trong C++ (có bài tập thực hành) 
ComboBox - ListBox trong lập trình C# winforms 
Random trong Python: Tạo số random ngẫu nhiên 
Lệnh cin và cout trong C++ 
Cách khai báo biến trong PHP, các loại biến thường gặp 
Download và cài đặt Vertrigo Server 
Thẻ li trong HTML 
Thẻ article trong HTML5 
Cấu trúc HTML5: Cách tạo template HTML5 đầu tiên 
Cách dùng thẻ img trong HTML và các thuộc tính của img 
Thẻ a trong HTML và các thuộc tính của thẻ a thường dùng Vòng lặp while trong Pascal
Trong bài này chúng ta sẽ tìm hiểu vòng lặp while trong Pascal, đây là vòng lặp có công dụng giống như vòng lặp for, chỉ khác một điều là ta không cần biết trước tổng số lần lặp.
Vòng lặp while cũng đóng vai trò rất quan trọng, được sử dụng rất nhiều trong lập trình thực tế. Không chỉ ở Pascal mà các ngôn ngữ như C, C++, PHP đều xem trong while.
1. Vòng lặp while trong Pascal
Lệnh lặp while-do trong Pascal cho phép tính toán lặp đi lặp lại cho đến khi một số điều kiện kiểm tra được thỏa mãn. Nói cách khác, nó liên tục thực thi một câu lệnh đích, miễn điều kiện lặp đã cho là đúng.
Cú pháp như sau:
Bài viết này được đăng tại [free tuts .net]
while (condition) do S;
Trong đó:
conditionlà điều kiện lặp. Nếu condition true thì vòng lặp thực hiện, false thì dừng vòng lặp.Slà những lệnh sẽ thực hiện nếu condition true. Nếu nhiều lệnh thì phải đặt trong khối BEGIN .. END
Ví dụ: In ra các số từ 1 đến 5. Bài toán này đã được giải ở vòng lặp for, bây giờ mình sử dụng vòng lặp while để xử lý như sau.
program WhileLoopFreetuts;
var
number: integer;
begin
number : = 1;
while number <= 5 do
begin
writeln(number);
number : = number + 1;
end;
readln;
end.Như bạn thấy, trong thân vòng lặp mình đã có một đoạn code như sau:
number : = number + 1;
Dòng này có công dụng là tăng giá trị của number lên 1 sau mỗi lần lặp, điều này sẽ giúp chương trình tránh bị lặp vô hạn bởi điều kiện dừng là number > 5.
2. Vòng lặp for lồng nhau trong Pascal
Tương tự như vòng lặp for, vòng lặp while trong Pascal cũng cho phép bạn đặt lồng nhau. Thực tế điều này được sử dụng rất thường xuyên khi xây dựng những ứng dụng thực tiễn.
Vòng lặp for lồng nhau tức là đặt vòng while A nằm trong B, cấu trúc như sau:
while (condition_A)
begin
while (condition_B)
begin
// S
end;
end;Quay lại giải bài toán in ra bảng cửu chương, ta sẽ sử dụng vòng lặp while để thực hiện như sau:
program WhileLoopFreetuts;
var
a: integer;
b: integer;
begin
a := 2;
while (a <= 9) do
begin
// phai gan lai b = 1 tai vi phan tu dau tien la 1
// neu ban khong gan lai thi sai thuat toan
b := 1;
while (b <= 9) do
begin
writeln(a, ' x ', b, ' = ', (a * b));
// cong them 1 cho b
b := b + 1;
end;
// cong them 1 cho a
a := a + 1;
end;
readln;
end.Nếu bạn là người mới bắt đầu học lập trình thì khi giải bài toán này có vẻ rất khó hiểu phải không? Điểm khó nhất là dòng gán lại b = 1, đây là dòng quan trọng vì nó quyết định đến kết quả in ra của bảng cửu chương.
Không tin bạn hãy thử bỏ dòng này, sau đó chạy lên thì kết quả chỉ in ra bảng cửu chương 2. Lý do là sau lần lặp này thì b đã có giá trị là 10, nên các lần lặp sau vòng lặp con sẽ không được thực hiện.
Như vậy là mình đã giới thiệu xong vòng lặp whiel trong Pascal. Nhìn chúng nó cũng không khó, miễn là bạn chịu khó thực hiện theo hai ví dụ mà minh đã đưa ra, sau đó thay đổi giá trị và suy nghĩ xem tại sao lại có được kết quả như vậy. Chúc bạn thành công nhé.
