Senin, 25 Oktober 2010

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.


0 komentar to “Program Tipe”

Posting Komentar