Program Tipe

program tipe;
(* File : tipe.pas *)
(* contoh pendefinisian dan pengisian struktur *)

TYPE

Point = record

X : integer; (* absis *)
Y : integer; (* ordinat*)

end;

MAHASISWA = record

NIM : integer;
Nama : string;
Nilai : real;

end; (* mahasiswa *)

VAR

P1 : Point;
P2 : Point;
Mhs : MAHASISWA;

begin

writeln ( 'Contoh mengisi struktur dengan assinment : ');
writeln ( 'Titik P1, dengan P1.x dan P1.y: ');
P1.x := 1;
P1.y := 2;
writeln ( 'P1.X= ', P1.X);
writeln ( 'P1.Y= ', P1.Y);
writeln ( 'Baca Titik P2');
write ( 'Absis : ');
write ( 'Ordinat : ');
readln (P2.Y) ;
writeln ( 'Koordinat : ', P2.X, ', ', P2.Y);
mhs.nama := 'Juliette';
mhs.nim := 7473;
mhs.nilai := 80;
writeln ( 'Hasil assignment thd Mhs ');
writeln ( 'Nama = ',Mhs.Nama);
writeln ( 'Nim = ',Mhs.NIM);
writeln ( 'Nilai = ',Mhs.Nilai:6:2);

(* pemakaian WITH untuk record *)
writeln ( 'Hasil assignment thd Mhs ');
with Mhs do
begin

writeln ( 'Nama = ',Nama);
writeln ( 'Nim = ', NIM);
writeln ( 'Nilai = ',Nilai:6:2) ;

end;

end.


-----------------------------------------------------------------------------------------------
program bacarec;
(* File : Bacarec.PAS *)
(* contoh membaca record*)
(* kemudian menuliskan nilai yang dibaca *)
(* Kamus *)

TYPE Point= record

x : integer; (* absis *)
y : integer; (* ordinat *)

end; (* type Point *)

var

P1, P2 : Point;

begin

(* Program *)
writeln ( 'Contoh membaca dan menulis titik ') ;
write ( 'Absis = '); readln(P1.x);
write ( 'Ordinat = '); readln(P1.y) ;
writeln ( 'Titik yang dibaca : (', P1.x, ', ', P1.y , ')');
with P2 do
begin

write ( 'Absis = '); readln (x) ;
write ( 'Ordinat = '); readln ;
writeln ( 'Titik yang dibaca : ( ', x, ', ', y, ')');

end;

end.