Struktur Percabangan IF THEN ELSE dan Nested IF di Pascal

ditulis oleh

Struktur percabangan if-then-else adalah salah satu jenis struktur kendali pada pemrograman komputer yang digunakan untuk mengeksekusi perintah tertentu berdasarkan kondisi yang telah ditentukan. Struktur percabangan di pascal dapat dilakukan dengan perintah dasar IF THEN, IF THEN ELSE, dan Nested IF atau IF bersarang. Berikut pembahasannya:

1. Program IF-THEN di Pascal

Program IF THEN di pascal dimanfaatkan dalam melakukan pemilihan kondis untuk menentukan proses penentuan langkah berikutnya berdasarkan yang terjadi sebelumnya. Program IF THEN sangat penting dalam pemrograman karena dapat menentukan proses yang akan dijalankan berikutnya.

Konsep dasar dari perintah IF THEN dalam Bahasa pemrograman pascal adalah sebagai berikut.

                                                        IF (kondisi) THEN
                                                        Begin
                                                            (statement)

                                                       End;

Kondisi dimanfaatkan sebagai penentu dari suatu percabangan. Jika kondisi ini bernilai true atau memenuhi, program akan berjalan. Juga sebaliknya saat kondisi tidak terpenuhi atay bernilai FALSE, maka tidak ada yang terjadi pada program.

Berikut ini adalah contoh program IF-THEN di pascal:

Program berikut mencari tingkat kevalidan dari nilai standar deviasi. Dengan program if then, kita bisa mencari dan mengetahui nilai mana saja yang tergolong ke dalam data yang valid, kurang, valid, dan tidak valid.

program standar_deviasi;
uses crt;
var
    sd:real;
begin
    Clrscr;
    writeln('Mencari Standar Deviasi (SD) ');
    writeln('============================ ');
    write('Masukkan nilai standar deviasi: ');
    read(sd);
    if sd=0 then write('Keterangan Data: Valid');
    if sd>1 then write('Keterangan Data: Kurang Valid');
    if sd<1 then write('Keterangan Data: Tidak Valid');
    readln;
end.

Berikut ini adalah hasil pemrograman dari kode di atas.

Contoh program if then di pascal


2. Program IF THEN ELSE di Pascal

Program IF THEN ELSE adalah include atau tambahan dari kondisi IF THEN. Fungsi ELSE pada kondisi ini untuk menjalankan kode program saat kondisi false atau tidak terpenuhi. Berikut adalah konsep dasar dari percabangan IF THEN ELSE:

IF (kondisi) THEN
    begin
      (statement 1)
    end
ELSE
    begin
      (statement 2)
    End;

Contoh program yang menggunakan struktur percabangan IF kondisi Then Else Statement adalah:

program jenis_segitiga;
uses crt;
var
    a,b,c,miring:real;
begin
    Clrscr;
    writeln('JENIS SEGITIGA TEOREMA PHITAGHORAS');
    writeln('================================= ');
    write('Panjang sisi vertikal: ');
    read(b);
    write('Panjang sisi horizontal: ');
    read(a);
    write('Panjang sisi miring: ');
    read(miring);
    c:=sqrt(a*a+b*b);
    writeln('Panjang sisi diagonal ',c);
    if c=miring then
        Begin
        writeln('Jenis= Segitiga sudut lancip');
        end
    else
        Begin
        writeln('Jenis= segitiga sudut tumpul');
        end;
    readln;
end.

Berikut adalah hasil setelah program di atas dijalankan:

Contoh program if then else di pascal


3. If Bersarang (Nested If) di Pascal

IF bersarang atau nested IF adalah penggunaan struktur IF dalam IF yang digunakan dalam kode pemrograman yang cukup kompleks.

Berikur ini adalah konsep dasar dari IF bersarang. Konsep I bersarang juga bergantung pada program yang ingin dirancang.

IF (kondisi 1) THEN
   begin
     (statement 1)
        IF (kondisi 1.1) THEN
            begin
               (statement 1.1)
            end;
   end
ELSE
   begin
     (statement 2)
   end;

Berikut adalah contoh program IF bersarang atau nested IF pada program pembelian tiket konser.

program Pembelian_tiket;
uses crt;
var
    n,rupiah:real;
