Article View: comp.lang.pascal.borland
Article #622Re: Random function - PASCAL
From: Dr John Stockton
Date: Sat, 11 Dec 1999 00:00
Date: Sat, 11 Dec 1999 00:00
26 lines
2314 bytes
2314 bytes
JRS: In article <38515400@news.datacomm.ch> of Fri, 10 Dec 1999
18:47:01 in news:comp.lang.pascal.borland, Ars�ne von Wyss
<avonwyss@gmx.net> wrote:
>Hermann Kraus <hnkraus@be-ne.de> schrieb in im Newsbeitrag:
>385107DE.9C386932@be-ne.de...
>> Arno Fleck schrieb:
>
>> > And here's another possibility: ;-)
>> > WHILE True DO DoSomething;
>>
>> But how to stop then programm?
>
>Using Halt (terminate program), Exit (terminate current procedure/function)
>or Break (exit loop) in the "infinite" loop.
Admittedly inelegant ; but, in addition,
while true do begin
Write(' x? ') ; Readln(x)
process(x) end ;
can be stopped with ^C; and that's adequate for a Noddy test program.
--
� John Stockton, Surrey, UK. jrs@merlyn.demon.co.uk Turnpike v4.00 MIME. �
Web <URL: http://www.merlyn.demon.co.uk/> - FAQish topics, acronyms, & links.
Proper 4-line sig. separator is as above, a line exactly "-- " (SonOfRFC1036)
Do not Mail News to me. Before a reply, quote with ">" or "> " (SonOfRFC1036)
Technical Details
Message-ID:
<zOEWIEUuPmU4Ew+5@merlyn.demon.co.uk>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<384c42e3.0@news1.mweb.co.za> <384C4D84.1F625BA7@gmx.at> <kmko4ssvc7sr3k908b2dekf0v9lds0cfp4@4ax.com> <384C5638.D278469F@gmx.at> <acuo4s8gc4lgbud1t3dehbaeq5oq8fl5nu@4ax.com> <384DC718.F5C9C609@t-online.de> <384E9F78.E9E9946@gmx.de> <385107DE.9C386932@be-ne.de> <38515400@news.datacomm.ch>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII X-Google-Thread: fd1d1,22f85d6fecf732ec X-Google-Attributes: gidfd1d1,public X-Google-Thread: 111659,22f85d6fecf732ec X-Google-Attributes: gid111659,public X-Google-Thread: 10261c,22f85d6fecf732ec X-Google-Attributes: gid10261c,public X-Google-Thread: 102601,22f85d6fecf732ec X-Google-Attributes: gid102601,public From: Dr John Stockton <jrs@merlyn.demon.co.uk> Subject: Re: Random function - PASCAL Date: 1999/12/11 Message-ID: <zOEWIEUuPmU4Ew+5@merlyn.demon.co.uk> X-Deja-AN: 559427216 Content-Transfer-Encoding: 8bit X-NNTP-Posting-Host: merlyn.demon.co.uk:158.152.233.145 References: <384c42e3.0@news1.mweb.co.za> <384C4D84.1F625BA7@gmx.at> <kmko4ssvc7sr3k908b2dekf0v9lds0cfp4@4ax.com> <384C5638.D278469F@gmx.at> <acuo4s8gc4lgbud1t3dehbaeq5oq8fl5nu@4ax.com> <384DC718.F5C9C609@t-online.de> <384E9F78.E9E9946@gmx.de> <385107DE.9C386932@be-ne.de> <38515400@news.datacomm.ch> Content-Type: text/plain;charset=iso-8859-1 X-Complaints-To: abuse@demon.net X-Trace: news.demon.co.uk 944934340 nnrp-11:24179 NO-IDENT merlyn.demon.co.uk:158.152.233.145 Organization: Home, 'Surrey', UK MIME-Version: 1.0 Newsgroups: comp.lang.pascal.borland,comp.lang.pascal.misc,ctdl.lang.pascal,de.comp.lang.pascal