Sabtu, 15 Desember 2012

program pascal menggunakan string


uses crt;
var
   na,al,nama:string;
   ni,thns,TI,TU,umur:real;
begin
   clrscr;
      textcolor(red);
         writeln('                     #-#==============================#-#');
         writeln('                     #-#                Nama  : Gufron arafat                  #-#');
         writeln('                     #-#                NIM   : 12012688                       #-#');
         writeln('                     #-#                Kelas : H                                     #-#');
         writeln('                     #-#                Tugas : Pascal ke 4                      #-#');
         writeln('                     #-#==============================#-#');
         writeln('=============================================================');
      textcolor(white);
         write('       *  Tahun input              : '); readln(TI);
         write('       *  Nama                      : '); readln(na);
         write('       *  NIM                        : '); readln(ni);
         write('       *  Alamat                     : '); readln(al);
         write('       *  Tahun kelahiran        : '); readln(TU);
        writeln('==============================================================');
      umur:=(TI-TU);
         writeln('       *  UMUR ANDA SAAT INI         : ',umur:2:0);
         writeln('                         ==>     TERIMAKASIH     <==');
    readln;
end.


                                         http://www.4shared.com/rar/gWQoFBTi/tugas_4.html

Tidak ada komentar:

Posting Komentar