PEMOGRAMAN PASCAL

Program Detik Versi Sunda Dengan Menggunakan Program PASCAL

Brikut skripnya & Program jadinya :

#################################################################################
program program_detik;
uses wincrt;

var
     detik,menit,jam,sisa_detik : integer;

begin
          writeln('Program Detik Muhammad Hilmi Ahadiat');
          writeln('------------------------------------------');
          write('Mangga Lebetkeun Jumlah Detikna ='); readln(detik);



jam            := detik div 3600;
sisa_detik  :=detik mod 3600;
menit         :=sisa_detik div 60;
sisa_detik  := sisa_detik mod 60;

          writeln('------------------------------------------');
          writeln('Kangge Ninggal Hasilna Mangga di Pencet Enter');
          readln;
          writeln('------------------------------------------');
          write(detik,'detik =',jam,');
          write(menit,',sisa_detik,'detik');
          readln;

end.




#################################################################################

by:abiet-unix

Tweet