Pascal : Menentukan Tahun Kabisat yang mengirimkan sebuah Boolean dengan Function

Tahun Kabisat --- Program pascal kali ini kita akan mempraktekkan untuk membuat program menentukan tahun kabisat yang mengirimkan sebuah boolean dengan menggunakan perintah function.

Tahun kabisat adalah tahun yang mengalami penambahan satu hari dengan tujuan untuk menyesuaikan penanggalan dengan tahun astronomi. Dalam satu tahun tidak secara persis terdiri dari 365 hari, tetapi 365 hari 5 jam 48 menit 45,1814 detik. Jika hal ini tidak dihiraukan, maka setiap 4 tahun akan kekurangan hampir 1 hari (tepatnya 23 jam 15 menit 0,7256 detik). Maka untuk mengkompensasi hal ini, setiap 4 tahun sekali (tahun yang bisa dibagi 4), diberi 1 hari ekstra: 29 Februari. Tetapi karena 5 jam 48 menit 45,1814 detik kurang dari 6 jam, maka tahun-tahun yang bisa dibagi 100 (seperti tahun 1900), bukan tahun kabisat, kecuali bisa dibagi dengan 400 (seperti tahun 2000).

Nah seperti itu pengertian tahun kabisat, jadi setiap empat tahun sekali bulan Februari akan berakhir di tanggal 29.

Untuk mempermudah menghitung tahun kabisat bisa menggunakan kode dibawah sebagai scriptnya. mempemudah menghitung apakah tahun berikutnya termasuk kabisat atau bukan. Dalam kode ini menggunakan contoh penggunaan boolean dan function. Berikut kodenya:

program tahunkabisat_fungsi;
uses wincrt;
var

tahn:integer;
function kabisat(tahun:integer):boolean;
begin
kabisat:=not boolean (tahun mod 100 or tahun mod 400);
end;
begin
writeln(' Tugas 5 Program tahun kabisat dengan Boolean');
writeln('====================================================');
write('Masukkan Tahun : ');readln(tahn);
writeln('====================================================');
case kabisat(tahn) of
true: writeln('Tahun ',tahn,' Termasuk Tahun Kabisat');
false: writeln('Tahun ',tahn,' Bukan Termasuk tahun Kabisat');
end;
end.

Hasil Running

Program ini akan mempermudah kita menghitung tahun kabisat. hanya dengan memasukkan tahun yang akan ingin diketahui, akan langsung keluar hasil yang menentukan termasuk tahun kabisat atau tidak. dalam kode terdapat contoh penggunaan boolean dan function.

Sekian artikel kali ini tentang Menentukan Tahun Kabisat dengan Boolean dan Function. Semoga bermanfaat.

Wassalam

TekProgApp

Pascal : Menentukan Tahun Kabisat yang mengirimkan sebuah Boolean dengan Function

No comments:

Post a Comment

Subscribe