GOTO

Perintah goto adalah perintah untuk membuat lompatan dalam program . tetapi pada awal program harus diberitahu nama-nama percabangan yang akan dibuat dengan perintah label.bisa dalam huruf atau angka.

Contoh:

Uses crt;

Var nama:array[1..100] of string;

No,i:byte;

Kar :char;

Label awal,10;

Begin

Awal:

Clrscr;

No:=1;

10:

Write(‘ketik nama ‘,no,’:’); readln(nama[no]);

Write(‘isi nama lagi(Y.T_?’);kar:=readkey;

Writeln;

If upcase(kar)=’Y’ then begin inc(no);goto 10; end;

Fir i:= 1 to no do

Begin

Writeln(‘Nama ‘,i,’: ‘,nama[i]);

End;

Write(‘Mau diulang(Y/T)?’);kar:=readkey;

If upcase(kar)=’Y’ then goto awal;

End.

Kembali ke Contoh Program Turbo Pacal