🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.pascal.delphi.misc
Article #616

Re: Help needed !!! (pascal program)

#616
From: James Roberts
Date: Thu, 19 Apr 2001 12:03
45 lines
2516 bytes
Wouldn't the results of Random(5) be 0 through 5? If so, then
Random(5)+1 would yield 1 through 6.

Bill Braun


"M.H. Avegaart" wrote:
> 
> 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: <3ADED429.1C9CDC4A@privacy.net>
Path: arc1-ca.pugleaf.net!supernews.google.com!newsfeed.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!jfk3-feed1.news.digex.net!intermedia!plonk.apk.net!news.apk.net!not-for-mail
References: <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 05:04:54 PST
Path: arc1-ca.pugleaf.net!supernews.google.com!newsfeed.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!jfk3-feed1.news.digex.net!intermedia!plonk.apk.net!news.apk.net!not-for-mail
From: James Roberts <me@privacy.net>
Newsgroups: comp.lang.pascal.delphi.misc,dk.edb.programmering.pascal
Subject: Re: Help needed !!! (pascal program)
Date: Thu, 19 Apr 2001 08:03:53 -0400
Organization: APK Net
Lines: 45
Message-ID: <3ADED429.1C9CDC4A@privacy.net>
References: <987631802.275373@news.l3.wish.net> <3ade7bdb@news.iprimus.com.au> <9bm4o3$qo5$1@porthos.nl.uu.net>
NNTP-Posting-Host: as1-icg-21.cleveland.apk.net
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: plonk.apk.net 987681894 9591 207.54.186.31 (19 Apr 2001 12:04:54 GMT)
X-Complaints-To: abuse@apk.net
NNTP-Posting-Date: 19 Apr 2001 12:04:54 GMT
X-Mailer: Mozilla 4.7 [en] (WinNT; I)
X-Accept-Language: en,pdf