Contoh Program Pascal dalam Kehidupan: August 2019

1. Program Persegi Panjang
{* PROGRAM Persegi_Panjang
DEKLARASI
p,l,ls : Real
ALGORITMA :
Read(p)
Read(l)
ls <== p*l
Write(ls)
*}
PROGRAM Persegi_Panjang;
Uses Crt;
Var         ls    :Real;
               L    :Real;
               P    :Real;
Begin
Clrscr;
Write(‘Panjang:’);Readln(p);
Write(‘Lebar:’);Readln(l);
ls:=p*l;
Writeln(‘Luas Persegi Panjang :’,ls:2:0);
Readln;
End.

2. Program Kubus
{*PROGRAM KUBUS
DEKLARASI
s,l : Real;
Algoritma:
Read(s)
L <== s*s*s*s
Write(l)
*)
Program kubus;
Uses Crt;
Var                  s,l: Real;
Begin
Clrscr;
Write(‘Sisi Kubus:’);Readln(S);
L:=s*s*s*s;
Writeln(‘Luas Kubus:’,L:2:2);
Readln;
End.

3. Program Jajargenjang
{*PROGRAM JAJARGENJANG
DEKLARASI
a,t,lj: Real
ALGORITMA:
   Read(a)
   Read(t)
   Read(lj)
   Lj <== a*t
*}
Program JAJARGENJANG;
Uses Crt;
Var       a:   Real;
      t:   Real;
             lj:   Real;
Begin
Clrscr;
Write(‘Alas   :’);Readln(a);
Write(‘Tinggi   :’);Readln(t);
Lj := a*t;
Writeln(‘Luas JAJARGENJANG       :’,Lj:2:2);
Readln;
End.

4. Program Segitiga
{*PROGRAM SEGITIGA
DEKLARASI
a,t,2,ls :Integer
ALGORITMA
           Read(a)
           Read(t)
           Ls <== a*t/2
           Write(Ls)
*}
Program Segitiga;
Uses Crt;
Var    a:Integer;
    t:Integer;
    ls:Real;
Begin
Clrscr;
    Write(‘Alas      :’);Readln(a);
    Write(‘Tinggi       :’);Readln(t);
    Ls:=(a*t)/2;
    Writeln(‘Luas Segitiga:   ‘,Ls:2:2);
    Readln;
End.

5. Program Trapesium
{*PROGRAM TRAPESIUM
DEKLARASI
        a,b,t,l:Real
ALGORITMA:
        Read(a)
        Read(b)
        Read(t)
        L <== (a+b)*t/2
        Write(l)
*}
PROGRAM TRAPESIUM;
Uses Crt;
Var            a:Real;
          b:Real;
                  t:Real;
          l:Real;
Begin
Clrscr;
Write(‘Sisi Sejajar Pertama:     ’);Readln(a);
Write(‘Sisi Sejajar Kedua:        ’);Readln(b);
Write(‘Tinggi:’);Readln(t);
l:=(a+b)*t/2;
Writeln(‘Luas TRAPESIUM:        ’,l:2:2);
Readln;
End.

6. Program Balok
{*PROGRAM BALOK
DEKLARASI
       P,l,t,v:Real
ALGORITMA
           Read(p)
       Read(l)
       Read(t)
       V <== p*l*t
       Write(v)
*}
Program Balok;
Uses Crt;
Var   p:Real;
    l:Real;
    t:Real;
    v:Real;
Begin
Clrscr;
Write(‘Panjang:       ’);Readln(p);
Write(‘Lebar:          ’);Readln(l);
Write(‘Tinggi:         ’);Readln(t);
v:=p*l*t;
Writeln(‘Volume:   ’,v:2:0);
Readln;
End.

7. Program Nilai
{*PROGRAM NILAI
DEKLARASI
        NA: Real;
        NH: Char;
ALGORITMA:
        Read(NA)
        Read(NH)
        IF NA > = 86 Then NH:=’A’
        ELSE IF NA>=71 Then NH:=’B’
        ELSE IF NA>=56 Then NH:=’C’
        ELSE IF NA>=41 Then NH:=’D’
        ELSE NH:=’E’
*}
Program Nilai;
Var             NA:Real;
          NH:Char;
Begin
Write(‘Input Nilai Angka:’);Readln(NA);
IF     NA>= 86 Then
NH:=’A’
ELSE IF     NA>=71 Then
    NH:=’B’
ELSE IF     NA>=56 Then
    NH:=’C’
ELSE IF    NA>=41 Then
    NH:=’D’
ELSE
NH:=’E’;
Writeln(‘Nilai Huruf:’,NH);
Readln;
End;
End.

8. Program Menghitung Detik Menit
{*PROGRAM MENGHITUNG_DETIK_MENIT
DEKLARASI
jam,menit,i,hasil,detik,hasildetik: Integer;
ALGORITMA:
    Read(jam)
    Read(menit)
    Read(i)
    Read(hasil)
    Read(detik)
    Read(hasil detik)
    hasil <== jam*i
    hasildetik <== jam*detik
    Write(hasil)
    Write(hasildetik)
*}
Program MENGHITUNG_DETIK_MENIT;
Uses Crt;
Var jam,menit,i,hasil,detik,hasildetik :Integer;
Begin
Clrscr;
Write(‘Masukan Nilai Waktu/Jam :’);Readln(jam);
I:= 60;
Detik:= 3600;
IF jam = 1 Then
Begin
hasil:= jam*I;
hasildetik:= jam*detik;
Write(jam,’jam sama dengan’,hasil,’menit dan’,hasildetik,’detik’);
End
ELSE
Begin
hasil:=jam*60;
hasildetik:=jam*detik;
Writeln(jam,’jam sama dengan’,hasil,’menit dan’,hasildetik,’detik’);
Readln;
End;
End.

