Tugas algoritma dan pemograman

Nama: eka nurjannah wati

Nim: 201712009 

 Toturial cara mebuat Program menghitung hari menggunakan free pascal

program hari_bulan_tahun;

uses crt;

var
  hari, bulan, tahun, sisa1, sisa2 : integer;

begin
  clrscr;
  writeln (' Program Menghitung Hari');
  writeln ('==================');
  writeln;
  write ('Tulis Jumlah Hari =  ');
  readln (hari);

  tahun    := hari div 365;
  sisa1     := hari mod 365;
  bulan    := sisa1 div 30;
  sisa2     := sisa1 mod 30;
  hari       := sisa2;

  writeln;
  writeln ('Berikut hasilnya =  ',  tahun,  '  Tahun ');
  writeln ('                             ',  bulan,  '  Bulan ');
  writeln ('                             ',  hari,   '  Hari  ');
  writeln;
  writeln ('Terima Kasih Telah Mencoba.');
  readln;
end.

Share :

Tweet

✚

Related Post