Selasa, 17 Mei 2011

Contoh Source Code Konversi Jarak Bahasa Pascal

program konversi_jarak;
uses wincrt;

var jarak,km,m,cm,sisa:longint;

begin
     write ('Masukkan jarak dalam satuan cm: ');

     readln (jarak);

     km:=jarak div 100000;

     sisa:=jarak mod 100000;

     m:=sisa div 100;

     cm:=sisa mod 100;

     writeln;

     writeln ('hasil konversi jarak');

     writeln;

     write (km,' km + ',m,' m + ',cm,' cm');

     read (km,m,cm);
end.
Diposting oleh pada jam
Label :

3 komentar:

  1. Anonim20 September 2011 pukul 14.01

    mau tanya ni maksudnya div & mod itu apa ya??
    mohon pencerahannya

    BalasHapus
  2. Unknown23 September 2011 pukul 11.15

    kalo div itu sama aza kaya dibagi
    misal 5 div 2 = 2,5

    kalo mod itu artinya sisa hasil bagi
    5 mod 2 = 1
    karna 2 * 2 = 4
    jadi sisa hasil bagi dari 5 mod sama dengan 1..

    BalasHapus
  3. Unknown17 September 2013 pukul 00.12

    http://mpermperpisang.blogspot.com/2013/09/jasa-pembuatan-program-atau-analisis_16.html

    BalasHapus

Langganan: Posting Komentar (Atom)