Article View: be.comp.programming
Article #17156Re: Lotto in COBOL
From: Raster Burn
Date: Mon, 31 Jan 2000 00:00
Date: Mon, 31 Jan 2000 00:00
28 lines
1725 bytes
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-mailReferences:
<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