Pemrograman Pascal

Pascal

Adalah salah satu bahasa pemrograman komputer yang umumnya digunakan sebagaipengantar untuk mulai belajar algoritma dan pemrograman. Pascal relatif mudah dipelajari karena perintah-perintahnya yang mirip dengan bahasa inggris sehari-hari seperti begin, end, write, dan read.

Program Konversi Waktu

Dengan program ini kamu akan bisa menghitung konversi waktu dengan mudah dan cepat. Kamu tinggal memasukkan jumlah jam, menit dan detik, kemudian secara otomatis akan dikonversikan kedalam DETIK. Yang perlu di ketahui untuk membuat program ini yaitu:

1 menit = 60 detik
1 jam = 3600 detik.
1 hari = 86400 detik
1 bulan = 2592000 detik (untuk rata-rata 30 hari per bulan)
1 Tahun = 31104000 detik

Berikut kode Program Konversi Waktu yang bisa dibuat di Turbo Pascal Windows.

	
	Uses Wincrt;
Var  thn,bln,hr,j,m,d :integer;
     h :Longint;
begin
Clrscr;
     Writeln(‘Program Konversi Waktu’);
     Writeln(‘======================’);
     Writeln;
     Write(‘Masukkan Jumlah Tahun : ‘);readln(Thn);
     Write(‘Masukkan Jumlah Bulan : ‘);readln(Bln);
     Write(‘Masukkan Jumlah Hari  : ‘);readln(hr);
     Write(‘Masukkan Jumlah Jam   : ‘);readln(j);
     Write(‘Masukkan Jumlah Menit : ‘);readln(m);
     Write(‘Masukkan Jumlah Detik : ‘);readln(d);
     Begin
          h:=(Thn*31104000)+(Bln*2592000)+(hr*86400)
          +(j*3600)+(m*60)+d;
     End;
Writeln;
Writeln(‘Jadi Hasil Konversi : ‘,h,’ Detik’);
Readln;
end.
    

Program Kunversi Suhu

Di dalam program ini terdapat percabangan case of else dan perulangan repeat until. Coba pahami kegunaannya.

Program Konversi_Suhu;
Uses WinCrt;
var C,R,F : real;

Begin
Clrscr;
Writeln('Program Konversi Celcius ke Reamur dan Fareinheit');
Writeln('=================================================');
Writeln;
Write('Masukan Suhu dalam Celcius: ');readln(C);
  Begin
       F:=(9/5)*C+32;
       R:=(4/5)*C;
  End;
Writeln('Jadi,* Suhu dalam Fareinheit adalah: ',F:1:2);
Writeln('     * Suhu dalam Reamur adalah: ',R:1:2);
Readln;
End.
    

Program konversi suhu ini menggunakan variabel global karena semua variable real bila variabelnya dalam bentuk integer maka program ini tadak akan menampilkan bilangan desimal dan hanya menampilkan bilangan bulat. Logikanya, program akan menampilkan:

Program Konversi Celcius ke Reamur dan Fareinheit
=================================================
Masukan Suhu dalam Celcius: 100

Jadi,* Suhu dalam Fareinheit adalah: 212.00

* Suhu dalam Reamur adalah: 80.00

Program Konversi Uang (Rupiah ke Dolar)

Dibawah ini adalah program pertukaran uang dari rupiah ke dolar.

uses wincrt;
var a               : char;
    j,ntr,ntd,h,s   : longint;
    satuan1,satuan2 : string;
begin
Clrscr;
    write ('jumlah rupiah : '); readln (j);
    write ('nilai tukar rupiah terhadap dolar : ');
    readln (ntr);
    Begin
         h := j div ntr ;
         s := j mod ntr ;
         satuan1 := ‘dolar’;
         satuan2 := ‘rupiah’;
    end;
    writeln;
    writeln ('hasil : ',h,’ ‘,satuan1);
    writeln (‘sisa  : ‘,s,’ ‘,satuan2);
Readln;
end.
    

1) Tampilan

tukar rupiah atau dolar ? (r/d) r

jumlah rupiah : 1000000

nilai tukar rupiah terhadap dolar :9800

hasil : 102 dolar

sisa : 400 rupiah

2) Logika

Var a menggunakan char sebab yang dibaca adalah bentuk karakter r dan d. Var j (jumlah), ntr (nilai tukar rupiah), ntd (nilai tukar dolar), h (hasil), s (sisa) menggunakan longint sebab uang yang akan ditukarkan dan hasil bisa mencapai 2 milyar lebih. Tetapi jumlah yang dimasukkan dan hasil tidak boleh melebihi 2.147.483.647. Var satuan1 dan satuan2 menggunakan string sebab tipe data yang dimasukkan berupa karakter/kata.

Pertama jumlah rupiah di inputkan 1000000 dan nilai tukar rupiah terhadap dolar diinputkan 9800, karena dalam dolar tidak ada pecahan. Maka, rumus hasil adalah j div ntr {div adalah integer division atau pembulatan pembagian}. Jadi 1000000 dibagi 9800 dibulatkan hasilnya 102. Rumus sisa adalah j mod ntr {mod adalah remainder atau sisa hasil bagi yang dibulatkan}. Jadi 1000000 mod 9800 adalah 400 karena 1000000 dibagi 9800 dibulatkan menjadi 102 dan masih mempunyai sisa 400.

Satuan1 untuk memberi keterangan dolar dibelakang angka pada hasil dalam pertukaran rupiah ke dolar. Satuan2 untuk memberi keterangan rupiah dibelakang angka sebab sisa masih dalam bentuk rupiah. Karena huruf yang diketikkan dalam pertukaran adalah r/R, maka akan ditampilkan hasil dan sisa, tamplannya sebagai berikut:

hasil : 102 dolar

sisa : 400 rupiah

selanjutnya.....