program algoritma prosedure

Program ProsedurKonversi_waktu;
uses crt;

var pil : integer;

procedure Konversi_keMenit;
var j,d,m :longint;
    k,l,s,t : real;
begin
     clrscr;
     writeln ('  *  PROGRAM KONVERSI WAKTU  *  ');
     writeln ('   ==========================    ');
     writeln;
     writeln ('* Mencari Konversi Waktu ke Menit *');
     writeln;
     write   (' Masukan Jumlah Jam   : ');readln(j);
     write   (' Masukan Jumlah Menit : ');readln(m);
     write   (' Masukan Jumlah Detik : ');readln(d);
     writeln;
     k:=(j*60)+(d/60)+(m);
     l:=(j*60);
     s:=(m);
     t:=(d/60);
     writeln (' Waktu dalam ',j,'   Jam      : ',l:0:2,' Menit');
     writeln (' Waktu dalam ',m,' Menit      : ',s:0:2,' Menit');
     writeln (' Waktu dalam ',d,' Detik      : ',t:0:2,' Menit');
     writeln;
     writeln (' Konversi Waktu ke Menit Adalah : ', k:0:2,' Menit');
     writeln;
     writeln;
     writeln ('   By  : EKO ADY SAPUTRA 132 FK-3 ');
     writeln (' No.Bp : 12101156110132           ');
     writeln (' Fkip  : Tik_3                    ');
end;

procedure Konversi_keJam;
var d,m,j :longint;
    k,q,u,y :real;
begin
     clrscr;
     writeln ('  *  PROGRAM KONVERSI WAKTU  *');
     writeln ('   ==========================  ');
     writeln;
     writeln (' * Mencari Koversi Waktu ke Jam * ');
     writeln;
     write   (' Masukan Jumlah Jam   : ');readln(j);
     write   (' Masukan Jumlah Menit : ');readln(m);
     write   (' Masukan Jumlah Detik : ');readln(d);
     writeln;
     k:=(m/60)+(d/3600)+(j);
     u:=(j);
     q:=(d/3600);
     y:=(m/60);
     writeln (' Waktu Dalam ',j,'   Jam    : ',u:0:2,' Jam');
     writeln (' Waktu Dalam ',m,' Menit    : ',y:0:2,' Jam');
     writeln (' waktu Dalam ',d,' Detik    : ',q:0:2,' Jam');
     writeln;
     writeln (' Konversi Waktu ke Jam Adalah   : ',k:0:2,' Jam');
     writeln;
     writeln ('   By  : EKO ADY SAPUTRA 132 FK-3 ');
     writeln (' No.Bp : 12101156110132           ');
     writeln (' Fkip  : Tik_3                    ');
end;

procedure Konversi_keDetik;
var d,m,j :longint;
    k,a,b,c :real;
begin
     clrscr;
     writeln ('  *  PROGRAM KONVERSI WAKTU  *');
     writeln ('   ==========================  ');
     writeln;
     writeln ('* Mencari Konversi Waktu ke Detik *');
     writeln;
     write   (' Masukan Jumlah Jam   : ');readln(j);
     write   (' Masukan Jumlah Menit : ');readln(m);
     write   (' Masukan Jumlah Detik : ');readln(d);
     writeln;
     k:=(j*3600)+(m*60)+(d);
     a:=(j*3600);
     b:=(m*60);
     c:=(d);
     writeln (' Waktu Dalam ',j,' Jam      : ',a:0:2,' Detik');
     writeln (' Waktu Dalam ',m,' Menit    : ',b:0:2,' Detik');
     writeln (' Waktu Dalam ',d,' Detik    : ',c:0:2,' Detik');
     writeln;
     writeln (' Konversi Waktu ke Detik Adalah : ',k:0:2,' Detik');
     writeln;
     writeln ('    By : EKO ADY SAPUTRA 132 FK-3 ');
     writeln (' No.Bp : 12101156110132           ');
     writeln (' Fkip  : Tik_3                    ');
end;

begin
     clrscr;
     writeln ('  *  PROGRAM KONVERSI WAKTU  *');
     writeln ('   ==========================  ');
     writeln;
     writeln ('* Program Mencari Konversi Waktu * ');
     writeln ('* Waktu ke Menit, Waktu ke Jam, dan Waktu ke Detik *');
     writeln;
     writeln ('1. Konversi Waktu ke Menit');
     writeln ('2. Konversi Waktu ke Jam  ');
     writeln ('3. Konversi Waktu ke Detik');
     writeln ('4. Selesai');
     write   ('Masukan Pilihan [1-4] : ');
     readln(pil);
     writeln;
     writeln ('    By : EKO ADY SAPUTRA 132 FK-3 ');
     writeln (' No.Bp : 12101156110132           ');
     writeln (' Fkip  : Tik_3                    ');

if pil=1 then begin
        Konversi_keMenit
end else
if pil=2 then begin
        Konversi_keJam
end else
if pil=3 then begin
        Konversi_keDetik
end;
Repeat until keypressed;

end.

Share this post