PC^2/pc2/samps/sumit.dpr

   1 { Sample problem proba.dpr }\r
   2 \r
   3 {$APPTYPE CONSOLE}\r
   4 \r
   5 { $Id: sumit.dpr,v 1.1 2005/03/06 05:13:57 laned Exp $ }\r
   6 \r
   7 uses SysUtils;  { for StrToInt }\r
   8 \r
   9 procedure processfile (filename : string);\r
  10 var\r
  11   s : string;\r
  12   sum : longint;\r
  13   v : longint;\r
  14   tf : text;\r
  15 begin\r
  16 \r
  17  sum := 0;\r
  18  AssignFile (tf, filename);\r
  19   {$i-} reset (tf); {$i+}\r
  20   if ioresult = 0 then\r
  21   begin\r
  22     while not eof (tf) do\r
  23     begin\r
  24       readln (tf, s);\r
  25       v := strtoInt (s);\r
  26       if (v > 0) then\r
  27          sum := sum + v;\r
  28     end;\r
  29     close (tf);\r
  30     writeln('The sum of the positive integers is ',sum);\r
  31   end\r
  32 \r
  33   else\r
  34      writeln ('Could not open file '+filename+' for read ');\r
  35 end;\r
  36 \r
  37 \r
  38 begin\r
  39      processfile ('sumit.dat');\r
  40 end.\r