Menu

AdS

Friday, April 25, 2014

SIZEOF


Menghitung jumlah byte dari suatu argumen.
 Contoh:

Type
Data=record
Nama:string[15];
Telp:string[7];
End;
Var p:^data;
Begin
Getmem(p,sizeof(data));
Writeln(‘Ukuran Record tersebut adalh: ‘,sizeof(data),’Byte’);
Freemem(p,sizeof(data));
Readln;
End.


No comments:

Post a Comment