Program IF di dalam Pascal

Contoh kode program untuk perbandingan Nilai1 dengan Nilai2 :

USES CRT;
VAR
          Nilai1,Nilai2:Byte;
BEGIN
          CLRSCR;
          Write('Masukkan Nilai1:');Readln(Nilai1);
          Write('Masukkan Nilai2:');Readln(Nilai2);
          IF Nilai1>Nilai2 Then
                    Write('Nilai1 lebih besar dari Nilai2')
                              Else
                    Write('Nilai2 lebih besar dari Nilai1');
Readkey;
End.

Contoh tampilan :
Masukkan Nilai1:50
Masukkan Nilai2:100
Nilai2 lebih besar dari Nilai1

---

Contoh soal :
Ada tes masuk jurusan APH
Tes 1 : Jika tinggi>150cm maka masuk ke tes 2, jika tidak maka ditolak.
Tes 2 : Jika nilai MTK>75 maka diterima, jika tidak maka ditolak.

Contoh program :

USES CRT;
VAR
          Tinggi_badan,Nilai_MTK:Byte;
BEGIN
          CLRSCR;
          Write('Masukkan Tinggi badan=');Readln(Tinggi_badan);
          IF Tinggi_badan<150 Then
                    Write('Ditolak')
          Else
                    Write('Masukkan Nilai MTK=');Readln(Nilai_MTK);
                    IF Nilai_MTK>75 Then
                              Write('Diterima')
                    Else
                              Write('Ditolak');
Readkey;
End.

Contoh tampilan program :
Masukkan Tinggi badan=156
Masukkan Nilai MTK=90
Diterima

---

Syarat:
Nilai=75 maka lulus bersyarat
Nilai>75 maka lulus
Nilai<75 maka remidi

Contoh program :

USES CRT;
VAR
          Nama:String;
          Nilai:Byte;
BEGIN
          Write('Nama=');Readln(Nama);
          Write('Nilai=');Readln(Nilai);
          Writeln('Nama=',Nama);
          IF Nilai=75 Then
                    Writeln('Dinyatakan=Lulus bersyarat')
          Else
          IF Nilai>75 Then
                    Writeln('Dinyatakan=Lulus')
          Else
                    Writeln('Dinyatakan=Remidi');
Readkey;
End.

Contoh tampilan program :
Nama=Syarifah Aini
Nilai=98
Nama=Syarifah Aini
Dinyatakan=Lulus

---

Syarat:
Nilai>80 maka sangat baik
Nilai>60 maka baik
Nilai>50 maka cukup
Nilai>0 maka kurang

Contoh kode program :

USES CRT;
VAR
          Nilai:Byte;
          Nama:String;
 BEGIN
          Write('Nama=');Readln(Nama);
          Write('Nilai=');Readln(Nilai);
          Writeln('Nama saya=',Nama);
          IF Nilai>80 Then
                   Writeln('Keterangan=Sangat Baik')
          Else
          IF Nilai >60 Then
                   Writeln('Keterangan=Baik')
          Else
          IF Nilai>50 Then
                    Writeln('Keterangan=Cukup')
          Else
                    Writeln('Keterangan=Kurang');
Readkey;
End.

Contoh tampilan :
Nama=Syarifah Aini
Nilai=99
Nama saya=Syarifah Aini
Keterangan=Sangat Baik

---

Contoh soal :
Tampilkan tampilan seperti berikut :
Usia... > usia...
Usia... = usia...
Usia... < usia...

Contoh program :

USES CRT;
VAR
          Nama_1:String;
          Usia_1:Byte;
          Nama_2:String;
          Usia_2:Byte;
BEGIN
          Write('Nama 1=');Readln(Nama_1);
          Write('Usia 1=');Readln('Usia_2);
          Write('Nama 2=');Readln(Nama_2);
          Write('Usia 2=');Readln(Usia_2);
          IF Usia_1>Usia_2 Then
                    Writeln('Keterangan=Usia ',Nama_1,' > usia ',Nama_2)
          Else
          IF Usia_1=Usia_2 Then
                    Writeln('Keterangan=Usia ',Nama_1,' = usia ',Nama_2)
          Else
                    Writeln('Keterangan=Usia ',Nama_1,' < usia ',Nama_2);
Readkey;
End.

Contoh tampilan :
Nama 1=Okazaki
Usia   1=17
Nama 2=Syarifah
Usia   2=16
Keterangan=Usia Okazaki > usia Syarifah

Nama : Redho Syahroni

NIM : 201712038

Kelas : Regler A

Share :

Tweet

✚

Related Post