tugas 3 algoritma dan pemogrman

aplikasi apa saja yang bisa dibuat oleh pascal?

jawab:

1. Program menghitung hari

program hari_bulan_tahun;
{Maulana Affan 25/10/2014 9:59}

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.

2. Program hari menjadi jam, menit dan detik

program hari_waktu;
{Maulana Affan 25/10/2014 10:21}

uses crt;
  hari, jam, menit, detik : real;
begin
  clrscr;
  writeln ('Program Menghitung Jam, Menit dan Detik');
  writeln ('=============================');
  writeln;
  write ('Tuliskan Jumlah Hari =  ');
  readln (hari);

  jam       := hari * 24;
  menit    := jam * 60;
  detik    := menit * 60;

  writeln;
  writeln ('Hasilnya adalah      =  ', jam:4:0, '  Jam ');
  writeln ('                                  ', menit:4:0, '  Menit ');
  writeln ('                                  ', detik:4:0, '  Detik ');
  writeln;
  writeln ('Bagaimana.? Keren kan.? Haha..');
  writeln ('Terima Kasih Telah Mencoba.');
  readln;
end.

3. Program mengkonversi detik

program konversi_waktu;
{Maulana Affan 22/10/2014 16:56}

uses crt;
var
  jam, menit, detik, sisa, sisa2 : integer;

begin
  clrscr;
  writeln ('Program Konversi Waktu');
  writeln;
  writeln ('Masukkan Data');
  write ('Detik =  ');
  readln (detik);

  jam      := detik div 3600;
  sisa      := detik mod 3600;
  menit   := sisa div 60;
  sisa2    := sisa mod 60;
  detik    := sisa2;

  writeln;
  writeln ('Ini hasilnya =  ',jam,  '  Jam');
  writeln ('                      ',menit,  '  Menit');
  writeln ('                      ',detik,  '  Detik');
  readln;
end.

 

 

Wahyu seplufi yani

201712050

Share :

Tweet

✚

Related Post