Contoh Program Sederhana - Konversi AM Ke PM Di Pascal

Aplikasi Sederhana - Konversi AM Ke PM Di Pascal (By Ronny Liem)
Aplikasi Sederhana - Konversi AM Ke PM Di Pascal 



program Konversi_AM_PM;
uses Crt;
var
iJam,hJam:integer;

begin
clrscr;
WriteLn(' APLIKASI SEDERHANA - KONVERSI AM KE PM DAN SEBALIKNYA ');
WriteLn('=======================================================');
Write  ('>> Masukan Jam : '); ReadLn(iJam);
if (iJam>=0) and (iJam<=12) then
begin
hJam:=iJam + 12;
end
else if(iJam>=13) and (iJam<=24) then
begin
hJam:=iJam - 12;
end
else
begin
WriteLn('>> Jam yang anda masukan tidak valid');
end;
WriteLn('>> Waktu Dalam Format AM/PM : ' , hJam);
writeLn('======= THANKS YOU FOR USING MY SIMPLE PROGRAM ========'); 
ReadLn;
end.

Subscribe Untuk Mendapatkan Info Terbaru Dari Kami Lewat Email:

Tidak Ada Tanggapan Untuk "Contoh Program Sederhana - Konversi AM Ke PM Di Pascal"

Post a Comment