Các Lệnh Goto, Break, Exit Và Halt - Lập Trình Passcal Pdf

1. Lệnh Goto:

Cú pháp:

GOTO Lab;

Trong đó, Lab là một nhãn. Nhãn là một tên như tên biến hoặc là một số nguyên từ 0 đến 9999. Tên nhãn được khai báo theo hướng dẫn ở bài1 (IV.2).

Khi gặp lệnh Goto Lab, máy nhảy không điều kiện đến thực hiện câu lệnh sau nhãn Lab.

Lệnh Goto chỉ cho phép nhảy từ vị trí này đến vị trí khác trong cùng một thân hàm, thủ tục, cho phép nhảy từ trong một vòng lặp ra ngoài; không cho phép nhảy từ ngoài vào trong một vòng lặp, thủ tục, hàm hoặc khối lệnh.

4 Ví dụ: Chương trình tìm các số nguyên tố nằm giữa hai số nguyên dương n1 và

n2, hai số này được nhập từ bàn phím (khái niệm số nguyên tố: là số nguyên chỉ

Trang 32 Program NguyenToByGoto; Label L1, L2; Var i, j, n1, n2 : Integer; TL : Char; Begin

L1: Write( ‘ Nhap hai gia tri nguyen : ‘ ); Readln(n1, n2);

For i := n1 to n2 do Begin

For j := 2 to i - 1 do

If (i mod j = 0) then Goto L2; Write( i, ‘ ‘ );

L2: ; {; cũng là một lệnh, nhưng là lệnh rỗng, tức là không làm gì cả } End;

Writeln;

Write( ‘ Ban muon tiep tuc khong ? (C/K) ‘ ); Readln(TL);

If (Upcase(TL) = ‘C’) then Goto L1; End.

2. Lệnh Break:

Trong thân các lệnh lặp FOR, WHILE, REPEAT khi gặp lệnh Break thì máy sẽ thoát khỏi chu trình. Nếu có nhiều lệnh lặp lồng nhau thì máy thoát khỏi chu trình trong nhất chứa lệnh Break.

4 Ví dụ: In ra màn hình 4 dãy số từ 1 đến 49. Uses CRT; Var i, j : Integer; Begin ClrScr; For j := 1 to 4 do Begin Writeln; Writeln( ‘j = ‘ , j ); For i := 1 to 300 do {*} Begin If i = 50 then

Trang 33 Break; { Thoát khỏi vòng lặp For *}

Write( i, ‘ ‘ ); End; Readln; End; Readln; End. 3. Lệnh Exit:

Nếu lệnh Exit thuộc chương trình con thì việc thực hiện Exit làm chấm dứt chương trình con, trở về chỗ gọi nó. Nếu lệnh Exit thuộc chương trình chính thì việc thực hiện nó sẽ làm chấm dứt chương trình.

4 Ví dụ: Chương trình cứ nhắc lại câu Welcome to Turbo Pascal Language sau mỗi lần ấn một phím. Chương trình sẽ thoát khi ấn phím E hoặc e.

Uses CRT; Label L1; Var TL : Char; Begin

L1: Writeln( ‘Welcome to Turbo Pascal Language !‘ );

TL := Readkey; { Chờ một phím được ấn, giá trị được đặt vào biến TL, đây là hàm của Unit CRT } If (Upcase(TL) = ‘E’) then Exit Else Goto L1; End. 4. Lệnh Halt:

Lệnh Halt dùng để dừng ngay chương trình đang chạy. Lệnh Halt thường được dùng khi phải một trường hợp nào đó mà thuật toán không thể tiếp tục được.

Trang 3 4

BAÌI 5. DỮ LIỆU KIÊØU VÔ HƯỚNG LIỆT KÊ VAÌ KIÊØU ĐOẠN CON