Article View: comp.lang.pascal.borland
Article #612Re: Random function - PASCAL
From: Osmo Ronkanen
Date: Wed, 08 Dec 1999 00:00
Date: Wed, 08 Dec 1999 00:00
21 lines
1543 bytes
1543 bytes
In article <384DC718.F5C9C609@t-online.de>, Robert Rossmair <Robert.Rossmair@t-online.de> wrote: > >I consider the following to be neater than neatest :) > >const > SystemDown = False; > > ... > > repeat > DoSomething; > until SystemDown; I hope that really was a joke. things like Repeat until false may seem strange for a novice but someone who knows the language knows what it means. It might be better to use While: While true do begin... end; At that way one immediately sees that it is an eternal loop. Osmo
Technical Details
Message-ID:
<82m6am$pmv$1@kruuna.Helsinki.FI>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<384c42e3.0@news1.mweb.co.za> <384C5638.D278469F@gmx.at> <acuo4s8gc4lgbud1t3dehbaeq5oq8fl5nu@4ax.com> <384DC718.F5C9C609@t-online.de>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: fd1d1,22f85d6fecf732ec X-Google-Attributes: gidfd1d1,public X-Google-Thread: 10261c,22f85d6fecf732ec X-Google-Attributes: gid10261c,public X-Google-Thread: 111659,22f85d6fecf732ec X-Google-Attributes: gid111659,public X-Google-Thread: 102601,22f85d6fecf732ec X-Google-Attributes: gid102601,public From: ronkanen@cc.helsinki.fi (Osmo Ronkanen) Subject: Re: Random function - PASCAL Date: 1999/12/08 Message-ID: <82m6am$pmv$1@kruuna.Helsinki.FI> X-Deja-AN: 558223464 References: <384c42e3.0@news1.mweb.co.za> <384C5638.D278469F@gmx.at> <acuo4s8gc4lgbud1t3dehbaeq5oq8fl5nu@4ax.com> <384DC718.F5C9C609@t-online.de> X-Complaints-To: usenet@news.helsinki.fi X-Trace: oravannahka.helsinki.fi 944675992 14492 128.214.205.14 (8 Dec 1999 17:59:52 GMT) Organization: University of Helsinki NNTP-Posting-Date: 8 Dec 1999 17:59:52 GMT Newsgroups: comp.lang.pascal.borland,comp.lang.pascal.misc,ctdl.lang.pascal,de.comp.lang.pascal