Hogyan kell megírni ezt free pascalban?

Kedves Honeyboney!

Nem gondolod, hogy a minapi kérdésed könnyű sikerétől megmámorosodva kezdesz elpimaszodni? Ez az oldal nem leckeautomata, amibe behajítod a feladatot, és kijön a megoldás. Leszel szíves magad is foglalkozni a neked kiosztott munkával, mutasd be, meddig jutottál, és közöld, mi jelenti a nehézséget a továbblépésben. Mindenki örömmel fog segíteni, ha csicskáztatás helyett te is megfogod a dolog végét.

"Talán csak gőzöm sincs hogy kell ezt csinálni."

Ne aggódj, nem vagy ezzel egyedül.

"Talán csak gőzöm sincs hogy kell ezt csinálni"

Feltételezem, iskolai feladathoz kell. Onnan gondolom, hogy ha az ember magától kezd gyakorolni, általában életszagúbb példákat talál ki. :D

Ha pedig iskolába kell, gondolom, tanultátok is, hogy hogyan. Persze, nincsenek illúzióim, 10 évet húztam le a közoktatásban rendszergazdaként, és nem volt ritka, hogy a tanerő óra előtt hozzám jött segítségért, hogy mit hogyan kell Pascalban megírni, majd fél óra múlva azt élesben, órán tanította. De kettőn áll a vásár, mert amikor a tanulók 90%-a csak azt lesi, hogy hogyan tud tanulás helyett slither.io-n baromkodni, majd doga után szidják a tanárt, hogy ugyan már, miért lett satu az érdemjegy... de mindegy is, nem akarom itt az erkölcscsőszt játszani.

Arra viszont számíts, hogy itt a segítési hajlandóság a nullához közelít. Akármelyik témában a többség szívesen segít, még akkor is, ha rendkívül béna kérdést tesznek fel, itt viszont a "keress rá magad", és a "hogy képzeled, hogy ingyen bármit is segítenék?" kérdések tömkelegéből van lehetőséged mazsolázni.

Abban persze igazuk van, hogy azzal sokra nem mész, ha odatesznek eléd egy kész programot, attól te nem fogod megérteni, hogy mi mit, és hogyan csinál.

Nem tudom, angolul mennyire tudsz, de a Free Pascalnak rendkívül jó online leírása van, például: [link]

Magyar nyelvű segítség: [link] (konkrétan találsz példát a véletlenszámgenerálásra is.)

A különbség pedig annyi, hogy kivonod a két számot egymásból.

Primkó amatőrök válaszolgatnak itt, hülyeséget, de arra van eszük a majmoknak, hogy kitöröltessék azt a hozzászólást, ami rámutat a hibáikra.

Ne hallgass ezekre a buta bohócokra.

A freepascalban van a random függvénynek intervallum segédfüggvénye, ezzel beállíthatod a véletlenszám minimax értékeit.

Az meg nem lesz jó, hogy kivonod az egyiket a másikból és kész, mert ha az elsőként generált szám kisebb a másodiknál, akkor hibás lesz az eredmény.

A kivonást emiatt ABS függvénnyel kell végrehajtani.

„Talán csak gőzöm sincs hogy kell ezt csinálni.”

Ez ugyebár lehetetlen, hiszen akkor a módszer iránt érdeklődtél volna, nem pedig mással akarnád megíratni. Ennyit a kérdés feltevéséről. A módszert ezek után megkaptad, ehhez képest még mindig jelenidőben „gőzöd sincs”. Ha már a talánoknál tartunk, talán csak lusta voltál beírni a keresőbe, hogy „pascal véletlen”, vagy akár „pascal dobókocka” hátha a világtörténelem során valaki már próbálkozott hasonlóval. Talán utána nem kerestél rá a Random() függvény működésére. Talán nem értetted meg. Talán nem sikerült a kódodban használnod, talán azt se tudod, mi fán terem egy pascal-program. Talán tévedsz, ha azt hiszed, hogy ennek nyomán a többi majd menni fog.

Valószínűleg elégedetten biccentesz a lelki fejeddel az „Arra viszont számíts, hogy itt a segítési hajlandóság a nullához közelít”-féle szentenciák olvastán, de azért legyen világos, hogy inkább ennek az állításnak az igazságtartalmáról jelenthető ki hasonló. Mindig akad kolléga, aki még emlékszik arra, hogy ő is volt kezdő, és szívesen megtámogatja a tapasztalatlanabbak igyekezetét – hadd értsem bele ebbe a táborba magamat is, aki programozásban aligha fogok valaha is gimnazista szint fölé szárnyalni, így az emlékeim távolba veszésére sincs sok esély. Viszont a segítség nem azonos a más munkájának elvégzésével, ha ezzel a lepontozós kollégák nem értenek is egyet. Mellesleg, ha a szabályzatot nagyon rigorózusan értelmeznénk, az erre irányuló kérést töröltetni illenék. De ne legyen rossz napod, a többiek úgyis minden részletét elmondták már, tessék, a kész program:

begin

      Randomize;

      WriteLn('A dobott szamok kulonbsege: ', Abs((Random(6)) - (Random(6))));

end.

Az egyszerűség kedvéért nem írtam ékezeteket, mert feltételezem, hogy Windowsban dolgozol. Nem bánnám, ha pontról pontra elmesélnéd, mit csinál a program, ezzel is bemutatva, hogy hasznát láttad a megoldásnak.

+ A hosszas fejlesztési folyamat korábbi szakaszából ott ragadt néhány fölös zárójel, bocsi. Tehát a lényeg:

      WriteLn('A dobott számok különbsége: ', Abs(Random(6) - Random(6)));