Repeat Until dan Case Break --- kedua-duanya merupakan elemen-elemen yang terdapat dalam pemrograman pascal sebagai bahasa dasar pemrograman. Fungsi ini memiliki kegunaannya masing-masing yang sangat membantu programer dalam membuat program atau aplikasi nantinya.
Sedikit penjelasan tentang Repeat Until dan Case Break yaitu :
Repeat Until
merupakan bagian looping atau dalam bahasa indonesia yaitu perulangan. repeat until akan terus berulang sampai pernyataan yang diinginkan tidak terpenuhi. Perulangan yaitu pemberian pilihan yang jika pernyataan atau statement tercapai maka akan melakukan suatu tindakan sesuai dengan yang kita inginkan.
Case Break
ini merupakan penyimpanan sementara yang suatu sangat dipanggil. pada saat pemanggilan, proses yang dilakukan hanya perlu menulis bagian idnya. Ini biasa kita gunakan untuk mempunyai banyak pernyataan yang dapat dipilih maka digunakan case break untuk mempermudah pengelompokannya.
Berikut contoh penggunaan Repeat Until dan Case Break dalam pemrograman pascal. sebagai latihan dan praktik dalam mempelajari Pascal.
program hari;
uses crt;
const BEL= ^G;
var
pilihan:char;
angka:char;
selesai:boolean;
begin
repeat
clrscr;
writeln(' PILIHAN HARI');
writeln;
writeln('[0]');
writeln('[1]');
writeln('[2]');
writeln('[3]');
writeln('[4]');
writeln('[5]');
writeln('[6]');
writeln('[7] end');
writeln;
writeln('pilihan [1..7] :'); readln(pilihan);
clrscr;
selesai:=FALSE;
case pilihan of
'0':begin
writeln('Hari Minggu');
readln;
Kurang lebih seperti itu script code memakai repeat until dan case break pada program pascal.uses crt;
const BEL= ^G;
var
pilihan:char;
angka:char;
selesai:boolean;
begin
repeat
clrscr;
writeln(' PILIHAN HARI');
writeln;
writeln('[0]');
writeln('[1]');
writeln('[2]');
writeln('[3]');
writeln('[4]');
writeln('[5]');
writeln('[6]');
writeln('[7] end');
writeln;
writeln('pilihan [1..7] :'); readln(pilihan);
clrscr;
selesai:=FALSE;
case pilihan of
'0':begin
writeln('Hari Minggu');
readln;
end;
'1':begin
writeln('Hari Senin');
readln;
end;
'2':begin
writeln('Hari Selasa');
readln;
end;
'3':begin
writeln('Hari Rabu');
readln;
end;
'4':begin
writeln('Hari Kamis');
readln;
end;
'5':begin
writeln('Hari Jumat');
readln;
end;
'6':begin
writeln('Hari Sabtu');
readln;
end;
'7':selesai:=TRUE;
else
writeln(BEL, 'Hari Tidak Valid');
readln;
end;
until selesai;
writeln('selesai');
end.
'1':begin
writeln('Hari Senin');
readln;
end;
'2':begin
writeln('Hari Selasa');
readln;
end;
'3':begin
writeln('Hari Rabu');
readln;
end;
'4':begin
writeln('Hari Kamis');
readln;
end;
'5':begin
writeln('Hari Jumat');
readln;
end;
'6':begin
writeln('Hari Sabtu');
readln;
end;
'7':selesai:=TRUE;
else
writeln(BEL, 'Hari Tidak Valid');
readln;
end;
until selesai;
writeln('selesai');
end.
Hasil Running:
Hasil diatas memperlihatkan tampilan awal sebelum melakukan pilihan, sehingga hasil pilihan tidak kelihatan. Tapi nanti akan muncul tampilan baru sesuai pilihan yang dipilih.
Demikian artikel kali ini tentang contoh penggunaan Repeat Until dan Case Break pada program Pascal. Semoga Bermanfaat. Wassalam..