PROSAGA码农传奇-pascal-记录数组中字段的初始化（Pascal）[重复]

记录数组中字段的初始化（Pascal）[重复]

作者: v-star*위위
发布时间: 2025-01-16 04:08:00 (1天前)
转自：

<div class =“post-text”itemprop =“text”>
  
    在循环结束时，您应该将记录分配给数组。请注意，与类不同，分配记录
    
      副本
    
     记录中的数据，它没有
    
      参考
    
     记录。所以不是你拥有的，而是做：
  
   <pre>
 <code>
 for I := 1 to N do 
begin
 //write('Gender?'); readln(j); R.isMale:=j>=0; <= This works just fine
 write('Name? '); 
 readln(R.Name);
 write('Gender? '); 
 readln(j); 
 R.isMale := j >= 0;
 write('Grades? ');
 for j := 1 to 5 do 
 read(R.grades[J]);
 readln(R.grades[6]); // readln reads the end-of-line too.
 writeln;
 Table[I] := R; // copy the data from R into the table
end;

</code>
 </pre>
  
    那样，来自记录的数据
     <code>
 R
 </code>
     被复制到表中。没有必要复制
     <code>
 R
 </code>
     从循环开始时的表开始，因为表格无论如何都是空的。
  
  
    与类不同，使用这样的记录，您也可以执行以下操作：
  
   <pre>
 <code>
 write('Name? ');
 readln(Table[I].Name);
 write('Gender? '); 
 readln(j); 
 Table[I].isMale := j >= 0;
 // etc...

</code>
 </pre>
  
    在最后一个循环中：
  
   <pre>
 <code>
 Writeln(I, ' ', Table[I].Name, ' ', Table[I].IsMale);

</code>
 </pre>
  
    没有使用
     <code>
 R
 </code>
     一点都不
  
</DIV>