Friday, May 13, 2011

28. ตัวอย่างการสร้าง record


type student = record
name : string[100];
age : byte;
grade: byte;
end;
เวลาใช้ต้องประกาศตัวแปร
var Anna:Student;
การอ้างถึง
Anna.name := 'Natali';
readln(Anna.age);
writeln(Anna.grade);

No comments:

Post a Comment