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. 

Share this

Author : admin

Related Posts