ソースを参照

+ Added line to show that type of return value is same as argument

michael 25 年 前
コミット
99789617ae
1 ファイル変更2 行追加0 行削除
  1. 2 0
      docs/refex/ex80.pp

+ 2 - 0
docs/refex/ex80.pp

@@ -34,5 +34,7 @@ begin
   For I:=Low(C) to High(C) do
   For I:=Low(C) to High(C) do
     C[i]:=I;
     C[i]:=I;
   Writeln ('Average :',Average(c));  
   Writeln ('Average :',Average(c));  
+  Write ('Type of return value is always same as type of argument:');
+  Writeln(high(high(word)));
 end.
 end.