Algoritma Mengkonversi Inchi, Kaki dan Yard - Tugas Soal No.9 Halaman 110

Algoritma Mengkonversi Panjang Inchi, Kaki dan Yard - Tugas Soal No.9 Halaman 110

Soal :

Tuliskan algoritma yang yang membaca panjang sebuah benda dalam satuan meter, lalu mengonversinya ke dalam satuan inchi,kaki,dan yard (1 inchi=25.4 mm, 1 kaki= 30.48,cm, dan 1 yard = 0.9144 m

Source Code :

PROGRAM Soal_No9_Hal_110;

USES CRT;
VAR
   Panjang_meter: REAL;
   Inchi        : REAL;
   kaki         : REAL;
   Yard         : REAL;
   Mm           : REAL;
   Cm           : REAL;

BEGIN
    WRITE('Masukan Panjang dalam Satuan Meter : ');READLN(Panjang_meter);

    Mm:= Panjang_meter * 1000;
    Cm:= Panjang_meter * 100;
    Inchi:= mm/25.4;
    Kaki:= cm/30.48;
    Yard:= panjang_meter/0.9144;

    WRITELN('inchi = ',inchi:4:2);
    WRITELN('kaki  = ' ,kaki:4:2);
    WRITELN('yard  = ' ,Yard:4:2);

    READLN;
END.

Tampilan program ketika di jalankan :

Algoritma Mengkonversi Inchi, Kaki dan Yard - Tugas Soal No.9 Halaman 110