begin
    Clrscr;
    writeln('PERHITUNGAN PEMBELIAN TIKET');
    writeln('===========================');
    Write('Masukkan Nomor Tiket (1-2): ');
    read(n);
    if n=1 then
        Begin
        write('Masukkan total uang: ');
        read(rupiah);
            If rupiah=3000000 then
            write('Jenis Tiket: VVIP')
            else if rupiah=250000 then
                write('Jenis Tiket: VIP');
        end;
    if n=2 then
        Begin
        write('Masukkan total uang: ');
        read(rupiah);
            If rupiah=1000000 then
                write('Jenis Tiket: PERAK')
            else write('Jenis Tiket: TERBELAKANG');
        end
    else write('NOMOR ITU TIDAK TERSEDIA');
    readln;
end.

Dan berikut adalah hasil setelah program dijalankan:

Contoh program nested if atau if bersarang di pascal


Sekian pembahasan saya tentang struktur pemilihan/ percabangan IF-THEN pada pascal. Semoga menambah pengetahuan kamu, ya! Next bahas apa lagi?


Komentar

Posting Komentar

Postingan populer dari blog ini

Selumbari untuk Lusa

ditulis oleh
Gambar
  Di bawah rinai hujan, aku terpaku menyaksikan sosoknya berlari cergas. Wajahnya merekah adiwarna, rambut pendeknya terurai pendar, berpadu ayu dengan ribuan rintik. Aku mengawat payung dengan jemari ragu. Haruskah aku melindunginya dari hujan, atau membiarkannya menari bebas bersama dunianya? Ternyata, pertembungan ini lebih dari sekadar hujan. Ya, caraku memahami kebahagiaan, keberanian, dan rasa ingin tahu, yang nyatanya tak pernah terjawab hingga cerita ini berakhir. Meski jam dinding kantor telah menunjukkan pukul lima sore, aku masih tenggelam dalam kesibukan. Data-data di layar laptop seperti tak ada habisnya. Jemariku menari lincah di atas keyboard, mengetik angka, kata, dan formula yang seakan berpadu dalam simfoni kerja. Sesekali aku mengalihkan pandangan, menyapa rekan kerja yang mulai meninggalkan ruangan. “Jangan ketiduran di kantor, Bari!” goda mereka sebelum menutup pintu. Aku hanya tersenyum kecil, lalu kembali fokus ke layar laptop. Proyek yang aku kerjakan ...
Read more »

Anak F

ditulis oleh
Gambar
  ---------------------------------- Seorang pemuda menapaki perjalanan baru yang penuh tantangan di tengah batas tipis antara harapan dan keraguan. Berteman si “sosok tegas”, ia belajar bahwa setiap perjuangan menyimpan arti. Di hadapan pintu kesempatan emas itu, ia berdiri dengan keyakinan, siap menempuh jalan yang belum tentu ramah, namun penuh janji bagi mereka yang berani melangkah. --------------------------------- Sejak tadi, matahari malu-malu mengintip dari sela gunung yang menjulang tinggi. Cahaya jingganya yang lembut berhasil menyiram halaman asrama yang masih lengang. Warna-warna hangat mulai merambat di langit, perlahan mengusir sisa-sisa gelap malam. Udara pagi menusuk kulit, dinginnya merayap hingga ke tulang. Embun yang menggantung di ujung dedaunan menciptakan kilauan kecil, laksana berlian tersentuh sinar matahari. Aroma khas pagi hari tercium, perpaduan antara tanah basah. Angin segar juga berembus lembut sedari tadi. Burung-burung kecil mulai bersiul pelan da...
Read more »

Nyanyian Lampu Merah

ditulis oleh
Gambar
  Mereka adalah dewa-dewi urban yang mengilhami decak kagum. Melanglang bak bedaya elit di tengah puak permata kota. Busana mereka adalah karya subtil marak yang merangkai kisah keberhasilan. Aksesoris mereka adalah mahakarya yang menyigi keterandalan tak tersuruk. Mobil-mobil glamor mereka adalah karya seni bergerak, sementara harta mereka licau dalam susunan logam dan kaca. Restoran-restoran mewah menjalir gelak dan alai-belai bisnis, mengisbatkan konformitas kemakmuran. Injeksi seteguk anggur meradukan eliksir keabadian yang mereka nikmati dengan hasrat ulung. Kehidupan para konglomerat di jantung perkotaan adalah sebuah kisah epik, terpatri dalam kebesaran batu nisan metropolis. Di balik jantung kota yang mengoja kehidupan orang-orang terpandang, ada kisah lain yang menyuruk dan sering kali terjerahak. Sudut-sudut jalanan yang nyenyat menjadi spektator panorama  anak-anak jalanan yang marak dalam santiran kesejahteraan, yang dipertontonkan para konglomerat. Mereka adalah p...
Read more »

Kotak Langganan Email

Nama

Email *

Pesan *