Apa yang anda ketahui tentang percabangan pada pascal?
Dapat kita ketahui, percabangan ini serasi dengan kata mendua, dan
kita juga tahu kata mendua dihadapkan pada dua pilihan yang berbeda, itu pun
seperti halnya percabangan itu sendiri. Percabangan juga dihadapkan pada
beberapa pilihan yang berbeda, dan harus dipilih salah satu. Jadi pada pascal,
percabangan adalah suatu operator yang
digunakan untuk menentukan pilihan terhadap beberapa pilihan yang ada.
Pada pascal ada beberapa script atau code yang digunakan
untuk menjalankan suatu percabangan, seperti struktur if-then, struktur
if-then-else, struktur case-of, dan struktur case-of-else. Secara mendasar
terdapat dua struktur pernyataan percabangan didalam bahasa pemrogramman
pascal, yaitu pernyataan if dan pernyataan case..of. Pernyataan-pernyataan
tersebut digunakan untuk menangani percabangan atau memilih suatu statement
yang berdasarkan suatu syarat. Syarat ini harus terpenuhi jika akan melakukan
penyeleksian yang diinginkan.
Masing-masing memiliki kelebihan dan kekurangan, seperti
pada struktur case..of itu memiliki kelebihan dibanding struktur if, yakni
struktur script atau codenya lebih ringkas dibanding pada struktur if. Tetapi
struktur case..of juga memiliki kekurangan yakni tidak dapat menjalankan
percabangan didalam percabangan seperti halnya yang dapat dilakukan oleh
struktur if.
STRUKTUR PERCABANGAN
Struktur percabangan ada beberapa macam, antara lain struktur if-then,
struktur if-then-else, struktur case-of, dan struktur case-of-else. Setiap
struktur memiliki perbedaan seperti yang telah dijeleskan sebelumnya. Jika ada
pertanyaan seperti:
Bagaimana cara menerapkan struktur percabangan pada pascal?
Ada beberapa cara, yakni sebagai berikut:
PENERAPAN STRUKTUR IF-THEN
Statemen IF-THEN digunakan untuk menyeleksi suatu kondisi, jika
kondisi yang diseleksi terpenuhi, maka statemen yang mengikuti THEN akan
diproses. Tetapi, apabila kondisi tidak terpenuhi, maka yang akan diproses
adalah statemen berikutnya.
Bentuk umum:
contoh kodingan:
program Batas_Kecepatan_Kendaraan;
uses crt;
label
mulai;
var
k:integer;
ket:string;
jawab:char;
begin
mulai:
clrscr;
writeln('');
writeln('====================================================');
writeln(' Mengukur Batas Kecepatan Kendaraan');
writeln('====================================================');
writeln('');
write(' masukan angka kecepatan kendaraannya :');readln(k);
writeln('');
If (k< 30) then
begin
ket := ' maaf, anda di bawah batas normal kecepatan';
end;
If (k >= 30) and (k<70) then
begin
ket := ' Kecepatan anda aman';
end;
If (k >= 70)and (k<=120) then
begin
ket := 'ANDA MELEBIHI BATAS KECEPATAN!!';
end;
if (k>120)then
begin
ket := 'Maaf,anda harus kami tangkap !';
end;
writeln('');
writeln('hasil :',ket);
writeln('');
write(' Cek kecepatan kendaraan lain [Y/T] ? ');readln(jawab);
if (jawab = 'Y') or (jawab = 'y') then
goto mulai
end.
hasil eksekusi dari program Batas Kecepatan Kendaraan :
PENERAPAN STRUKTUR CASE-OF
fungsi case of yaitu suatu ungkapan logika yang disebut selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector.
Statement yang mempunyai case label yang bernmilai sama dengan case label yang bernilai sama dengan nilai selector akan diproses sedang statemen yang lainnya tidak.
Bentuk umum :
Contoh kodingan Program hari:
program konversi_angka_kehari_abraham_dwi_kurniawan;
uses crt;
label
start;
var
hari:integer;
answer:char;
begin
start:
clrscr;
writeln('------------------------------------------------------');
writeln(' Mengkonfersi Angka KeHari ');
writeln('======================================================');
writeln('');
writeln(' Untuk mengetahui hari dari setiap angka, maka ');
write(' masukkan angka untuk mengetahui hari : ');readln(hari);
writeln('');
case hari of
1: writeln(' Hari Senin ');
2: writeln(' Hari Selasa');
3: writeln(' Hari Rabu ');
4: writeln(' Hari Kamis ');
5: writeln(' Hari Jumat ');
6: writeln(' Hari Sabtu ');
7: writeln(' Hari Minggu');
else
writeln(' Angka yang anda tekan adalah : ',hari);
writeln(' angka tidak cocok, angka: ', Hari,' ,angka tersebut tidak memiliki hari.');
end;
writeln('');
writeln(' mau mencoba lagi [Y/T] ? ');readln(answer);
If (answer= 'Y') or (answer= 'y') then
goto start
end.
hasil eksekusi dari program hari :
Baik,cukup sekian materi tentang if-then dan case-of semoga bermanfaat.
Sumber:
https://fjarfs.wordpress.com/2013/10/22/membuat-program-if-then-else-pada-pascal-tahap-8/
http://nikmannasir.blogspot.co.id/2013/10/tugas-fungsi-case-of-dan-contoh-program.html
0 komentar:
Posting Komentar