Konversi Waktu Soal Seleksi GUCC

Peserta seleksi calon Aslab GUCC 2011 Jum'at, 4 Februari 2011 harus mengikuti tahap kedua yaitu tahap tes pemrograman pascal sebelum mengikuti tes tahap akhir yaitu interview. Adapun contoh salah satu TYPE SOAL yaitu berupa permintaan untuk membuat aplikasi konversi detik menjadi jam, sisa menit , serta sisa detik yang menjadi soal beban pengerjaan satu jam oleh salah seorang sahabat saya.. hohohoho..

Okeh Okeh cukup! Untuk lebih jelasnya mari kita perhatikan output permintaanya, analisa programnya, dan modifikasilah alur programnya agar lebih efektif dimata teman-teman.. Sebelumnya Mari kita serukan kata semangat! untuk GUCC 2012 tahun depan.. HEHE

TAMPILAN MENU UTAMA YANG DINGINKAN
1. MENUJU PROSEDUR KONVERSI DARI DETIK KE JAM SISA MENIT DAN SISA DETIK
2. MENUJU PROSEDUR KONVERSI DARI INPUTAN JAM MENIT DAN JUGA DETIK
3. KELUAR PROGRAM

Agar sedikit gambar berikut layout output program yang diinginkan:

I. TAMPILAN MENU UTAMA KONVERSI


II. KONVERSI DETIK KE JAM DAN SISA MENIT SISA DETIK


III. KONVERSI INPUTAN JAM MENIT DAN JUGA DETIK KE BENTUK DETIK


CODINGNYA DI SINI VERSI UZI-ONLINE:

Program Konversi_Detik_TES_GUCC2011(Tipe2);
uses crt;
var detikin,jam, detik, menit:longint;
pil:byte;

procedure detiktojam;
begin
clrscr;
gotoxy(32,8);write('DETIK : ');readln(detikin);
gotoxy(32,11);writeln('HASIL KONVERSI:');
jam:=detikin div 3600;
gotoxy(32,13);writeln('JAM : ',jam);
menit:=round(detikin-3600) div (60*jam);
gotoxy(32,14);writeln('MENIT : ',menit);
detik:=round(detikin-(jam*3600)-(menit*60));
gotoxy(32,15);write('DETIK : ',detik);
readln;
end;

procedure jamtodetik;
begin
clrscr;
gotoxy(32,8);write('JAM : ');readln(jam);
gotoxy(32,10);write('MENIT: ');readln(menit);
gotoxy(32,12);write('DETIK: ');readln(detik);
writeln;
gotoxy(32,14);writeln('HASIL KONVERSI:');
detikin:=(jam*3600)+(menit*60)+(detik);
gotoxy(32,16);writeln('DETIK = ',detikin);
readln;
end;

begin
repeat
clrscr;
gotoxy(32,11);writeln(' MENU UTAMA ');
gotoxy(32,14);writeln('1.KONVERSI DARI DETIK');
gotoxy(32,16);writeln('2.KONVERSI KE DETIK ');
gotoxy(32,18);writeln('3.KELUAR AH ');
gotoxy(32,21);write('SILAHKAN PILIH MENU:');readln(pil);
case pil of
1:detiktojam;
2:jamtodetik;
end;
until pil=3;
end.


Semoga coding di atas bermanfaat bagi pembaca setia fauzi online.. Bagi teman yang sudah mencoba coding yang lebih efektif? share di comentar fauzi online yah... OKEH?? terimakasih teman... ^__^