Program Ex8_2;
Uses Crt;
Const Title = ' ข้อมูลแบบโครงสร้าง';
Author = ' โดยนายองอาจ พรมประไพ';
Type Student = Record
id : string[3];
name : string[25];
sx : integer;
wei : integer;
end;
tsex = array [1..3] of string[4];
stud = array [1..3] of student;
Const std : stud = ((id:'001';name:'กมลทิน ';sx:3;wei:60),
(id:'002';name:'เพียงเดือน';sx:3;wei:52),
(id:'006';name:'องอาจ ';sx:1;wei:60));
sex:tsex=('นาย ','น.ส.','นาง ');
Procedure display(x,y:integer);
var i : integer;
begin
for i := 1 to 3 do
begin
gotoxy(x,y); write('รหัส : ',std[i].id:3);
gotoxy(x,y+1);write('ชื่อ : ',sex[std[i].sx],std[i].name:-25);
gotoxy(x,y+2);write('เพศ : ',std[i].sx,'<',sex[std[i].sx],'>');
gotoxy(x,y+3);write('น้ำหนัก : ',std[i].wei:3,' กก.');
x := x+25;
end;
end;
Begin
Clrscr;
Writeln(title);Writeln(author);Writeln;
display(2,5);
writeln; gotoxy(25,20);write('wait');readln;
end.
|
 |
|