Contoh Program Pascal Mengkonversi | sesuai dengan judulnya saya akan membagikan program pascal yang berhubungan dengan mengkonversi seperti :
- Mengkonversi satuan detik menjadi dalam jam-menit-detik
- Mengkonversi satuan jam-menit-detik menjadi dalam detik
- Mengkonversi satuan hari menjadi dalam tahun-bulan-hari
- Mengkonversi satuan tahun bulan hari menjadi hari
Dalam membuat sebuah program pascal mengkonversi tersebut dibutuhkan sebuah operator div dan mod.
div yaitu hasil pembagian tanpa koma contoh 15 div 2 adalah 7 , selanjutnya mod yaitu sisa pembagian contoh 15 mod 2 adalah 1. Biar lebih jelas cermati program dibawah ini ya!
- Mengkonversi satuan detik menjadi dalam jam-menit-detik
Program detik;
{program untuk mengkonversi satuan detik, menjadi dalam jam-menit-detik}
uses crt;
var
waktu,jam,jam2,menit,menit2,detik:integer;
begin
clrscr;
write('masukan satuan detik :');readln(waktu);
jam:=waktu div 3600;
jam2:=waktu mod 3600;
menit:=jam2 div 60;
menit2:=jam2 mod 60;
detik:=menit2;
writeln('hasil konversi :',jam,'jam-',menit,'menit-',detik,'detik');
end.
2. Mengkonversi satuan jam-menit-detik menjadi dalam detik
Program input_output;
{program konversi satuan jam menit detik menjadi dalam detik}
uses crt;
var
menit,jmldetik,detik,jam:integer;
begin
clrscr;
write('masukan satuan jam :');readln(jam);
write('masukan satuan menit :');readln(menit);
write('masukan satuan detik :');readln(detik);
jmldetik:=(jam*3600)+(menit*60)+detik;
writeln('hasilnya adalah',jmldetik,'detik');
end.
3. Mengkonversi satuan hari menjadi dalam tahun-bulan-hari
program inputoutput;
{program konversi hari ke tahun bulan hari}
uses crt;
var
j,t,t2,b,h:integer;
begin
clrscr;
write('masukan jumlah hari');readln(j);
t:=j div 365;
t2:=j mod 365;
b:=t2 div 30;
h:=t2 mod 30;
writeln('koversinya adalah ',t,'tahun ',b,'bulan ',h,'hari')
end.
4. Mengkonversi satuan tahun bulan hari menjadi hari
Program input_output;
{program konversi satuan tahun bulan hari menjadi dalam hari}
uses crt;
var
hari,jmlhari,tahun,bulan:integer;
begin
clrscr;
write('masukan satuan tahun :');readln(tahun);
write('masukan satuan bulan :');readln(bulan);
write('masukan satuan hari :');readln(hari);
jmlhari:=(tahun*365)+(bulan*30)+hari;
writeln('hasilnya adalah',jmlhari,' hari');
end.
Sekian Contoh Program Pascal Mengkonversi semoga bermanfaat bagi sahabat semua. Jika ada yang kurang jelas bisa di tanyakan dengan comment dibawah ,saya akan berusaha untuk menjawab jika ilmu saya sampai. hehehe
