Membuat Pascal Sederhana

Contoh Pascal Sederhana

1. Program menghitung hari

program hari_bulan_tahun;
{Maulana Affan 25/10/2014 9:59}

uses crt;

var
  hari, bulan, tahun, sisa1, sisa2 : integer;

begin
  clrscr;
  writeln (' Program Menghitung Hari');
  writeln ('==================');
  writeln;
  write ('Tulis Jumlah Hari =  ');
  readln (hari);

  tahun    := hari div 365;
  sisa1     := hari mod 365;
  bulan    := sisa1 div 30;
  sisa2     := sisa1 mod 30;
  hari       := sisa2;

  writeln;
  writeln ('Berikut hasilnya =  ',  tahun,  '  Tahun ');
  writeln ('                             ',  bulan,  '  Bulan ');
  writeln ('                             ',  hari,   '  Hari  ');
  writeln;
  writeln ('Terima Kasih Telah Mencoba.');
  readln;
end.

2. Program hari menjadi jam, menit dan detik

program hari_waktu;
{Maulana Affan 25/10/2014 10:21}

uses crt;

var
  hari, jam, menit, detik : real;

begin
  clrscr;
  writeln ('Program Menghitung Jam, Menit dan Detik');
  writeln ('=============================');
  writeln;
  write ('Tuliskan Jumlah Hari =  ');
  readln (hari);

  jam       := hari * 24;
  menit    := jam * 60;
  detik    := menit * 60;

  writeln;
  writeln ('Hasilnya adalah      =  ', jam:4:0, '  Jam ');
  writeln ('                                  ', menit:4:0, '  Menit ');
  writeln ('                                  ', detik:4:0, '  Detik ');
  writeln;
  writeln ('Bagaimana.? Keren kan.? Haha..');
  writeln ('Terima Kasih Telah Mencoba.');
  readln;
end.

3. Program mengkonversi detik

program konversi_waktu;
{Maulana Affan 22/10/2014 16:56}

uses crt;

var
  jam, menit, detik, sisa, sisa2 : integer;

begin
  clrscr;
  writeln ('Program Konversi Waktu');
  writeln;
  writeln ('Masukkan Data');
  write ('Detik =  ');
  readln (detik);

  jam      := detik div 3600;
  sisa      := detik mod 3600;
  menit   := sisa div 60;
  sisa2    := sisa mod 60;
  detik    := sisa2;

  writeln;
  writeln ('Ini hasilnya =  ',jam,  '  Jam');
  writeln ('                      ',menit,  '  Menit');
  writeln ('                      ',detik,  '  Detik');
  readln;
end.

4.Program Konversi Suhu

program konversi_suhu;
{Maulana Affan 23/10/2014 14:30}

uses crt;

var
  celcius, fahrenheit, reamur, hasil : real;

begin
  clrscr;
  writeln ('Program Konversi Suhu');
  writeln ('================');
  writeln;
  write ('Masukkan Suhu Celcius =  ');
  readln (celcius);

  fahrenheit := (9/5 * celcius) + 32;
  reamur      := 4/5 * celcius;
  writeln ('Berikut Hasilnya      =  ',  fahrenheit:4:2,  '  F');
  writeln ('                               =  ',  reamur:4:2,  '  R');
  readln;
end.

5. Program Volume Balok

program volume_balok;
{Maulana Affan 22/10/2014 16:41}

uses crt;

var
  panjang, lebar, tinggi        : real;
  volume                             : real;

begin
  clrscr;
  writeln ('Program Volume Balok');
  writeln;
  writeln ('Masukkan Data');
  write ('Panjang cm =  ');
  readln (panjang);
  write ('Lebar   cm =  ');
  readln (lebar);
  write ('Tinggi  cm =  ');
  readln (tinggi);

  volume := panjang * lebar * tinggi;
  writeln;
  writeln ('Hasil Volume =  ',  volume:4:2,  '  cm^3');
  readln;
end.

6. Program Penilaian

program penilaian;
{Maulana Affan 26/10/2014 09:25}

uses crt;

var
  nilai : integer;

begin
  clrscr;
  writeln ('Program Penilaian');
  writeln ('============');
  writeln;
  write ('Masukkan Nilai Anda =  ');
  readln (nilai);

  if nilai > 85 then
    writeln ('Kategori Nilai Anda =  A')
  else
    if nilai > 70 then
      writeln ('Kategori Nilai Anda =  B')
    else
     if nilai > 60 then
       writeln ('Kategori Nilai Anda =  C')
     else
      if nilai > 50 then
        writeln ('Kategori Nilai Anda =  D')
      else
        writeln ('Kategori Nilai Anda =  E');
  readln;
end.

7. Program Menghitung Luas dan Keliling Persegi Panjang

program luas_keliling;
{program menghitung luas dan keliling}
{Maulana Affan, 20/10/2014 18:57 WIB}

uses crt;

var
  panjang, lebar  : integer;
  luas, keliling     : integer;

begin
  clrscr;
  writeln ('Program Menghitung Luas Keliling Persegi Panjang');
  writeln;
  write ('Panjang  =  ');
  readln (panjang);
  write ('Lebar    =  ');
  readln (lebar);

  luas        := panjang * lebar;
  keliling   := 2 * (panjang * lebar);

  writeln;
  writeln ('Luas        =  ', luas);
  writeln ('Keliling   =  ', keliling);
  readln;
end.

8. Program Perubahan Bentuk Air

program perubahan_bentukair;
{Maulana Affan 26/10/2014 20:33}

uses crt;

var
  suhu : integer;

begin
  clrscr;
  writeln ('Program Perubahan Bentuk Air');
  writeln ('=====================');
  writeln;
  write ('Masukkan Suhu Air (Celcius) =  ');
  readln (suhu);

  if suhu >= 100 then
    writeln ('Air pada kondisi tersebut berbentuk gas.')
  else
   if suhu > 0 then
    writeln ('Air pada kondisi tersebut berbentuk cair.')
   else
    writeln ('Air pada kondisi tersebut berbentuk padat.');
  readln;
end.