Article View: comp.lang.pascal.delphi.misc
Article #611Re: Help needed !!! (pascal program)
From: CFB Software
Date: Fri, 20 Apr 2001 00:10
Date: Fri, 20 Apr 2001 00:10
54 lines
2890 bytes
2890 bytes
Oops - thanks for pointing that out! Forgot to follow my own rule of actually compiling the code and running it before publishing it - no matter how simple it might seem. Chris Burrows CFB Software http://www.cfbsoftware.com.au "M.H. Avegaart" <avegaartNOSPAM@mccomm.nl> wrote in message news:9bm4o3$qo5$1@porthos.nl.uu.net... > Last time I checked dice had 6 sides (at least the most common ones), so the > code should be: > > DieThrow := Random(6) + 1; > > > "CFB Software" <info@cfbsoftware.com.au> schreef in bericht > news:3ade7bdb@news.iprimus.com.au... > > Randomize; // Call once only to initialise > > .... > > .... > > DieThrow := Random(5) + 1; > > > > Each execution of this statement will assign a random number in the range > 1 > > to 6 to DieThrow if that is what you are trying to do, > > > > Chris Burrows > > CFB Software > > http://www.cfbsoftware.com.au > > > > "Maarten" <mvddonk@wish.nl> wrote in message > > news:987631802.275373@news.l3.wish.net... > > > Can anyone help me with this program i'm trying to make !? > > > The idea of the program is to simulatie the throwing of a die. > > > Can anyone help me? > > > Thanks !! > > > > > > -------------------DUTCH------------------- > > > Kan iemand mij helpen met het maken van een programma !? > > > Het idee is om een programma te maken wat het gooien van een dobbelsteen > > > simuleerd. > > > Alvast bedankt !! > > > -------------------DUTCH------------------- > > > > > > > > > > > >
Technical Details
Message-ID:
<3adf7e6a@news.iprimus.com.au>Path:
arc1-ca.pugleaf.net!supernews.google.com!newsfeed.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!intgwpad.nntp.telstra.net!news1.optus.net.au!optus!news0.optus.net.au!news.iprimus.com.au!203.134.19.135References:
<987631802.275373@news.l3.wish.net> <3ade7bdb@news.iprimus.com.au> <9bm4o3$qo5$1@porthos.nl.uu.net>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 1097b9,efc23ac230e573b5 X-Google-Attributes: gid1097b9,public X-Google-Thread: 10baee,efc23ac230e573b5 X-Google-Attributes: gid10baee,public X-Google-ArrivalTime: 2001-04-19 17:10:19 PST Path: arc1-ca.pugleaf.net!supernews.google.com!newsfeed.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!intgwpad.nntp.telstra.net!news1.optus.net.au!optus!news0.optus.net.au!news.iprimus.com.au!203.134.19.135 From: "CFB Software" <info@cfbsoftware.com.au> Newsgroups: comp.lang.pascal.delphi.misc,dk.edb.programmering.pascal References: <987631802.275373@news.l3.wish.net> <3ade7bdb@news.iprimus.com.au> <9bm4o3$qo5$1@porthos.nl.uu.net> Subject: Re: Help needed !!! (pascal program) Lines: 56 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 5.50.4133.2400 X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400 X-Original-NNTP-Posting-Host: 203.134.19.135 Message-ID: <3adf7e6a@news.iprimus.com.au> X-Original-Trace: 20 Apr 2001 10:10:18 +1000, 203.134.19.135 Date: Fri, 20 Apr 2001 09:40:09 +0930 NNTP-Posting-Host: 203.134.64.67 X-Trace: news0.optus.net.au 987725418 203.134.64.67 (Fri, 20 Apr 2001 10:10:18 EST) NNTP-Posting-Date: Fri, 20 Apr 2001 10:10:18 EST Organization: CWO Customer - reports relating to abuse should be sent to abuse@cwo.net.au