Maaf, Anda mengaktifkan Adblock pada browser anda!
Atau anda tidak mengaktifkan Javascript![ Disable Your AdBlock Please ]
Home > Algoritma dan Pemrograman > Menghitung Selisih Hari Antara Dua Tanggal – (Tugas No.5 Halaman 110)

Menghitung Selisih Hari Antara Dua Tanggal – (Tugas No.5 Halaman 110)

Tugas No.5 Halaman 110 – Menghitung Selisih Hari Antara Dua Tanggal
Soal :

Dibaca dua buah bilangan tanggal (dd:mm:yy). Tulislah algoritma untuk menghitung berapa hari jarak kedua tanggal tersebut. Asumsikan : 1 tahun = 365 hari, 1 bulan = 30 hari, Keluaran (tahun, bulan, hari) tampilkan ke piranti keluaran.

Source Code :




PROGRAM menghitung_selisih_antara_dua_tanggal;
USES CRT;

VAR
tanggal_pertama : INTEGER;
bulan_pertama : INTEGER;
tahun_pertama : INTEGER;
tanggal_kedua : INTEGER;
bulan_kedua : INTEGER;
tahun_kedua : INTEGER;
selisih_hari : INTEGER;

BEGIN
//Input
WRITELN('*************************');
WRITELN('ISI DATA TANGGAL PERTAMA');
WRITELN('*************************');
WRITE('Tanggal : ');READLN(tanggal_pertama);
WRITE('Bulan : ');READLN(bulan_pertama);
WRITE('Tahun : ');READLN(tahun_pertama);
WRITELN('Tanggal Pertama Adalah : ',tanggal_pertama,'-',bulan_pertama,'-',tahun_pertama);
WRITELN('------------------------------------------');
WRITELN('*************************');
WRITELN('ISI DATA TANGGAL KEDUA');
WRITELN('*************************');
WRITE('Tanggal : ');READLN(tanggal_kedua);
WRITE('Bulan : ');READLN(bulan_kedua);
WRITE('Tahun : ');READLN(tahun_kedua);
WRITELN('Tanggal Kedua Adalah : ',tanggal_kedua,'-',bulan_kedua,'-',tahun_kedua);
WRITELN('------------------------------------------');

//Proses
selisih_hari := (tanggal_kedua+(30 * bulan_kedua)+(365 * tahun_kedua))-(tanggal_pertama + ( 30 * bulan_pertama) + (365 * tahun_pertama));

//Output
WRITELN('SELISIH HARI DARI ',tanggal_pertama,'-',bulan_pertama,'-',tahun_pertama, ' <---> ',tanggal_kedua,'-',bulan_kedua,'-',tahun_kedua,' ADALAH : ',selisih_hari,' Hari');
READLN;
END.

Tampilan program ketika di jalankan :

Tugas No.5 Halaman 110

One comment

  1. Semisal tgl awalnya lebih besar dari tgl kedua gimana gan? awal=29/3/2017 , kedua=1/4/2017. Harusnya jawabannya 3 hari.

Leave a Reply

Your email address will not be published. Required fields are marked *

*