7.9.12

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.

1 comments:

  1. gan, gimana kalo misalkan mau ada dua label? jadi misalkan kalo milih "Y" mulai dari awal, kalo milih "T" kembali ke pengisian nilai yang ke dua? codingnya gimana ya?

    ReplyDelete

Setiap komentar Anda sangat berarti sekali untuk Blog Efriaman Harefa agar bisa menjadi lebih baik kedepannya. Berkomentarlah dengan baik demi kenyamanan bersama.

Tak ada yang bisa saya berikan selain ucapan terima kasih karena telah memberikan apresiasi terhadap artikel-artikel dan tulisan di Blog Saya ini.

Peringatan! Saya tidak pernah melarang untuk menggunakan pengguna Anonim namun setidaknya gunakanlah akun Anda atau minimal nama dan URL. No SARA, SPAM dan Sejenisnya !!