By : Shahnaz (06101008010) ^__^
------------------------------------------------------------------------------
Program ApaAja;
uses WINCRT;
var
pilihan : byte;
procedure keluar;
var
a:string;
begin
clrscr;
gotoxy(10,3);writeln('TERIMAKASIH ATAS KUNJUNGANNYA ^__^');
WRITELN;
WRITELN;
gotoxy(10,7);writeln('By : SHAHNAZ (06101008010) ^__^');
writeln;
writeln;
GOTOXY(10,11);writeln(' ##### # # ## # # # # # ## ');
GOTOXY(10,12);writeln(' # # # # # ## # # # # ');
GOTOXY(10,13);writeln(' # ##### #### # # # ## ## ');
GOTOXY(10,14);writeln(' # # # # # # ## # # # ');
GOTOXY(10,15);writeln(' # # # # # # # # # ## ');
writeln;
gotoxy(10,20); write('PRESS ANY KEY: ');READLN(A);
end;
procedure Konversi_Uang;
const
pecahan:array[1..14] of longint=(100000,50000,20000,10000,5000,1000,500,100,50,25,20,10,5,1);
var
uang,lembar:longint;
i:integer;
A:STRING;
begin
clrscr;
gotoxy(7,3);writeln('=======================================');
gotoxy(7,4);writeln(' K O N V E R S I J U M L A H U A N G');
Gotoxy(7,5);writeln('=======================================');
writeln;
writeln;
begin
GOTOXY(7,8);write(' Inputkan nilai uang :Rp '); readln(uang);
end;
writeln;
for i:=1 to 14 do
begin
lembar:=uang div pecahan[i];
uang:=uang mod pecahan[i];
if lembar>0 then
writeln(' ',lembar,' Lembar pecahan ',' ',pecahan[i]);
END;
READKEY;
gotoxy(10,20); write('P R E S S A N Y K E Y : '); readln(a);
END;
procedure Konversi_Suhu;
var
plhn:byte;
procedure celcius;
var
C,F,R,K:real;
A:string;
begin
clrscr;
gotoxy(7,3);writeln('=================================================');
gotoxy(7,4);writeln('C E L C I U S -> FAHRENHEIT ; REAMUR ; KELVIN');
gotoxy(7,5);writeln('=================================================');
gotoxy(7,8);write('masukkan suhu dlm celcius: '); read(C);
F:=(9/5*C)+32;
R:=4/5*C;
K:=C+273;
gotoxy(7,10);writeln('setelah dikonversi ',C:4:2, ' Celcius');
gotoxy(10,12);writeln('=',F:4:2,' Fahrenheit');
gotoxy(10,13);writeln('=',R:4:2,' Reamur');
gotoxy(10,14);writeln('=',K:4:2,' Kelvin');
readln;
gotoxy(10,20); write('P R E S S A N Y K E Y : '); readln(a);
end;
procedure Fahrenheit;
var
F,C,K,R:real;
a:string;
begin
clrscr;
gotoxy(7,3);writeln('=================================================');
gotoxy(7,4);writeln('F A H R E N H E I T -> CELCIUS ; REAMUR ; KELVIN');
gotoxy(7,5);writeln('=================================================');
gotoxy(7,9);write('Masukkan suhu dalam Fahrenheit: '); readln(F);
C:=5/9*(F-32);
R:=4/9*F;
K:=C+273;
gotoxy(7,12);writeln('setelah dikonversi ',F:4:2,' Fahrenheit');
gotoxy(10,13);writeln('=',C:4:2,' Celcius');
gotoxy(10,14);writeln('=',R:4:2,' Reamur');
gotoxy(10,15);writeln('=',K:4:2,'kelvin');
readln;
gotoxy(10,20); write('P R E S S A N Y K E Y : '); readln(a);
end;
procedure Reamur;
var
F,C,K,R:real;
a: string;
begin
clrscr;
gotoxy(7,3);writeln('==============================================');
gotoxy(7,4);writeln('R E A M U R -> CELCIUS ; FAHRENHEIT ; KELVIN');
gotoxy(7,5);writeln('==============================================');
gotoxy(7,8);write('masukkan suhu dalam Reamur: '); readln(R);
C:=5/4*R;
F:=9/5*C;
K:=C+273;
gotoxy(7,10);writeln('setelah dikonversi ',R:4:2,' Reamur');
GOTOXY(10,11);WRITELN('= ',C:4:2,' Celcius');
gotoxy(10,12);writeln('= ',F:4:2,' Fahrenheit');
gotoxy(10,13);writeln('= ',K:4:2,' Kelvin');
readln;
gotoxy(10,15); write('P R E S S A N Y K E Y : '); readln(a);
end;
procedure Kelvin;
var
F,C,K,R:real;
a:string;
begin
clrscr;
gotoxy(7,3);writeln('===============================================');
gotoxy(7,4);writeln('K E L V I N -> CELCIUS ; REAMUR ; FAHRENHEIT');
gotoxy(7,5);writeln('===============================================');
GOTOXY(7,8);write('masukkan suhu dalam Kelvin: '); readln(K);
C:=K-273;
R:=4/5*C;
F:=9/5;
writeln;
gotoxy(7,10);writeln('setelah dikonversi ',K:4:2,' Kelvin');
gotoxy(10,11);writeln('= ',C:4:2,' Celcius');
gotoxy(10,12);writeln('= ',R:4:2,' Reamur');
gotoxy(10,13);writeln('= ',F:4:2,' Fahreinheit');
readln;
gotoxy(10,15); write('P R E S S A N Y K E Y : '); readln(a);
end;
begin
repeat
clrscr;
gotoxy(15,3);writeln('======================');
gotoxy(15,5);writeln('PROGRAM KONVERSI SUHU ');
gotoxy(15,7);Writeln('======================');
writeln;
gotoxy(15,9);writeln(' M E N U input ');
gotoxy(15,11);writeln('---------------------- ');
gotoxy(15,12);Writeln('(1). C E L C I U S ');
gotoxy(15,13);writeln('(2). F A H R E N H E I T');
gotoxy(15,14);writeln('(3). R E A M U R');
gotoxy(15,15);writeln('(4). K E L V I N');
gotoxy(15,16);writeln('(5). K E MENU UTAMA ');
writeln;
gotoxy(10,19);write('masukkan pilihan anda : '); readln(plhn);
case plhn of
1:celcius;
2: Fahrenheit;
3: Reamur;
4: Kelvin;
5: keluar;
end;
until plhn=5;
end;
procedure Konversi_Waktu;
var
pil:byte;
procedure Hitungjam;
var
masukkan_jam,hari,sisa1,menit,detik:longint;
a:string;
begin
clrscr;
gotoxy(13,3);writeln('=================================================');
gotoxy(13,4);writeln(' J A M -> HARI ; MENIT ; DETIK');
gotoxy(13,5);writeln('=================================================');
gotoxy(13,8);write(' INPUT jam: ');readln(masukkan_jam);
hari:=masukkan_jam div 24;
sisa1:=masukkan_jam mod 24;
menit:=sisa1*60;
detik:=sisa1*3600;
gotoxy(13,10);writeln('setelah dikonversi',masukkan_jam,' Jam sama dengan :');
gotoxy(15,12);writeln(hari,' Hari ',sisa1,' Jam');
WRITELN;
gotoxy(15,14);writeln('atau');
writeln;
gotoxy(15,16);writeln(hari,' Hari ',menit,' Menit');
writeln;
gotoxy(15,18);writeln('atau');
writeln;
gotoxy(15,20);writeln(hari,' Hari ',detik,' Detik');
readln;
gotoxy(19,23); write('P R E S S A N Y K E Y : '); readln(a);
END;
procedure Hitung_Menit;
var
masukkan_menit,hari,jam,menit,detik,sisa1:longint;
A:STRING;
begin
clrscr;
gotoxy(13,3);writeln('=================================================');
gotoxy(13,4);writeln(' M E N I T -> HARI ; JAM ; DETIK');
gotoxy(13,5);writeln('=================================================');
gotoxy(13,8);write(' INPUT menit: '); readln(masukkan_menit);
hari:=masukkan_menit div 1440;
sisa1:=masukkan_menit mod 1440;
jam:=sisa1 div 60;
menit:=sisa1 mod 60;
detik:=sisa1*60;
WRITELN;
GOTOXY(15,10);writeln('setelah dikonversi ',masukkan_menit, ' Menit samadengan: ');
gotoxy(15,12);writeln(hari,' Hari');
gotoxy(15,13);writeln(jam,' Jam');
gotoxy(15,14);writeln(menit,' Menit');
gotoxy(15,16);writeln('atau');
gotoxy(15,18);writeln(hari,' Hari');
gotoxy(15,19);writeln(jam,' Jam');
gotoxy(15,20);writeln(detik,' Detik');
readln;
gotoxy(19,23); write('P R E S S A N Y K E Y : '); readln(a);
end;
procedure HitungDetik;
var
masukkan_detik:longint;
hari,sisa1,jam,sisa2,menit,detik:longint;
a:string;
begin
clrscr;
gotoxy(13,3);writeln('=================================================');
gotoxy(13,4);writeln(' D E T I K -> HARI ; JAM ; MENIT ');
gotoxy(13,5);writeln('=================================================');
gotoxy(13,8);write(' Input detik: ');readln(masukkan_detik);
hari:=masukkan_detik div 86400;
sisa1:=masukkan_detik mod 86400;
jam:=sisa1 div 3600;
sisa2:=sisa1 mod 3600;
menit:=sisa2 div 60;
detik:=sisa2 mod 60;
GOTOXY(15,10);writeln('setelah dikonversi ',masukkan_detik,' Detik samadengan ');
gotoxy(15,12);writeln(hari,' Hari');
gotoxy(15,13);writeln(jam,' Jam');
gotoxy(15,14);writeln(menit,' Menit');
gotoxy(15,15);writeln(detik,' Detik');
readln;
gotoxy(19,20); write('P R E S S A N Y K E Y : '); readln(a);
end;
begin
repeat
clrscr;
gotoxy(15,3);writeln('======================');
gotoxy(15,5);writeln('PROGRAM KONVERSI WAKTU');
gotoxy(15,7);Writeln('======================');
writeln;
gotoxy(15,9);writeln(' M E N U input ');
gotoxy(15,10);Writeln('(1). JAM ');
gotoxy(15,11);writeln('(2). MENIT');
gotoxy(15,12);writeln('(3). DETIK');
gotoxy(15,13);writeln('(4). Kembali Ke Menu Utama');
writeln;
gotoxy(10,17);write('masukkan pilihan anda : '); readln(pil);
case pil of
1 : Hitungjam;
2 : Hitung_Menit;
3 : HitungDetik;
4 : keluar;
end;
until pil=4;
end;
begin
repeat
clrscr;
gotoxy(10,3);writeln('==========================================');
gotoxy(10,5);writeln('# # ## # # # # #### #### ### #');
gotoxy(10,6);writeln('# # # # ## # # # # # # # # #');
gotoxy(10,7);writeln('## # # # # # # # ### #### ## #');
gotoxy(10,8);writeln('# # # # # ## # # # # # # #');
gotoxy(10,9);writeln('# # ## # # # #### # # ### #');
gotoxy(10,11);writeln('===========================================');
writeln;
writeln;
gotoxy(15,15);writeln('******************************');
gotoxy(15,16);writeln('* M E N U *');
gotoxy(15,17);writeln('******************************');
gotoxy(15,18);writeln('* 1.Konversi W A K T U *');
gotoxy(15,19);writeln('* 2.Konversi U A N G *');
gotoxy(15,20);writeln('* 3.Konversi S U H U *');
gotoxy(15,21);writeln('* 4. E X I T *');
gotoxy(15,22);writeln('******************************');
writeln;
writeln;
write('pilihan: ');
readln(pilihan);
begin
clrscr;
case pilihan of
1 : konversi_waktu;
2 : Konversi_Uang;
3: Konversi_Suhu;
4: keluar;
end;
end;
until pilihan=4;
end.
end.
----------------------------------------------------------------------------------------------------------------------------------
outputnya:
Tidak ada komentar:
Posting Komentar