Algoritma Mengkonversi Jarak - Tugas Soal No.8 Halaman 110

Algoritma Mengkonversi Jarak - Tugas Soal No.8 Halaman 110

Soal :

Seekor semut menempuh perjalanan sejauh x cm. Tulislah algoritma untuk mengonversi jarak x ke dalam kilometer-meter-sentimeter. Ingat bahwa 1 m=100 cm dan dan 1 km=1000 m=100.000 cm. Misal x=261341 cm, ini berarti semut menempuh jarak sejauh 2 km+63 m + 141 cm

Source Code :

PROGRAM Soal_no8_hal_110_mengonversi_jarak;

USES CRT;
VAR
   jarak     :INTEGER;
   km        :INTEGER;
   m         :INTEGER;
   cm        :INTEGER;
   sisa_jarak:INTEGER;

BEGIN
     WRITE( 'jarak: ');READLN(jarak);
     km             := jarak DIV 100000;

     sisa_jarak     := jarak MOD 100000;

     m              := sisa_jarak DIV 100;

     sisa_jarak     := sisa_jarak MOD 100;

     cm             := sisa_jarak;

     WRITELN(km,' Km + ',m ,' m + ' ,cm,' cm ');


READLN;
END.

Tampilan program ketika di jalankan :

Algoritma Mengkonversi Jarak - Tugas Soal No.8 Halaman 110