Namun begitu, pascal / QBasic ini cukup bagus untuk dipelajari bagi yang awam dengan pemrograman..
Okey, melanjutkan materi sebelumnya tentang Struktur Pemilihan, sekarang beralih ke materi Goto menggunakan Label.
Label ini dideklarasikan pada pendeklarasian variabel, berarti letaknya dibawah judul program, langsung saja ke kodingannya :
Program gotoxy;
Uses crt;
var
nama,alamat:string;
ulangi : char;
label utama,tanya;
begin
utama:
clrscr;
writeln('Selamat Datang!');
write('Masukkan Nama Anda : ');
readln(nama);
write('Masukkan Alamat Anda : ');
readln(alamat);
writeln('===================');
writeln('Hallo!',nama);
writeln('Alamat kamu berada di ',alamat);
writeln('Ulangi lagi ? y/t :');
readln(ulangi);
tanya:
if (ulangi='y') or (ulangi='Y') then goto utama
else if (ulangi='t') or (ulangi='T') then exit
else goto tanya;
readln;
end.
Jika terdapat error
No comments:
Post a Comment