Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  turbop
Language: PASCAL
Code:
Program Konversi_Satuan_Ke_Meter;
Uses crt;
Var
    mm      : integer;
    cm      : real;
    inch    : real;
    yard    : real;
    km      : real;
    mm_m, cm_m, inch_m, yard_m, km_m, mil_m : real;
    
Begin
Clrscr;
    Write ('Masukkan nilai dalam satuan Milimeter (mm)             = ');
    Readln (mm);
    Write ('Masukkan nilai dalam satuan centimeter (cm)            = ');
    Readln (mm);
    Write ('Masukkan nilai dalam satuan inchi                      = ');
    Readln (inchi);
    Write ('Masukkan nilai dalam satuan yard                       = ');
    Readln (yard);
    Write ('Masukkan nilai dalam satuan Kilometer (km)             = ');
    Readlm (km);
    Write ('Masukkan nilai dalam satuan Mil                        = ');
    readln (mil);
    
mm_m        := mm/1000;
cm_m        := cm/100;
inchi_m     := inchi/0.0254;
yard_m      := yard/0.9144;
km_m        := km*1000;
mil_m       := mil*1609.34;

    Writeln ('Konversi Milimeter (mm) ke Meter                      = ',mm_m:6:2);
    Writeln ('Konversi Centimeter (cm) ke Meter                     = ',cm_m:6:2);
    Writeln ('Konversi Inchi ke Meter                               = ',inchi_m:6:2);
    Writeln ('Konversi Yard ke Meter                                = ',yard_m:6:2);
    Writeln ('Konversi Kilometer (km) ke Meter                      = ',km_m:6:2);
    Writeln ('Konversi Mil ke Meter                                 = ',mil_m:6:2);
    
Readln;
End.
          
Comments: