Răsfoiți Sursa

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

michael 25 ani în urmă
părinte
comite
99789617ae
1 a modificat fișierele cu 2 adăugiri și 0 ștergeri
  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.