9. Program Persegi
{*PROGRAM PERSEGI
DEKLARASI
        s:Real
   l:Real
ALGORITMA:
    Read(s)
    l <== s*s
    Write(l)
*}
Program PERSEGI;
Uses Crt;
Var       s:Real;
    l:Real;
Begin
Clrscr;
Write(‘Sisi :       ‘);Readln(s);
l:=s*s;
Writeln(‘Luas Persegi :’,l:2:0);
Readln;
End.

10. Program Keliling Persegi Panjang
{*PROGRAM KELILING PERSEGI_PANJANG
DEKLARASI
    p,l,K:Real
ALGORITMA:
    Read(p)
    Read(l)
    K <== 2*(p+l)
    Write(K)
*}
PROGRAM KELILINGPERSEGI_PANJANG;
Uses Crt;
Var p,l,K:Real;
Begin
Clrscr;
Write(‘Panjang   :       ‘);Readln(p);
Write(‘Lebar      :       ‘);Readln(l);
K:=2*(p+l);
Writeln(‘Keliling Persegi Panjang   :’,K:2:0);
Readln;
End.

11. Program Luas Belah Ketupat
{*PROGRAM LUASBELAH_KETUPAT
DEKLARASI
         d1,d2:Real
         Ls:Real
ALGORITMA
        Read(d1)
        Read(d2)
        Ls <== (d1*d2)/2
        Write(Ls)
*}
PROGRAM LUASBELAH_KETUPAT;
Uses Crt;
Var        d1,d2,Ls:Real;
Begin
Clrscr;
Write(‘Diagonal 1 :            ‘);Readln(d1);
Write(‘Diagonal 2 :            ‘);Readln(d2);
Ls:=(d1*d2)/2;
Writeln(‘Luas Belah Ketupat:        ‘,Ls:2:0);
Readln;
End.

12. Program Keliling Belah Ketupat
{*PROGRAM KELILINGBELAH_KETUPAT
DEKLARASI
        s,K:Real
ALGORITMA:
         Read(s)
         K <== 4*s
         Write(K)
*}
Program KELILING_BELAH_KETUPAT;
Uses Crt;
Var           s,K:Real;
Begin
Clrscr;
Write(‘Sisi       :       ‘);Readln(s);
K:=4*s;
Writeln(‘Keliling Belah Ketupat:   ‘,K:2:0);
Readln;
End.

13. Program Luas Layang-Layang
{*PROGRAM LUAS_LAYANGLAYANG
DEKLARASI
    d1,d2,Ls:Real
ALGORITMA:
    Read(d1)
    Read(d2)
    Ls <== (d1*d2)/2
    Write(Ls)
*}
Program LUAS_LAYANGLAYANG:
Uses Crt;
Var           d1,d2,Ls:Real;
Begin
Clrscr;
Write(‘Diagonal 1   :       ‘);Readln(d1);
Write(‘Diagonal 2   :       ‘);Readln(d2);
Ls:=(d1*d2)/2;
Writeln(‘Luas Layang-Layang :   ‘,Ls:2:0);
Readln;
End.

14. Program Keliling Layang-Layang
{*PROGRAM KELILING_LAYANGLAYANG
DEKLARASI
    a,b,K:Real;
ALGORITMA:
    Read(a)
    Read(b)
    K <== 2*(a+b)
    Write(K)
*}
PROGRAM KELILING_LAYANGLAYANG;
Uses Crt;
Var            a,b,K:Real;
Begin
Clrscr;
Write(‘Sisi Pertama        :    ‘);Readln(a);
Write(‘Sisi Kedua     :    ‘);Readln(b);
K:=2*(a+b);
Writeln(‘Keliling Layang-Layang    :    ‘,K:2:0);
Readln;
End.

15. Program Keliling Segitiga
{*PROGRAM KELILINGSEGITIGA
DEKLARASI
a,b,c,K:Real
ALGORITMA:
    Read(a)
    Read(b)
    Read(c)
    K <== a+b+c
    Write(K)
*}
Program KELILINGSEGITIGA;
Uses Crt;
Var       a,b,c,K:Real;
Begin
Clrscr:
Write(‘Sisi Pertama       :’);Readln(a);
Write(‘Sisi Kedua         :’);Readln(b);
Write(‘Sisi Ketiga         :’);Readln(c);
K:=a+b+c;
Writeln(‘Keliling Segitiga       :       ‘,K:2:0);
Readln;
End.

