In comp.lang.pascal.borland message <1188326227.893577.83760@[EMAIL PROTECTED]
>, Tue, 28 Aug 2007 18:37:07, cmakal
<cmakalinaw@[EMAIL PROTECTED]
> posted:
>and I wanted to search it to find all values between 1 and 40.
while not EoF(F) do begin
Readln(F, S) ;
Val(S, X, N) ;
if N<>0 then continue;
if (X<=1) and (X>=40) continue ;
Inc(J) ; A[J] := X ;
end ;
{ untested, but about right; can be shortened }
--
(c) John Stockton, Surrey, UK. ?@[EMAIL PROTECTED]
Turnpike v6.05
MIME.
<URL:http://www.merlyn.demon.co.uk/>
TP/BP/Delphi/&c., FAQqy topics &
links;
<URL:http://www.merlyn.demon.co.uk/clpb-faq.txt>
RAH Prins : c.l.p.b
mFAQ;
<URL:ftp://garbo.uwasa.fi/pc/link/tsfaqp.zip> Timo Salmi's Turbo Pascal
FAQ.
|
