Percabangan dan Perulangan Pada Bahasa Pemograman Pascal #Part2

Hae :v

Welkom bek to my blog :v

Kali ini gwe mau ngasi materi bahasa pemrograman Pascal Perulangan sama percabangan :v

Diblog sebelumnya udah w kasih pengertian, penyajian,Struktur, kelebihan dan kelemahan,aturan dan lain-lain.

Cek di bawah sini buat yang belum tau part 1 nya :

http://newbiengenes.blogspot.com/2018/07/belajar-bahasa-pemrograman-pascal.html

Oke langsung saja tanpa basa-basi ea :v

==) PERCABANGAN

1. Algoritma Percabangan
    a) Operator logika
    b) Operator Perbandingan

Proses penyelesaian 1 / lebih kondisi untuk menentukan aksi selanjutnya disebut Logika Percabangan.

A ) Operator Logika
                   If (kondisi) Then
                             Aksi
                            End If
Contoh:
Siswa Dapat menabung apabila uang saku lebih dari 5 ribu

If ( Uang saku lebih dari 5 ribu ) Then
                 Dapat menabung
                            End if

Keterangan :
- Dapat menabung merupakan Aksi nya
- Uang saku lebih dari 5 ribu merupakan kondisi nya

B ) Operator Perbandingan
If(kondisi)Operator Logika(kondisi2)Then
                           Aksi
                          End if

A) 1 or 1 = 1
     True or True = True
B) 1 or 0 = 1
     True or False = True
C) 0 or 1 = 1
     False or True = True
D) 0 or 0 = 0
     False or False = False

==] PERCABANGAN 1 KONDISI

Inputkan angka
Apabila angka > 0
Maka angka termasuk bil positif

Program menentukan_bilangan_positif;
Uses crt;
Var bilangan:Integer;
Begin
Clrscr;
Write('Inputkan bilangan');
Readln(bilangan);
If(bilangan > 0) Then
Write ('termasuk bilangan positif');
Readln;
End.

==] PERCABANGAN 2 KONDISI

Inputkan suhu
Jika suhu > 20 maka termasuk panas
Jika suhu < 20 maka termasuk dingin

Program menentukan_suhu;
Uses crt;
Var suhu:integer;
Begin
Clrscr;
Write('inputkan suhu');
Readln (suhu);
If (suhu > 20) Then
Write('termasuk panas');
Else if(suhu < 20) Then
Write ('termasuk dingin');
Readln;
End.

==] PERCABANGAN 3 KONDISI
Inputkan angka apabila
Angka < 50 predikat C
Angka = 50 atau < 75 Predikat B
Angka = 75 atau > 75 Predikat A

Program menentukan_angka;
Uses crt;
Var angka:integer;
Begin
Clrscr;
Write ('inputkan angka');
Readln(angka);
If ( angka < 50 ) Then
Write('predikat C')
Else if ( angka = 50 ) or (angka < 75) Then
Write('predikat B')
Else if ( angka = 75) or (angka > 75) Then
Write('predikat A');
Readln;
End.

==] CASE
Program konversi_nama_bulan;
X:integer
Read(x){inputkan angka 1.....12}
Case x of
  1:write('Januari');
  2:write('Februari');
  3:write('Maret');
  4:write ('April');
  5:write ('Mei');
  6:write('Juni');
  7:write('Juli');
  8:write('Agustus');
  9:write('September');
10:write('Oktober');
11:write('November');
12:write('Desember');
Otherwise:write('Angka yang anda inputkan salah');
End.

==) PERULANGAN
=> Perulangan pada Pascal ada 3 :
1) For..Do
   - Menaik ( Ascending )
   - Menurun ( Descending )
2) While..Do
3) Repeat..Until

1) FOR..DO
    Digunakan untuk mengulang statement atau satu blok statement berulang kali
sejumlah yang ditentukan. 

Perulangan For..Do Ada 2 yaitu :
A) Menaik (Ascending)
              

For pencacah:=nilai_awal TO nilai_akhir Do

Aksi

Contoh kode program :

Program contoh_menaik;
Uses crt;
Var i:integer;
Begin
Clrscr;
For i:=1 to 19 do
Begin
Write(i,' ');
End;
Readln;
End.

B) Menurun ( Descending )

  

For pencacah:=nilai_akhir DOWNTO nilai_awal Do

Aksi

Contoh kode program:

program contoh_menurun;

uses crt;

var

i: integer;

begin

clrscr;

for i := 10  downto 0 do

begin

writeln('Hitung mundur: ',i);

end;

readln;

end.

2) WHILE..DO
Perulangan WHILE-DO tidak dilakukan jikakondisi tidak terpenuhi.
Kuncinya ada di condition

WHILE (condition) DO

begin

(kode program yang ingin diulang disini...)

(kode program untuk mengubah condition..)

end;

Contoh kode program :

Program contoh_while;

uses crt;

var i:integer;

begin

clrscr;

i:=2;

while i=20 do

begin

writeln('perulangan dengan while ke',i);

{i:=i+2;}

inc(i);

end;

readln;

end.

3) REPEAT..UNTIL

Repeat until adalah struktur perulangan yang dimana aksi dilakukan hingga kondisi berhenti terpehuni.

Bedanya, pada REPEAT UNTIL, pemeriksaan kondisi ini dilakukan di akhir perulangan, bukan di awal seperti WHILE DO.

Repeat

aksi

Until Kondisi 

Contoh kode program :

Program contoh_repeat;

uses crt;

var i:integer;

begin

clrscr;

i:=1;

repeat

begin

writeln('bilangan ke',i);

i:=i + 1;

end;

until i=15;

readln;

end.

Sekian tutorial w tentang Percabangan dan perulangan pada pascal.

Setelah ini w mau buat tutorial Bahasa pemograman pascal dengan Array . . .

Semoga tutorial ini bermanfaat dan jangan lupa tinggalkan komentar di bawah ea biar rame kolom komentarnya :v