Lệnh Goto trong Pascal - Pascal căn bản

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.

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 GotoPascalZaidap.com;
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.