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

• Program Pascal : Membuat program untuk menghitung Nilai berpangkat dengan Procedure
• Pascal : Contoh Program menggunakan Perulangan For To Do, DIV dan MOD
• Program Pascal : Kalkulator Mencari Nilai rata-rata contoh kode Procedure dan Array
• Pascal : Menentukan Tahun Kabisat yang mengirimkan sebuah Boolean dengan Function
• Pemrograman Pascal : Mengenal Nilai Genap dengan Array
• Pascal : Membuat Perhitungan Gaji dengan Turbo Pascal
• Pemrograman Pascal : Contoh Array 1 dimensi
• Pascal : Menghitung nilai Jajar Genjang dengan Turbo Pascal For Windows (TPW 1.5)
• Pascal : Penggunaan script Repeat Until dan Case Break
• Pascal : Membuat Program Menghitung detik menggunakan DIV MOD
• Pascal : Program Konversi Suhu menggunakan Case
• Mempelajari Algoritma Pemrograman Berorientasi Objek dikenal OOP
• Web : Cara mengatur Paragraf html code menjadi lebih teratur
• HTML : Belajar HTML Memasukkan link Bahasa Pemrograman WEB
• Belajar HTML Pemrograman Web
• Download Turbo Pascal for Windows (TPW 1.5)
• Pemrograman Pascal : Program Kalkulator Kali, Bagi, Jumlah dan Kurang
• Mengenal Bahasa Pemrograman Pascal
• Program Pascal : Belajar Coding Dasar Membuat Program Pascal Hello
• Pemrograman Pascal : Contoh Coding Pemrograman Dasar Pascal Perulangan While Do