2 Pernyataan Bercabang Dalam Pascal

Ada 2 pernyataan bercabang di dalam pascal yaitu:
1. Pernyataan if
2. Pernyataan case-of

Pernyataan "if"

Diagram alir pernyataan if

Pernyataan if-then

1. Program Pernyataan_if_then;
2. Uses crt;
3. Var nilai   : integer;
4. Mhs,ket : string;
5. Begin
6.     Clrscr;
7.     Writeln(' Nilai ujian mahasiswa');
8. Writeln;
9.     Write(' Masukkan Nama mahasiswa ? ');
10. Readln(mhs);
11.     Write(' Masukkan nilai ujian ? ');
12. Readln(nilai);ket:='tidak lulus';
13. If nilai >= 60 then ket:='Lulus';
14.     Writeln;
15. Writeln('Nama Mahasiswa = ',mhs,",ket);readln
16. End.

Program 6.1. Pernyataan if-then.

Jalankan program 6.1 ini! Input nilai yang lebih besar atau sama dengan dari 60 dan input nilai kurang dari 60, perhati-kan hasilnyal. Jika pernyataan ket:='tidak lulus' dihapus, dengan cars yang sama seperti di atas, bagaimana perbedaan hasilnya!
Kemudian ubahlah program tersebut menjadi:

1. Program Pernyataan_if_then;
2. Uses crt;
3. Var nilai   : integer;
4. Mhs,ket : string;
5. Begin
6.     Clrscr;
7.     Nilai t.j inn mahasiswa');
8.     Writeln;
9.     Write(' Masukkan Nama mahasiswa ? ');
10.     Readln(mhs);
11.     Write(' Masukkan nilai ujian ? ');
12.     Readln(nilai);
13.     If nilai >= 60 then ket:='Lulus';
14.     If nilai < 60 then ket:='tidak Lulus';
15.     Writeln;
16.     Writeln('Nama Mahasiswa = ',mhs,",ket);readln
17. End.

Jalankan program 6.1 ini! Input nilai yang lebih besar atau sama dengan dari 60 dan input nilai kurang dari 60, perhati-kan hasilnyal. Kemudian ubahlah program tersebut menjadi:

1. Program Pernyataan_if_then;
2. Uses crt;
3.     Var nilai   : integer;
4. Mhs : string;
5. P   : char;
6. Begin
7.     Clrscr;
8.     Writeln(' Nilai ujian mahasiswa');
9.     Writeln;
10.     Write(' Masukkan Nama mahasiswa ? ');
11.     Readln(mhs);
12.     Write(' Masukkan nilai ujian ? ');
13.     Readln(nilai);
14.     If nilai >= 85 then p:='A';
15.     If nilai >= 75 then p:='B';
16.     If nilai >= 60 then p:='C';
17.     If nilai >= 50 than p:='D';
18.     If nilai <50 then p:='E';
19.     Writeln('Nama Mahasiswa = ',mhs,' Nilainya ',p);readln
20. end.

Jalankan program 6.1 ini! Input dengan nilai 86,78,64,56,dan 40 perhatikan hasilnyal.

Pernyataan if-then-else 

1. Program Pernyataan_if_then_else;
2. Uses crt;
3. Var nilai   : integer;
4. Mhs,ket : string;
5. Begin
6.     Clrscr;
7.     Writeln(' Nilai ujian mahasiswa');
8.     Writeln;
9.     Write(' Masukkan Nama mahasiswa ? ');
10.     Readln(mhs);
11.     Write(' Masukkan nilai ujian ? ');
12.     Readln(nilai);
13.     If nilai >= 60 then ket:='Lulus' Else ket:='tidak Lulus';
14.     Writeln;
15.     Writeln('Nama Mahasiswa = ',mhs,' ,ket);readln
16. End.

Program 6.2. Pernyataan if-then-else.

Jalankan program 6.2 ini! Input nilai yang lebih besar atau sama dengan dari 60 dan input nilai kurang dari 60, perhatikan hasilnyal. Kemudian ubahlah program tersebut menjadi:

1. Program Pernyataan_if_then_else;
2. Uses crt;
3. Var nilai   : integer;
4. Mhs : string;
5. P   : char;
6. Begin
7.     Clrscr;
8.     Writeln(' Nilai ujian mahasiswa');
9.     Writeln;
10.     Write(' Masukkan Nama mahasiswa ? ');
11.     Readln(mhs);
12.     Write(' Masukkan nilai ujian ? ');
13.     Readln(nilai);
14.     If nilai >= 85 then p:='A' else
15.         If nilai >= 75 then p:='B' else
16.             If nilai >= 60 then p:='C' else
17.             If nilai >= 50 then p:='D' else
18.                 If nilai <50 then p:='E';
19.     Writeln('Nama Mahasiswa = ',mhs,' Nilainya ',p))readln
20. end.

Jalankan program 6.2 ini! Input dengan nilai 86,78,64,56, dan 40 perhatikan hasilnyal.

Pernyataan if-then-else tersarang

1. Program Tahun_kabisat;
2. Uses crt;
3. Var ThKabisat : boolean;
4. Th  : Integer;
5. Begin
6.     Clrscr;
7.     Writeln(' Tahun Kabisat');
8.     Repeat
9.     Writeln;
10.         Write(' Tahun ? ( 0= selesai) ');
11.         Readln(th);
12.         If th > 0 then
13.         Begin
14.             If th mod 100 = 0
15.                 Then ThKabisat  (th mod 400) = 0
16.                 Else thkabisat := (th mod 4) = 0;
17.             If thKabisat
18.                 Then writeln('tahun ',th,' adalah tahun kabisat ')
19.                 Else writeln('tahun ',th,   bukan tahun kabisat ')
20.             End
21.             Until th=0
22. End.

Program 6.3. Pernyataan if-then-else tersarang.

Jalankan program 6.3 ini! Input sembarang tahun dan perhatikan hasilnyal.

Pernyataan if-then-else dengan kondisi 

1. Program Pernyataan_if_then_dengan_kondisi;
2. Uses crt;
3. Var nilai   : integer;
4. Mhs : string;
5. P   : char;
6. Begin
7.     Clrscr;
8.     Writeln(' Nilai ujian mahasiswa');
9.     Writeln;
10.     Write(' Masukkan Nama mahasiswa ? ');
11.     Readln(mhs);
12.     Write(' Masukkan nilai ujian ? ');
13.     Readln(nilai);
14.     If (nilai<=100) and (nilai >= 85) then p:='A';
15.     If (nilai<85) and (nilai >= 75) then p:='B';
16.     If (nilai<75) and (nilai >= 60) then p:='C';
17.     If (nilai<60) and (nilai o= 50) then p:='D';
18.     If (nilai<50) and (nilai>=0) then p:='E';
19.     Writeln('Nama Mahasiswa = ',mhs,' Nilainya ',p);readln
20. End.

Jalankan program 6.4 ini! Input dengan nilai 86,78,64,56,dan 40 perhatikan hasilnyal. Apakah sesuai dengan kondisinya! Bandingkan dengan program-program sebelumnya.

Kemudian ubahlah program tersebut menjadi:

1. Program Pernyataan_if_then_else_dengan_kondisi; Uses crt;
2. Var nilai   : integer;
3. Mhs : string;
4. P   : char;
5. Begin
6.     Clrscr;
7.     Writeln(' Nilai ujian mahasiswaa');
8.     Writeln;
9.     Write(' Masukkan Nama mahasiswa ? ');
10.     Readln(mhs);
11.     Write(' Masukkan nilai ujian ? ');
12.     Readln(nilai);
13.     If (nilai<=100) and (nilai >= 85) then p:='A' else
14.         If (nilai<85) and (nilai >= 75) then p:='B' else
15.             If (nilai<75) and (nilai >= 60) then    else If (nilai<60) and (nilai >= 50) then p:='D' else If (nilai<50) and (nilai >=0) then p:='E'; Writeln('Nama Mahasiswa = ',mhs,' Nilainya ,p);readln
16. End.

Jalankan program 6.4 ini! Input dengan nilai 86,78,64,56,dan 40 perhatikan hasilnyal. Apakah sesuai dengan kondisinya! Bandingkan dengan program-program sebelumnya. 

Pernyataan for-to/downto-do Dalam Pascal

Khusus untuk pernyataan for-to/downto-do tahap kenaikan/penurunannya satu.

Pernyataan for-to-do

Diagram air pernyataan perulangan for-to-do

1. Program Putaran_for_to_do;
2. Uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:.1 to 5 do
7. Writeln('Amik');
8. Writeln('Sinar Nusantara');
9. Writeln('Solo');
10. Readln

Putaran for-to-do

Jalankan program 5.1 ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak?

Kemudian ubahlah program tersebut menjadi:

1. Program Putaran_for_to_do;
2. Uses crt;
3. Var i:integer;
4. begin
5.     Clrscr;
6.     For i:=1 to 5 do
7.     Writeln('Amik');
8.     Writeln('i= ',i);
9.     writeln('Sinar Nusantara');
10.     Writeln('Solo');
11.     Readln
12. End.

Jalankan program 5.1 ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan nilai variabel i !

Kemudian ubahlah susunan penulisannya pada program tersebut menjadi:

1. Program Putaran_for_to_do;
2. Uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:=1 to 5 do
7.     Writeln('Amik');Writeln('i=',i);Writeln('Sinar Nusantara');
8.     Writeln('Solo');
9.     Readln
10. lad.

Jalankan program 5.1 ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan nilai variabel i ! Apakah ada perbedaannya, jelaskan (diskusikan dengan teman anda).

Baca juga:

• Pernyataan Berulang Dalam Pemograman Pascal
• Deklarasi Konstanta Dan Variabel Dalam Pascal
• Pernyataan repeat-until Dalam Pascal

Kemudian ubah lagi program tersebut menjadi:

1. Program Putaran_for_to_do;
2. Usss crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:=1 to 5 do
7.     begin
8.         writeln('Amik');
9.         Writeln('i= ',i);
10.         Writeln('Sinar Nusantara');
11.     rad;
12.     Writeln('Solo');
13.     Readln
14. End.

Jalankan program 5.1 ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan nilai i !

Kemudian ubah lagi program tersebut menjadi:

1. Program Putaran_for_to_do;
2. Uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:=1 to 5 do
7.     begin
8.         Writeln('Amik');
9.         Writeln('Sinar Nusantara');
10.     End;
11.     Writeln('i= ',i);
12.     Writeln('Solo');
13.     Readln
14. End.

Jalankan program 5.1 ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan nilai i !
Program 5.2. berikut ini dari program 5.1. yang ditambah dengan variabel k:

1. Program Putaran_for_to_do_dengan_variabel_kounter;
2. Uses crt;
3. Var k,i:integer;
4. Begin
5.     Clrscr;k:=0;
6.     For i:=1 to 5 do
7.     begin
8.         Writeln('Amik');
9.         Writeln('i= ',i);
10.         Writeln('Sinar Nusantara');
11.     End;
12.     K:=k+1;
13.     WritelnVk= ',k);
14.     Writeln('Solo');
15.     Readln
16. End.

Program 5.2. Putaran for-to-do dengan kounter k. Jalankan program 5.2 ini! Berapa kali kata Amik, Sinar Nu-santara dan Solo dicetak? Perhatikan nilai variabel i dan k !

Kemudian ubahlah program 5.2. tersebut menjadi:

1. Program Putaran_for_to_do_dengan_varibel_kounter;
2. Uses crt;
3. Var k,i:integer;
4. Begin
5.     Clrscr;k:=0;
6.     For i:=1 to 5 do
7.     begin
8.         Writeln('Amik');
9.         writeln('i= '.1):
10.         Writeln('Sinar Nusantara');
11.         K:=k+1;
12.     End;
13.     writeln('k= ',k);
14.     Writeln('Solo');
15.     Readln
16. End.

Jalankan program 5.2 ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dan variabel i,k dicetak? Perhatikan nilai variabel i dan k ! Diskusikan dengan teman anda ten-tang perbedaan nilai variabel i clan k ini !

Kemudian ubahlah program 5.2. tersebut menjadi:

1. Program Putaran_for_to_do_dengan_variabel_kounter:
2. Uses crt;
3. Var k,i:integer;
4. Begin
5.     Clrscr;k:=0;
6.     For i:=1 to 5 do
7.     begin
8.         Writeln('Amik');
9.         Writeln('i= ',i);
10.         Writeln('Sinar Nusantara');
11.         K:=k+1;
12.         Writeln('k= ',k);
13.         Writeln('Solo');
14.     End;
15.     Readln
16. End.

Jalankan program 5.2 ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dan variabel i, k dicetak? Perhatikan nilai variabel i dan k ! Diskusikan dengan teman anda ten-tang perbedaan nilai variabel i dan k ini !

Gunakan program 5.3. ini untuk mencoba mengkounter variabel yang digunakan pada for-to-do:

1. Program Mengkounter_Putaran_for_to_do;
2. Uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:=1 to 10 do
7.     begin
8.         Write('Amik');
9.         Write('Sinar Nusantara');
10.         Writeln('Solo');
11.     End;
12.     i:=1+1;
13.     Writeln('i= ',i);
14.     Readln
15. End.

Program 5.3. Mengkounter putaran for-to-do.

Sekarang jalankan program 5.3. ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak?

Perhatikan hasil program ini terutama nilai variabel > ! Kemudian ubah program tersebut sehingga menjadi:

1. Program Mengkounter_Putaran_f or_to_do;
2. Uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:=1 to 10 do
7.     begin
8.         Write('Amik');
9.         Write('Sinar Nusantara');
10.         Writeln('Solo');
11.         i:=i+1;
12.     End;
13.     Writeln('i= ',i);
14.     Readln
15. End.

Sekarang jalankan program 5.3. ini! Perhatikan hasil program ini terutama nilai variabel i !

Bandingkan dengan program-program sebelumnya ! Diskusikan dengan teman andal.

Pernyataan for-downTo-do

Pernyataan for-downTo-do merupakan putaran dengan koun-ter yang menurun (penurunannya satu) berarti dari nilai awal paling tinggi ke nilai akhir paling rendah.

1. Program Putaran_for_downto_do;
2. uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;
6.     For i:=5 downTo 1 do
7.     begin
8.         Writeln('Amik');
9.         Writeln('i= ',1);
10.         Writeln('Sinar Nusantara');
11.         Writeln('Solo');
12.     Ends
13.     Writeln('i= ',i);
14.     Readln
15. End.

Program 5.4. Mengkounter putaran for-downTo-do.

Sekarang jalankan program 5.4. ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan hasil program ini terutama nilai variabel i !

Kemudian ubah program tersebut sehingga menjadi:

1. Program Putaran_for_downto_do_dengan_variabel_kounter:
2. Uses crt;
3. Var k, i:integer;
4. Begin
5.     Clrscr;k:=0;
6.     For i:-5 downTo 1 do
7.     begin
8.         Writeln('Amik');
9.         Writeln('i= ',i);
10.         Writeln('Sinar Nusantara');
11.         Writeln('Solo');
12.         K:=succ(k);
13.     End;
14.     Writeln('i= ',i);
15.     Writeln('k= ',k);
16.     Readin
17. End.

Sekarang jalankan program 5.4. ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan hasil program ini terutama nilai variabel i dan k !

Kemudian ubah lagi program tersebut sehingga menjadi:

1. Program Mengkounter_putaran_for_downTo_do;
2. Uses crt;
3. Var i:integer;
4. Begin
5.     Clrscr;i:=0;
6.     For i:=10 downTo 1 do
7.     begin
8.         Writeln('Amik');
9.         Writeln('i= ',i);
10.         Writeln('Sinar Nusantara');
11.         Writeln('Solo');
12.         I:=i+3
13.     End;
14.     Writeln('i= ',i);
15.     Readln
16. End.

Sekarang jalankan program 5.4. ini! Berapa kali kata Amik, Sinar Nusantara dan Solo dicetak? Perhatikan hasil program ini terutama nilai variabel i ! Diskusikan dengan teman anda mengapa hasilnya demikian!