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) 
Lệnh cin và cout trong C++ 
Random trong Python: Tạo số random ngẫu nhiên 
ComboBox - ListBox trong lập trình C# winforms 
Thuật toán kiếm tra số nguyên tố 
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 Lệnh Goto trong Pascal
Trong bài này mình sẽ giới thiệu đến các bạn lệnh goto trong Pascal, đây là lệnh dùng để nhảy đến một vị trí nào đó trong đoạn code của phạm vi hiện tại.
Nói đến goto thì hầu như ai cũng khiếp sợ, bởi rất khó để quản lý và bảo trì. Bạn cứ tưởng tượng 1 file có vài ngìn dòng, lệnh goto sẽ nhảy lung tung trong đó thì sẽ gây ra khó khăn cho việc theo dõi và làm việc teamwork.
1. Lệnh Goto trong Pascal dùng lam gì?
Lệnh goto trong Pascal cung cấp một bước nhảy vô điều kiện từ vị trí đặt lệnh goto đến một vị trí được đánh dấu là nhãn trong cùng một phạm vi chương trình.
LƯU Ý: Như đã nói, việc sử dụng câu lệnh goto không được khuyến khích trong bất kỳ ngôn ngữ lập trình nào vì nó khó theo dõi luồng điều khiển của chương trình, khiến chương trình khó hiểu và khó sửa đổi. Bất kỳ chương trình nào sử dụng goto đều có thể được viết lại để nó không cần goto.
Bài viết này được đăng tại [free tuts .net]
Cú pháp lệnh Goto như sau:
goto label; ... ... label: statement;
Trong đó label được gọi là nhãn, là một con số bất kì, phải là số nguyên dương.
Lưu ý:
- Bạn có thể đặt nhiều label trong một chương trình và mỗi label phải có tên khác nhau, không được trùng.
- Bạn phải khai báo label ở đầu chương trình, nếu không sẽ bị báo lỗi label chưa được định nghĩa.
Xem sơ đồ sau đây để hiểu hơn về lệnh goto trong pascal.
Ví dụ: Viết chương trình nhập vào một số nguyên dương a, sau đó xuất thông báo nếu a < 100 thì in dòng 'xin chào các bạn', ngược lại thì in dòng "giá trị của a là: số" và dòng 'xin chào các bạn'.
program GotoPascalFreetuts;
label 1;
var
a: integer;
begin
a := 102;
if (a < 100) then goto 1;
writeln('Gia tri cua a la: ', a);
1:
writeln('Xin chao cac ban');
readln;
end.Nếu bạn nhập giá trị của a bé hơn 100 thì lệnh if sẽ được kích hoạt, lúc này lệnh goto sẽ nhảy xuống label số 1 nên dòng code writeln('Gia tri cua a la: ', a); không được biên dịch.
2. Dùng lệnh goto để tạo vòng lặp
Bạn cũng có thể sử dụng lệnh goto để tạo ra một vòng lặp, đương nhiên việc này là không khuyến khích.
Xem ví dụ dưới đây để hiểu rõ hơn.
program exGoto;
label 1;
var
a : integer;
begin
a := 10;
(* khai bao nhan so 1 *)
1:
repeat
if( a = 15) then
begin
(* tang gia tri cua a len 1
va nhay den nhan so 1 de tao buoc lap*)
a := a + 1;
goto 1;
end;
writeln('Gia tri cua a la: ', a);
a:= a +1;
until a = 20;
end.Bạn thấy đó, rõ ràng đây là một đoạn code rất khó theo dõi. Lập trình viên phải mất một khoảng thời gian dài mới nhận ra được đây là một cấu trúc lặp, điều này khác với việc sử dụng vòng lặp for, while hoặc repeat.
Như vậy là mình đã giới thiệu xong cách sử dụng lệnh label trong Pascal. Đây là một lệnh khá phức tạp và không khuyến khích sử dụng.
