Selasa, 25 Oktober 2011

PASKAL


MEMBUAT DATA MAHASISWA
Uses wincrt;
Type      mahasiswa       = record
                nim                        :string;
                Nama                   :string;
                Alamat                 :string;
                Pekerjaan           :string;
                Umur                    :string;
End;

Var         data      :mahasiswa;
ui            :char;

Begin
Clrscr;
Writeln(‘==================================’);
Writeln;
Writeln(‘               membuat data mahasiswa            ’);
Writeln;
Writeln(‘by mohamad echa putra’);
Writeln;
Writeln(‘==================================’);
Writeln;
Writeln;
Write(‘nim                         : ‘); readln(data.nim);
Write(‘nama                     : ‘); readln(data.nama);
Write(‘alamat                  : ‘); readln(data.alamat);
Write(‘pekerjaan             : ‘); readln(data.pekerjaan);
Write(‘umur                      : ‘); readln(data.umur);
Writeln;
Writeln;

Clrscr;
Writeln(‘==========================================’);
Writeln;
Writeln(‘                               data mahasiswa                                  ‘);
Writeln;
Writeln(‘===========================================’);
Writeln;
Writeln(‘nim                     |nama                  |alamat               |pekerjaan                         |umur’);
Writeln(data.nim,’|       ‘,data.nama,’| ‘,data.alamat,’|              ‘,data.pekerjaan,’|         ‘,data.umur);
Writeln;
Writeln;
End.

Tidak ada komentar:

Posting Komentar