Thursday, May 19, 2011

PROGRAM TIPE RECORD

uses wincrt;type
DataMahasiawa=record
NIM : string;
Nama : string;
Umur : string;
Status : string;
Alamat : string;
end;

Var
S:DataMahasiawa;
begin
{membaca data dari keyboard dan memasukan nilainya
ke dalam variabel S}
writeln(' Masukkan Data Diri Anda ');
write('NIM : ');readln(S.NIM);
write('Nama : ');readln(S.Nama);
write('Umur : ');readln(S.Umur);
write('Status : ');readln(S.Status);
write('Alamat : ');readln(S.Alamat);


writeln;
{Menampilkan data yang sudah dimasukan}
writeln(' Berikut informasi tenang data diri anda ');
writeln('NIM : ', S.NIM);
writeln('Nama : ', S.Nama);
writeln('Umur : ', S.Umur);
writeln('Status : ', S.Status);
writeln('Alamat : ', S.Alamat);
end.
program TipeRecord;
uses wincrt;
type
TSiswa = Record
NIM : string[8];
Nama : string[25];
Alamat : string;
Umur : integer[2];
Status : integer;
end;

Var
S:TSiswa;
begin
{membaca data dari keyboard dan memasukannya nilainya
ke dalam variabel S}
writeln('Isikan Informasi mengenai diri anda');
write('NIM : ');readln(S.NIM);
  write('Nama : ');readln(S.Nama);
write('Umur : ');readln(S.Umur);
write('Status : ');readln(S.Status);
write('Alamat : ');readln(S.Alamat);
writeln;
{Menampilkan data yang telah dimasukan}
writeln('Berikut informasi anda');
writeln('NIM : ', S.NIM);
writeln('Nama : ', S.Nama);
writeln('Umur : ', S.Umur);
writeln('Satus : ');readln(S.Status);
write('Umur : ');readln(S.Umur);
end.

Adsens