Penggunaan Perintah Goto – Label pada Pascal

Pernyataan Goto digunakan untuk melakukan transfer ekseksi program ke pernyataan yang dideklarasikan oleh Label.

Bentuk Penulisan :

Goto Label;

 

Label harus berada didalam blok yang sama dengan pernyataan goto. Hal ini tidak memungkinkan melompat keluar dari dalam procedure atau function. Suatu Label dideklarasikan pada bagian deklarasi Label.

Bentuk Penulisan :

Label identifier, ... identifier;

Untuk penulisan identifier yang akan digunakan pada label, penggunaan digit secara urut diantara 0 dan 9999 dapat label.

Program Penggunaan_GoTo_Label;

Uses Crt;

Label

Atas;

Var

Nil1, Nil2 : Integer;

NilRata    : Real;

Lagi       : Char;

Begin

Atas:

ClrScr;

WriteLn('Program Hitung Nilai');

WriteLn('--------------------');

WriteLn;

Write('Masukan Nilai 1 : ');

ReadLn(Nil1);

Write('Masukan Nilai 2 : ');

ReadLn(Nil2);

NilRata := (Nil1 + Nil2)/2;

WriteLn('Nilai Rata - Rata : ',NilRata:5:2);

WriteLn;

Write('Ingin Hitung Lagi[Y/T] : ');

ReadLn(Lagi);

If (Lagi='Y') Then

GoTo Atas;

End.