In comp.lang.pascal.borland message <46d4b99e$0$30382$9b4e6d93@[EMAIL PROTECTED]
>, Wed, 29 Aug 2007 02:11:08, Wolf Behrenhoff
<NoSpamPleaseButThisIsValid3@[EMAIL PROTECTED]
> posted:
>Dr J R Stockton schrieb:
>> In comp.lang.pascal.borland message
<1188326227.893577.83760@[EMAIL PROTECTED]
>> .googlegroups.com>, 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 ;
>
>Whoops! Which x is <=1 and >=40? Should be "or" instead of "and".
Correct correction.
> (note
>that this excludes 1 and 40
That's what was requested.
>
>> Inc(J) ; A[J] := X ;
>> end ;
>> { untested, but about right; can be shortened }
>
>almost :-)
>
>Anyway, I prefer the ifs the other way round to avoid too many continue
>statements:
Agreed. As time was 23:39:32 I left it as it was!
>Also, I guess "between 1 and 40" means including 1 and 40.
Not in English; "zwischen". That's only the _intended_ meaning.
BTW, *LEGALLY*, what's the German definition of the Date of Easter
Sunday? - I mean which (web?) do***ent, not what does it say.
--
(c) John Stockton, Surrey, UK. ?@[EMAIL PROTECTED]
Turnpike v6.05
IE 6.
Web <URL:http://www.merlyn.demon.co.uk/>
- w. FAQish topics, links,
acronyms
PAS EXE etc : <URL:http://www.merlyn.demon.co.uk/programs/>
- see
00index.htm
Dates - miscdate.htm moredate.htm js-dates.htm pas-time.htm critdate.htm
etc.
|
