Pascal 2

Assalamu'alaikum...
Pada Pascal 2, kita akan menggunakan script tambahan, seperti label, goto, dll. Dimana kegunaan script goto adalah untuk langsung menuju label yg dituju dengan mengabaikan script sebelum label yang dituju.
bingung??? langsung aja dipraktekin ntar ngerti kok..., kalo gambar kurang jelas, klik aja.

1. Buka Turbo pascal kalian, dari folder Turbo Pascal-7.0 lalu Bin lalu TPX.exe.

2. Lalu ketik script berikut pada layar Turbo Pascal.

3. Lalu save as dengan nama "test2.pas".

4. Lalu di compile (alt+F9).

5. Lalu jika anda BERUNTUNG maka outputnya akan.

6. Oke, kenapa hanya "Saya ganteng" saja yang keluar?, sedangkan "jelek" tidak? itu karena saya memang ganteng, Alamak Keceplosan!!!, bukan itu, yang bener karena kita menggunakan "goto" dan label "satu". Jadi pada script "goto satu;" berarti kita langsung menuju label "satu:", sehingga kita mengabaikan script "writeln('jelek');", jadi yang kebaca hanya "writeln('saya');" dan "writeln('ganteng')".

7. Selesai. ALHAMDULILLAH..