PROGRAM ex6_5;
uses crt;
const title='ex6_5 โปรแกรม ตัวแปรชุด ARRAY';
author='โดย นายองอาจ พรมประไพ';
n=10;
type namex=array [1..n] of string[25];
const name:namex= ('กมลทิน พรมประไพ','กรรณิกา อำนาจผูก',
'จักรกฤช สุยะราช','ชนาทิพย์ จันอ้าย',
'ชลชัย แก้วประเสริฐ','ชานนท์ รุ่งเรือง',
'ณัฐชลี ไชยวุฒิ','ถาวร ศรียอด',
'เพียงเดือน โล่ห์สุดใจ','แสงทอง สิริสุภา');
Var i:integer;
na:array[1..n] of char;
{main}
begin
clrscr;
gotoxy(40,2);writeln(title);
gotoxy(40,3);writeln(author);writeln;
i:=1;
repeat
gotoxy(40,i+4);writeln(' name[',i,'] = ',name[i]:-25);
i:=i+1;
until i>n;
{ gotoxy(38,4);write(' จำนวนข้อมูลนักศึกษา ');
for I:=1 to N DO
Begin
gotoxy(40,i+4);write(' คนที่ ',i,' คือ ',name[i]:-25);
end;
gotoxy(40,i+7);write(' จำนวนข้อมูล = ',n:6);}
gotoxy(40,18);write(' โปรดเคาะคีย์ใด ๆ ');readln;
end.
|
