filefun.pas

来自「本Delphi项目文件为本人在一个Pascal-s（子集）源代码基础上完成的。本」· PAS 代码 · 共 47 行

{$+}
program test(input,output);
type
	tstudent=record
	    name: array [0..20] of char;
	    age : integer;
	    salary : real;
	end;
	arrstu = array [0..10] of tstudent;
var
	stua : tstudent;	
	a,b,i: integer;
	grstu : arrstu;
begin   
	a :=10;  
	b :=10;
	{目前不支持:write(stua.name);}
	stua.age :=20;
	stua.salary :=100.35;
 	
 	write(stua.age);
 	write(stua.salary);
 	for i:=1 to 10 do
 	begin
 	    write('No.');
 	    write(i);
 		  grstu[i].age 	  := i*10;
 	    write(grstu[i].age);
 		  grstu[i].salary := i*20;
 	    write(grstu[i].salary);
 	end;	
 	
 	
        a  :=2*50;
        

              
 	write('b=');
 	write(b);

 
 	write('a=');
 	write(a);
 
 	
   
end.