Rabu, 19 Desember 2012

  • Hitung Umur menggunakan Pascal

    Assalamulaikum wr. wb

    Di Postingan ini Nisan akan share program Hitung Umur menggunakan Pascal, Program ini adalah hasil kloningan dari Program root31 dengan menggunakan java yang nisan coba coding ulang dengan menggunakan Pascal.

    berikut adalah Listing Programnya :



    program hitung_umur;


    uses sysutils,crt;

    var

    thn,umur : integer;
    nama : string [25];
    ul : char;
    year, month, day: Word;

    begin
    repeat
    clrscr;

    DecodeDate(Date,year,month,day);
    writeln;
    writeln(' PROGRAM HITUNG UMUR IN PASCAL ');
    writeln(' By : Nisanxc0de ');
    writeln(' Thanks to : Devilzc0de.org ');
    writeln(' ============================== ' );

    write (' Masukan Nama Anda : '); readln (nama);
    write (' Masukan Tahun Lahir Anda : ') ;readln (thn);
    write (Format (' Tahun Sekarang : %d',[year]));

    umur := year - thn;
    writeln;
    writeln;
    writeln(' Umur Anda ', nama , ' adalah ',umur,' tahun');

    write(' Mau coba lagi ? [Y/T] : '); readln (ul);
    ul := Upcase (UL);
    until UL <> ('Y');

    end.
    Dan ini adalah Screen Shoot dari Hasil listing program di atas.


    Sekian dari ane Semoga Bermanfaat,
    Wassalamualaikum wr. wb.

  • 4 komentar:

    1. bukankah malah lebih simpel pake visual basic :D , dengan logika , umur = tahun sekrang - tahun lahir :)

      BalasHapus
      Balasan
      1. Share donk om listingnya di mari (p) (p) (c)

        Hapus
    2. :D , cuman kan visual basic desktop , tidak CLI kayak gini , Di Pascal Ada socket kagak ea (b)

      BalasHapus

    Copyright @ 2013 Nisan BL0G.