🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: Help needed !!! (pascal program)

#611
From: CFB Software
Date: Fri, 20 Apr 2001 00:10
54 lines
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.135
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 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