🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: Help needed !!! (pascal program)

#615
From: M.H. Avegaart
Date: Thu, 19 Apr 2001 07:38
38 lines
2317 bytes
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: <9bm4o3$qo5$1@porthos.nl.uu.net>
Path: arc1-ca.pugleaf.net!supernews.google.com!newsfeed.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.mathworks.com!newsfeed2.news.nl.uu.net!sun4nl!reader1.news.nl.uu.net!not-for-mail
References: <987631802.275373@news.l3.wish.net> <3ade7bdb@news.iprimus.com.au>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10baee,efc23ac230e573b5
X-Google-Attributes: gid10baee,public
X-Google-Thread: 1097b9,efc23ac230e573b5
X-Google-Attributes: gid1097b9,public
X-Google-ArrivalTime: 2001-04-19 00:39:52 PST
Path: arc1-ca.pugleaf.net!supernews.google.com!newsfeed.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.mathworks.com!newsfeed2.news.nl.uu.net!sun4nl!reader1.news.nl.uu.net!not-for-mail
From: "M.H. Avegaart" <avegaartNOSPAM@mccomm.nl>
Newsgroups: comp.lang.pascal.delphi.misc,dk.edb.programmering.pascal
Subject: Re: Help needed !!! (pascal program)
Date: Thu, 19 Apr 2001 09:38:58 +0200
Organization: UUNET-NL (http://www.nl.uu.net)
Lines: 40
Message-ID: <9bm4o3$qo5$1@porthos.nl.uu.net>
References: <987631802.275373@news.l3.wish.net> <3ade7bdb@news.iprimus.com.au>
NNTP-Posting-Host: 1cust19.tnt27.rtm1.nl.uu.net
X-Trace: porthos.nl.uu.net 987665987 27397 213.116.148.19 (19 Apr 2001 07:39:47 GMT)
X-Complaints-To: abuse@nl.uu.net
NNTP-Posting-Date: 19 Apr 2001 07:39:47 GMT
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