16. Program Bilangan X
{*PROGRAM Bilangan_X
DEKLARASI
        X1,X2 :Array[0..100]of Real
         N,A,Brs :Integer
         X3,X4,XN,TX :Real
ALGORITMA:
    Read(N)
    For A <== 0 To N-1 Do
Begin
Writeln(Data ke)
Readln(X1[A],X2[A])
End
Writeln(Daftar Bilangan)
Writeln(---      ---      ----   -----    -------     ----)
Writeln(No     X1      X2    X3       X4       XN
Writeln(---     ----        ----   ------    ------      ----)
Brs <=== 5
For A <== 0 To N-1 Do
Begin
Write(A+1,X1[A],X2[A])
X3 <== X1[A]+X2[A]
Write(X3)
X4 <== X2[A]+X3
Write(X4)
XN <== X1[A]+X2[A]+X3+X4
Write(XN)
End
Writeln(------------------------------------)
TX:=TX+XN
Write(TX)
*}
Program Bilangan_X;
Uses Crt;
Var   X1,X2   :Array[0..100]of Real;
N,A,Brs :Integer;
X3,X4,XN,TX : Real;
Begin
Clrscr;
Write(‘Banyak Data :’);Readln(N);
For A:=0 To N-1 Do
Begin
Writeln;
Writeln(‘Data ke:’,A+1);
Writeln;
Write(‘Nilai X1   :’);Readln(X1[A]);
Write(‘Nilai X2   :’);Readln(X2[A]);
End;
Clrscr;
Writeln(‘Daftar Bilangan’);
Writeln(‘-- -----   ------ ------   ------   -----‘);
Writeln(No X1    X2        X3      X4     XN’);
Writeln(‘-- -----   ------ ------   ------   -----‘);
Brs:=5;
TX:=0;
For A:0 To N-1 Do
Begin
GotoXY(2,Brs+A);Writeln(A+1,’.’);
GotoXY(9,Brs+A);Writeln(X1[A]:1:0);
GotoXY(17,Brs+A);Writeln(X2[A]:1:0);
X3:=X1[A]+XA[A];
GotoXY(25,Brs+A);Writeln(X3:1:0);
X4:=X2[A]+X3;
GotoXY(33,Brs+A);Writeln(X4:1:0);
XN:=X1[A]+X2[A]=X3+X4;
GotoXY(41,Brs+A);Writeln(XN:1:0);
TX:=TX+XN;
End;
Writeln(‘-------------------------------------------------‘);
Writeln(‘Total Nilai X=               ‘,TX:1:0);
Readln;
End.

17. Program Tebak Angka
{*PROGRAM TEBAKANGKA
DEKLARASI
           angka,tebakan: Integer
ALGORITMA:
           Read(angka)
           Read(tebakan)
           IF angka:tebakan Then
           Writeln(‘Selamat!,tebakan kamu benar.’)
           Else
           Writeln(‘Wakwawww,tebakan kamu salah.’)
*}
Program TEBAKANGKA;
Uses Crt;
Var       angka,tebakan: Integer;
Begin
Clrscr;
angka:=2;
Writeln(‘Coba tebak angka antara 1 sampai 10’);Readln(tebakan);
Begin
IF angka=tebakan then
Writeln(‘Selamat!,tebakan kamu benar.’)
Else
Writeln(‘Wakwawww,tebakan kamu salah.’)
End;
Readln;
End.

18. Program Irit Boros
{*PROGRAM IRIT_BOROS
DEKLARASI
        saku,peng,hasil:Integer
ALGORITMA:
    Read(saku)
    Read(peng)
    Read(hasil)
    IF hasil>=peng Then
    Writeln(‘sisa uang saku Anda per minggunya adalah:’,hasil,’artinya Anda adalah orang yang irit’)
    ELSE
    Writeln(‘sisa uang saku Anda per minggunya adalah:’,hasil,’artinya Anda adalah orang yang boros’)
*}
Program IRIT_BOROS
Uses Crt;
Var    saku,peng,hasil:Integer;
Begin
Clrscr;
Write(‘Jumlah uang saku Anda per minggu    :’);Readln(saku);
Write(‘Pengeluaran Anda per minggu :’);Readln(peng);
hasil:=saku-peng;
Begin
Clrscr;
Writeln(‘sisa uang saku Anda per minggunya adalah:    ‘,hasil,’    artinya Anda adalah orang yang irit’)
ELSE
Writeln(‘sisa uang saku Anda per minggunya adalah:    ‘,hasil,’
artinya Anda adalah orang yang boros’)
End;
Readln;
End.

19. Program Menghitung Usia
{*PROGRAM MENGHITUNG_Usia
DEKLARASI
nama:string
umur,TL:Integer
ALGORITMA:
Read(nama)
Read(TL)
Umur <== 2018-TL
Write(umur)
*}
Program MENGHITUG_Usia;
Uses Crt;
Var
   nama:String;
   umur,TL:Integer;
Begin
Clrscr;
Writeln(‘nama kamu siapa?’);Readln(nama);
Writeln(‘tahun lahir kamu?’);Readln(TL);
umur:=2018-TL;
Writeln(umur);
Readkey;
End.

20. Program Nilai Uang
{*PROGRAM Nilai Uang
DEKLARASI
       A   :Array[0..100]of Real
       X,N,Brs   :Integer
       M,I,S   :Real
ALGORITMA:
Read(N)
For X <== 0 To N-1 Do
Begin
Writeln(Data Ke)
Read(A[X])
End
Writeln(Daftar Nilai Mata Uang)
Writeln(--- -------------- ---------------   ---------------   ----------------)
Writeln(No AMERIKA MALAYSIA SINGAPURA INDONESIA)
Writeln(--- -------------- ---------------   ---------------   ----------------)
Brs <== 6
For X <== 0 To N-1 Do
Begin
Write(X+1,A[X])
M <== 1000*A[X]
Write(M)
S <== 100*A[X]
Write(S)
I <== 9000*A[X]
Write(l)
Endfor
*}
Program Nilai_Uang;
Uses Crt;
Var    A:Array[0..100]of Real;
          X,N,Brs:Integer;
          M,I,S:Real;
Begin
Clrscr;
Write(‘Banyak Data   :’);Readln(N);
For X:=0 To N-1 Do
Begin
Writeln;
Writeln(Data Ke       :’,X+1);
Writeln;
Write(‘Nilai Uang(Dollar) :’);Readln(A[X]);
End;
Clrscr;
Writeln(‘Daftar Nilai Mata Uang’);
Writeln(‘--- --------------- --------------- ----------------- ----------------‘);
Writeln(‘No AMERIKA MALAYSIA SINGAPURA INDONESIA’);
Writeln(‘--- --------------- --------------- ------------------ ----------------‘);
Brs:=6;
For X:=0 To N-1 Do
Begin
GotoXY(2,Brs+X);Writeln(X+1);
GotoXY(5,Brs+X);Writeln(‘US.’,A[X]:2:0);
M:=1000*A[X];
GotoXY(13,Brs+X);Writeln(‘RM.’,M:2:0);
S:=100*A[X];
GotoXY(23,Brs+X);Writeln(‘DS.’,S:2:0);
I:=9000*A[X];
GotoXY(31,Brs+X);Writeln(‘Rp.’,I:2:0);
End;
Writeln(‘--------------------------------------------------------‘);
Readln;
End.

21. Program IF Kombinasi
{*PROGRAM IF_KOMBINASI
DEKLARASI
    angka1,angka2:Integer
ALGORITMA:
    Read(angka1)
    Read(angka2)
    IF Not (angka1>3) and Or (angka2>4) Then
    Begin
    Writeln(‘Anda memasukkan nilai angka pertama >3 dan kedua >4’)
    End
*}
Program IF_KOMBINASI;
Uses Crt;
Var        angka1,angka2:Integer;
Begin
Clrscr;
Writeln(‘Masukkan angka pertama:    ‘);Readln(angka1);
Writeln(‘Masukkan angka kedua   :    ‘);Readln(angka2);
IF {Not} (angka1>3) and {Or} (angka2>4) Then
Begin
Writeln(‘Anda memasukkan nilai angka pertama >3 dan kedua >4’)
End;
Readln;
End.

22. Program Penentuan Harga Buah
{*PROGRAM PENENTUANHARGABUAH
DEKLARASI
           Berat,harga,hargaperkg:Integer
           Kualitas:Char
ALGORITMA:
           Read(Berat)
           Read(harga)
           Read(hargaperkg)
           Read(kualitas)
           IF kualitas
           A <== hargaperkg=1000
           B <== hargaperkg=750
           C <== hargaperkg=500
           ELSE
           Begin
           Hargaperkg <== 0
           Writeln(‘Salah Input’)
           End
           Harga <== hargaperkg*berat
           Writeln(‘Harga per Kg    :Rp.’,hargaperkg)
           Writeln(‘Harga Total       :Rp.’,harga)
           End
*}
PROGRAM PENENTUANHARGABUAH;
Uses Crt;
Var       Berat,harga,hargaperkg:Integer;
       Kualitas:Char;
Begin
Clrscr;
Write(‘Masukan Kualitas Buah[A/B/C]:’);Readln(kualitas);
Write(‘Berapa Kg yang dibeli?’);Readln(berat);
Case kualitas of
‘A’,’a’:hargaperkg:=1000;
‘B’,’b’:hargaperkg:=750;
‘C’,’c’:hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;
Harga:=hargaperkg*berat;
Writeln(‘Harga per Kg   :   Rp.’,hargaperkg);
Writeln(‘Harga Total       :   Rp.’,harga);
Readln;
End.

23. Program Kalkulator
{*PROGRAM KALKULATOR
DEKLARASI
        angka1,angka2,hasil:Real
        operasi:Char
ALGORITMA:
            Read(angka1)
            Read(angka2)
            Read(operasi)
            Case Operasi of
            +:hasil:=angka1+angka2
            -:hasil:=angka1-angka2
            *:hasil:=angka1*angka2
            /:hasil:=angka1/angka2
            Write(hasil)
*}
Program KALKULATOR;
Uses Crt;
Var        angka1,angka2,hasil:Real;
       operasi:Char;
Begin
Clrscr;
Writeln(‘KALKULATOR’);
Writeln(‘==================’);
Write(‘Input Angka Pertama        :’);Readln(angka1);
Write(‘Operasi yang dilakukan(+,-,/,*):’);Readln(operasi);
Write(‘Input Angka Kedua        :’);Readln(angka2);
Case operasi of
‘+’:hasil:=angka1+angka2;
‘-‘:hasil:=angka1-angka2;
‘*’:hasil:=angka1*angka2;
‘/’:hasil:=angka1/angka2;
End;
Writeln(‘Hasil dari    ‘,angka1:2:0,’        ‘,operasi,’            ‘,angka2:2:0,’=;    ,’’,hasil:2:0);
Readln;
End.

24. Program Rental DVD
{*Program Rental DVD
DEKLARASI
           N:String
           S:Char
           J:Integer
           H,T:Real
ALGORITMA:
           Read(N)
           Read(S)
           Read(J)
           Read(H)
           IF S:=’A’ Then H:=3500
           Else IF S:=’B’ And J:=>=5 Then H:=4000
           Else IF S:=’B’ And J:=<=5 Then H:=5000
           Read(T)
           T <== J*H
           Write(T)
*}
PROGRAM RENTAL_DVD;
Uses Crt;
Var       N:String;
          S:Char;
              J:Integer;
              H,T:Real;
Begin
Clrscr;
Write(‘Nama Penyewa:   ‘);Readln(N);
Write(‘Status         :   ‘);Readln(S);
Write(‘Jumlah         :   ‘);Readln(J);
Case S of
‘A’ :
Begin
H:=3500;
T:=H*J;
End ;
‘B’ :
Begin
IF (J<=5) Then
H:=5000;
T:=H*J;
IF(J>=5) Then
H:=4000;
T:=H*J;
End;
End;
Writeln(‘Harga   :’,H:2:2);
Writeln(‘Total    :’,T:2:2);
Readln;
End.

25. Program Perjumlahan Bilangan Bulat
{*PROGRAM PERJUMLAHAN BILANGAN BULAT
DEKLARASI
               a,b,jumlah :Integer
ALGORITMA:
               Read(a)
               Read(b)
               Jumlah <== a+b
               Write(jumlah)
*}
Program Jumlah_bilangan;
Uses Crt;
Var a,b,jumlah: Integer;
Begin
Clrscr;
Writeln(‘Program Menghitung Jumlah Dua Bilangan Bulat’);
Write(‘Bilangan 1:       ‘);Readln(a);
Write(‘Bilangan 2:       ‘);Readln(b);
Jumlah :=a+b;
Write(‘Jumlah dua bilangan =       ’);
Readln;
End.

26. Program Perkalian Dua Bilangan
{*PROGRAM PERKALIAN DUA BILANGAN
DEKLARASI
             a,b,jumlah :Integer
ALGORITMA:
                Read(a)
                Read(b)
                jumlah <== a*b
                Write(jumlah)
*}
Program Perkalian_bilangan;
Uses Crt;
Var a,b,jumlah :Integer;
Begin
Clrscr;
Write(‘Bilangan 1:        ‘);Readln(a);
Write(‘Bilangan 2:        ‘);Readln(b);
Jumlah:= a*b;
Write(‘Perkalian dua bilangan =            ‘);
Readln;
End.

27. Program Pembagian Dua Bilangan
{*PROGRAM PEMBAGIAN DUA BILANGAN
DEKLARASI
             a,b,jumlah : Integer
ALGORITMA:
                Read(a)
                Read(b)
                Jumlah <== a/b
                Write(Jumlah)
*}
Program Pembagian_bilangan;
Uses Crt;
var         a,b,jumlah: Integer
Begin
Clrscr;
Write(‘Bilangan 1:        ‘);Readln(a);
Write(‘Bilangan 2:        ‘);Readln(b);
Jumlah :=a/b;
Write(‘Pembagian dua bilangan =        ‘);
Readln;
End.

28. Program Pengurangan Dua Bilangan
{*PROGRAM PENGURANGAN DUA BILANGAN
DEKLARASI
            a,b,Jumlah : Integer
ALGORITMA:
               Read(a)
               Read(b)
               Jumlah <== a-b
               Write(Jumlah)
*}
Program PENGURANGAN_BILANGAN;
Uses Crt;
Var           a,b,Jumlah : Integer;
Begin
Clrscr;
Write(‘Bilangan 1 =       ‘);Readln(a);
Write(‘Bilangan 2 =       ‘);Readln(b);
Jumlah := a-b;
Write(‘Pengurangan Dua Bilangan =       ‘);
Readln;
End.

29. Program Kelulusan Nilai
{*PROGRAM KELULUSAN NILAI
DEKLARASI
                Nama,K        : String
                Nilai            : Integer
ALGORITMA:
                Read(Nama)
                Read(Nilai)
                IF Nilai >= 60 Then K:= Lulus
                Else K:= Tidak Lulus
                Write(K)
*}
Program Kelulusan_Nilai;
Uses Crt;
Var            Nama,K: String;
           Nilai: Integer;
Begin
Clrscr;
Write(‘Nama Murid =        ‘);Readln(Nama);
Write(‘Input Nilai    =        ‘);Readln(Nilai);
IF Nilai >= 60 Then
K:= ‘Lulus’
Else K:= ‘Tidak Lulus’ ;
Writeln(‘Keterangan Lulus :            ‘,K);
Readln;
End.

30. Program Biodata
{*PROGRAM BIODATA
DEKLARASI
               nm, npm : String
ALGORITMA:
               Read(nm)
               Read(npm)
               Write(nm)
               Write(npm)
*}
Program Biodata;
Uses Crt;
Var           nm,npm : String;
Begin
Clrscr;
Write(‘Nama Saya =           ‘);Readln(nm);
Write(‘Nama Panggilan =   ‘);Readln(npm);
Writeln(‘Nama Saya :           ,Nama    Panggilan :   ‘,npm);
Readln;
End.

31. Program Nilai
{*PROGRAM NILAI
DEKLARASI
           a: Integer
ALGORITMA:
           Read(a)
           IF a > 5 Then
           Begin
           Writeln(‘Nilai a lebih besar dari’);
           Else Begin
           Writeln(‘Nilai a lebih kecil dari’);
           End;
*}
Program NILAI;
Uses Crt;
Var           a: Integer;
Begin
Clrscr;
Write(‘Masukkan Nilai Antara 0 sampai 100 ‘);Readln(a);
IF a > 5 Then Begin
Writeln(‘Nilai a lebih besar dari 5’);
Writeln(‘Tekan sembarang tombol untuk keluar’);
End
Else Begin
Writeln(‘Nilai a lebih kecil atau sama dengan 5’);
Writeln(‘Tekan sembarang tombol untuk keluar’);
End;
Readln;
End.

32. Program Ganjil Genap
{*PROGRAM GANJIL_GENAP
DEKLARASI
               angka : Integer
ALGORITMA:
           Read(angka)
           IF angka < 0 Then
           Begin
           IF angka mod 2 = 0 Then
           Writeln(‘Status Bilangan   : Genap = NEGATIF’)
           Else
           Writeln(‘Status Bilangan   : Ganjil = NEGATIF’)
           End
           Else Begin
           IF angka mod 2 = 0 Then
           Writeln(‘Status Bilangan    : Genap = POSITIF’)
           Else
           Writeln(‘Status Bilangan   : Ganjil = POSITIF’)
           End;
*}
Program Ganjil_Genap;
Uses Crt;
Var           angka : Integer;
Begin
Clrscr;
Writeln(‘Status Bilangan’);
Writeln(‘================’);
Write(‘Masukkan Bilangan   :’);Readln(angka);
IF angka < 0 Then
Begin
IF angka mod 2 = 0 Then
Writeln(‘Status Bilangan        :Genap = NEGATIF’)
Else
Writeln(‘Status Bilangan       : Ganjil = NEGATIF’)
End
Else
Begin
IF angka mod 2 = 0 Then
Writeln(‘Status Bilangan       : Genap = POSITIF’)
Else
Writeln(‘Status Bilangan       : Ganjil = POSITIF’)
End;
Readln;
End.

33. Program Konversi Detik ke Jam
{*PROGRAM KONVERSI DETIK KE JAM
DEKLARASI
                    Detik,jam : Real
ALGORITMA:
                    Read(Detik)
                    Jam <== detik/3600
                    Write(jam)
*}
Program Detik_ke_Jam;
Uses Crt;
Var            Detik,jam: Real;
Begin
Clrscr;
Write(‘Masukkan Detik =            ‘);Readln(detik);
Jam :=detik/3600;
Writeln(‘Jam =            ‘,jam:10:2);
Readln;
End.

34. Program Konversi Detik
{*PROGRAM KONVERSI DETIK
DEKLARASI
                Type jam :Record
                hh,mm,ss :LongInt
                J : Jam
                Totaldetik :LongInt
ALGORITMA:
                Read(Type Jam)
                Read(hh)
                Read(mm)
                Read(ss)
                Read(j)
                Totaldetik <== (J.hh*3600) + (J.mm*60) + J.ss
                Write(totaldetik)
*}
Program Konversi_Detik;
Uses Crt;
Type Jam    = record
hh,mm,ss    :LongInt;
End;
Var            J : Jam;
            totaldetik : LongInt;
Begin
Clrscr;
Write(‘Jam     :   ‘);Readln(J.hh);
Write(‘Menit :       ‘);Readln(J.mm);
Write(‘Detik   :         ‘);Readln(J.ss);
totaldetik:=    (J.hh*3600) + (J.mm*60) + J.ss;
Writeln(‘Totaldetik =            ‘,totaldetik);
Readln;
End.

35. Program Konversi Jam ke Detik
{*PROGRAM KONVERSI JAM KE DETIK
DEKLARASI
           jam,detik : Real
ALGORITMA:
           Read(jam)
           detik <== jam*3600
           Write(detik)
*}
Program KONVERSI_JAM_KE_DETIK;
Uses Crt;
Var           jam,detik : Real;
Begin
Clrscr;
Write(‘Masukkan Jam =       ‘);Readln(jam);
detik := jam*3600
Writeln(‘total detik   =           ‘,detik:10:0);
Readln;
End.

36. Program Konversi Jam ke Menit
{*PROGRAM KONVERSI JAM KE MENIT
DEKLARASI
                    Jam,menit : Real
ALGORITMA:
                    Read(jam)
                    menit <== jam *60
                    Write(menit)
*}
Program KONVERSI_JAM_KE_MENIT;
Uses Crt;
Var                jam,menit : Real;
Begin:
Clrscr;
Write(‘Masukkan Jam =        ‘);Readln(jam);
detik := jam*60;
Writeln(‘total detik=            ‘,detik:10:0);
Readln;
End.

37. Program Konversi Menit ke Jam
{*PROGRAM KONVERSI MENIT KE JAM
DEKLARASI
                    menit,jam : Real
ALGORITMA:
                    Read(menit)
                    jam <== menit/60
                    Write(jam)
*}
Program Menit_Ke_Jam;
Uses Crt;
Var                menit,jam :Real;
Begin
Clrscr;
Write(‘Masukkan Menit =        ‘);Readln(menit);
Jam :=menit/60;
Writeln(‘Jam =        ‘,jam:10:2);
Readln;
End.

38. Program Koordinat Titik Tengah
{*PROGRAM KOORDINAT TITIK TENGAH
DEKLARASI
            X1,X2,Y1,Y2,titik_tengah_x,titik_tengah_y:Real
ALGORITMA:
            Read(X1)
            Read(X2)
            Read(Y1)
            Read(Y2)
            titik_tengah_x <== ((X1+X2)/2)
            titik_tengah_y <== ((Y1+yY2)/2)
            Write(titik_tengah_x)
            Write(titik_tengah_y)
*}
Program Koordinat_Titik_Tengah;
Uses Crt;
Var    X1,X2,Y1,Y2,titik_tengah_x,titik_tengah_y:Real;
Begin
Clrscr;
Write(‘Masukkan Nilai X1 =        ‘);Readln(X1);
Write(‘Masukkan Nilai X2 =        ‘);Readln(X2);
Write(‘Masukkan Nilai Y1 =        ‘);Readln(Y1);
Write(‘Masukkan Nilai Y2 =        ‘);Readln(Y2);
titik_tengah_x:= ((X1+X2)/2);
titik_tengah_y:= ((Y1+Y2)/2);
Writeln(‘Titik Tengah X =        ‘,titik_tengah_x:10:2);
Writeln(‘Titik Tengah Y =        ‘,titik_tengah_y:10:2);
Readln;
End.

39. Program Luas Lingkaran
{*PROGRAM LUAS LINGKARAN
DEKLARASI
            const phi = 3.142857
            r,Luas: Real
ALGORITMA:
            Read(r)
            Luas <== (phi*r*r)
            Write(Luas)
*}
Program LUAS_LINGKARAN;
Uses Crt;
const
    phi= 3.142857;
Var        r,Luas:Real;
Begin
Clrscr;
Write(‘Masukkan Jari-Jari Lingkaran:        ‘);Readln(r);
Luas:=(phi*r*r);
Writeln(‘Luas :        ‘,Luas:10:3);
Readln;
End.

40. Program Keliling Lingkaran
{*PROGRAM KELILING LINGKARAN
DEKLARASI
                const phi = 3.14
                r,Keliling:Real;
ALGORITMA:
                Read(r)
                Keliling <== (phi*2*r)
                Write(Keliling)
*}
Program KELILING_LINGKARAN;
Uses Crt;
const
            phi = 3.14;
Var        r,Keliling: Real;
Begin
Clrscr;
Write(‘Masukkan Jari-Jari Lingkaran:        ‘);Readln(r)
Keliling:=(phi*2*r);
Writeln(‘Keliling Lingkaran :            ‘,Keliling:10:3);
Readln;
End.

41. Program Luas Permukaan Tabung
{*PROGRAM LUAS PERMUKAAN TABUNG
DEKLARASI
            const phi = 3.14
            r,t,LP_tabung :Real;
ALGORITMA:
            Read(r)
            Read(t)
            LP_tabung <== ((2*phi*r*r) + (2*phi*r*t)
            Write(LP_tabung)
*}
Program Luas_Permukaan_Tabung;
Uses Crt;
const phi = 3.14;
Var        r,t,LP_tabung;
Begin
Clrscr;
Write(‘Masukkan Jari-Jari =        ‘);Readln(r);
Write(‘Masukkan Tinggi   =        ‘);Readln(t);
LP_tabung:=((2*phi*r*r) + (2*phi*r*t));
Writeln(‘Luas Permukaan Tabung    :    ‘,LP_tabung:5:3);
Readln;
End.

42. Program Luas Permukaan Kerucut
{*PROGRAM LUAS PERMUKAAN KERUCUT
DEKLARASI
            const phi = 3.14
            r,s,LP_kerucut : Real
ALGORITMA:
            Read(r)
            Read(s)
            LP_kerucut <== ((phi*r*r) + (phi*r*s))
            Write(LP_kerucut)
*}
Program Luas_Permukaan_Kerucut;
Uses Crt;
const phi     = 3.14;
Var        r,s,LP_kerucut : Real;
Begin
Clrscr;
Write(‘Masukkan Jari-Jari    =    ‘);Readln(r);
Write(‘Masukkan Selimut Kerucut =    ‘);Readln(s);
LP_kerucut := ((phi*r*r) + (phi*r*s));
Writeln(‘Luas Permukaan Kerucut =        ‘,LP_kerucut:5:2);
Readln;
End.

43. Program Volume Bola
{*PROGRAM VOLUME BOLA
DEKLARASI
const phi = 3.14
jari_jari,volume : Real
ALGORITMA:
    Read(jari_jari)
    Volume <== jari_jari * jari_jari * 4/3 * phi
    Write(volume)
*}
Program Volume_Bola;
Uses Crt;
const phi = 3.14;
Var            jari_jari,volume : Real;
Begin
Clrscr;
Write(‘Masukkan Jari-Jari    :        ‘);Readln(jari_jari);
Volume := jari_jari * jari_jari * 4/3 * phi;
Writeln(‘Volume Bola adalah        :        ‘,volume:8:2);
Readln;
End.

44. Program Luas Permukaan Kubus
{*PROGRAM LUAS PERMUKAAN KUBUS
DEKLARASI
                alas,LP : Real
ALGORITMA:
                Read(alas)
                LP <== 6 * (alas*alas)
                Write(LP)
*}
Program Luas_Permukaan_Kubus;
Uses Crt;
Var        alas,LP : Real;
Begin
Clrscr;
Write(‘Masukkan Alas    =        ‘);Readln(alas);
LP:= 6*(alas*alas);
Writeln(‘Luas Permukaan =            ‘,LP:5:2)’
Readln;
End.

45. Program Kelipatan 5 Repeat Until
{*PROGRAM KELIPATAN 5 REPEAT UNTIL
DEKLARASI
            a: Integer
ALGORITMA:
            Read(a)
            a <== 5
            Repeat
            Write(a,’’)
            a <== a + 5;
            Until a > 25
*}
Program Kelipatan_5_REPEAT;
Uses Crt;
Var        a : Integer;
Begin
Clrscr;
a : = 5;
Repeat
Write(a,’’);
a : = a + 5;
Until a > 25
Readln;
End.

46. Program Seleksi
{*PROGRAM SELEKSI
DEKLARASI
            NilaiUjian : Real
            Ket          : String[16]
ALGORITMA:
            Read(NilaiUjian)
            IF NilaiUjian > 60 Then
            Ket <== ‘Anda Lulus’ Else Ket <== ‘Anda Tidak Lulus’
            Write(Ket)
*}
Program Seleksi;
Uses Crt;
Var        NilaiUjian : Real;
          Ket          : String[16];
Begin
Clrscr;
Write(‘Nilai Ujian Yang Didapatkan =        ‘);Readln(NilaiUjian);
IF NilaiUjian > 60 Then Ket := ‘Anda Lulus’
Else Ket := ‘Anda Tidak Lulus’;
Writeln(‘Keterangan =        ‘,Ket);
Readln;
End.

47. Program Positif Negatif
{*PROGRAM POSITIF_NEGATIF
DEKLARASI
                Bil : Integer
ALGORITMA:
                Read(Bil)
                IF Bil < 0 Then
                Begin
                Write(‘Bilangan itu Negatif’’)
                End
                Else IF Bil > 0 Then
                Begin
                Write(‘Bilangan itu Positif’)
                End
                Else
                Begin
                Write(‘Bilangan itu Nol’)
*}
Program POSITIF_NEGATIF;
Uses Crt;
Var    Bil : Integer;
Begin
Clrscr;
Writeln(‘Menentukan bilangan Positif/Negatif’’);
Write(‘Masukkan Bilangan    =        ‘);Readln(Bil);
IF Bil < 0 Then
Begin
Write(‘Bilangan itu Negatif ‘);
End
Else IF Bil > 0 Then
Begin
Write(‘Bilangan itu Positif ‘);
End
Else
Begin
Write(‘Bilangan itu Nol ‘);
End;
Readln;
End.

48. Program Kelipatan
{*PROGRAM KELIPATAN
DEKLARASI
                    a : Integer
ALGORITMA:
                    Read(a)
                    a <== a+a
                    Repeat
                    Write(a,’’)
                    Until a > 100
*}
Program Kelipatan;
Uses Crt;
Var                a : Integer;
Begin
Clrscr;
Write(‘Masukkan angka =             ‘);Readln(a);
Writeln;
Repeat
Write(a,’’);
a:=a+a;
Readln;
Until a > 100;
Readln;
End.

49. Program Celcius ke Fahrenheit
{*PROGRAM CELCIUS Ke FAHRENHEIT
DEKLARASI
            Celcius,Fahrenheit : Real
ALGORITMA:
            Read(celcius)
            Fahrenheit <== (9/5*celcius) + 32
            Write(Fahrenheit)
*}
Program Konversi_Celcius_ke_Fahrenheit;
Uses Crt;
Var        celcius,Fahrenheit : Real;
Begin
Clrscr;
Writeln(‘Program Konversi Suhu’);
Writeln(‘======================’);
Writeln;
Write(‘Masukkan Suhu Celcius    =        ‘);Readln(celcius);
Fahrenheit := (9/5*celcius) + 32;
Writeln(‘Berikut Hasilnya =        ‘,Fahrenheit:4:2,’F’);
Readln;
End.

50. Program Celcius ke Reamur
{*PROGRAM CELCIUS KE REAMUR
DEKLARASI
            celcius,reamur, : Real;
ALGORITMA:
            Read(celcius)
            reamur <== 4/5*celcius
            Write(reamur)
*}
Uses Crt;
Var        celcius,reamur : Real;
Begin
Clrscr;
Writeln(‘Program Konversi Suhu’);
Writeln(‘=================’);
Writeln;
Write(‘Masukkan Suhu Celcius    =        ‘);Readln(celcius);
Reamur := 4/5*celcius;
Writeln(‘Berikut Hasilnya    =’,reamur:4:2,’R’);
Readln;
End.

Tuesday, August 27, 2019

Contoh Program Pascal dalam Sehari