Membuat program konversi satuan Meter ke Kilometer

Kali ini kita akan belajar bagaimana cara membuat sebuah program konversi satuan Meter ke Kilometer menggunakan bahasa program Pascal. Oke langsung saja ketikkan coding berikut ini :

Program konversi_jarak;

Uses crt;

Var

  Meter, hasil : real;

Begin

Clrscr;

  Writeln(‘program konversi jarak’);

  Writeln(‘===================’);

  Writeln;

  Write(‘Masukkan besaran meter = ‘); readln(meter);

  Writeln;

                Hasil := meter / 1000;

  Writeln;

  Writeln(meter:0:2’Meter= ‘,hasil:0:2,’kilometer);

 Readln;

End.

Terakhir tinggal jalankan program tersebut, jika berhasil maka tampilannya akan seperti berikut ini :

Sekian dan terimakasi, semoga bermanfaat !