🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #17156

Re: Lotto in COBOL

#17156
From: Raster Burn
Date: Mon, 31 Jan 2000 00:00
28 lines
1725 bytes
> Alle hulp is welkom bij het maken van een lotto-simulatie onder Cobol.
>
> Er moet zeker een random-routine inzitten die 7 cijfers (6 + reservegetal)
> geeft,
> het invoeren van een nieuwe trekking moet mogelijk zijn en een output van
de
> meest en minst-getrokken getallen van de voorbije jaren is deel van de
> opgave.
>

lijkt me vrij gemakkelijk

1. je laat een random getal maken tussen 1 en 42 (of tot hoeveel de lotto
ook mag gaan...) en je controleert of dit getal al niet eerder "getrokken"
was
2. meest en minst getrokken getallen zou ik oplossen met een array (van
integers) van 1 tot en met 42. Als een getal x dan getrokken wordt, doe je
gewoon het COBOL equivalent van lottocijfer(x)=lottocijfer(x)+1. Controleren
wat het meest of minst voorkomende getal is, is dan kinderspel.


voila zie, da's alweer opgelost, nog vragen?


----------------------------------------------------------------------
Raster does-it-Basicly-Visual Burn
rasterburn@pandora.be
http://users.pandora.be/joris.janssens/
Technical Details
Message-ID: <z4ll4.2439$ot2.22530@afrodite.telenet-ops.be>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <871q3t$243e$1@buty.wanadoo.nl>

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,afa978210bced046
X-Google-Attributes: gidfcea4,public
From: "Raster Burn" <rasterburn@pandora.be>
Subject: Re: Lotto in COBOL
Date: 2000/01/31
Message-ID: <z4ll4.2439$ot2.22530@afrodite.telenet-ops.be>
X-Deja-AN: 580000205
References: <871q3t$243e$1@buty.wanadoo.nl>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
X-Complaints-To: abuse@pandora.be
X-Trace: afrodite.telenet-ops.be 949345695 212.123.14.246 (Mon, 31 Jan 2000 20:08:15 MET)
Organization: Cyberstar International
X-MSMail-Priority: Normal
NNTP-Posting-Date: Mon, 31 Jan 2000 20:08:15 MET
Newsgroups: be.comp.programming