Pascal : Penggunaan script Repeat Until dan Case Break

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;

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.

Kurang lebih seperti itu script code memakai repeat until dan case break pada program pascal.

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..

Bagikan ke:

Facebook Google+ Twitter