pascal

7 posts in thread

• David Asztely <2920> · Text 2969 · w8 · inlagg

  1986-12-10 17:27

  Ärende: pascal

  Finns det någon här, som vet hur man generar slumptal i den pascal till abc80 som ligger i programbanken??
  • Stefan Nilsen <6089> · Text 2971 · w8 · kommentar

    1986-12-10 21:04

    Ärende: pascal

    Det går ej att generera slumptal i PASCALEN till ABC80. Du kan ju alltid försöka att läsa av klockan och få slumptal på det viset. Mvh Stefan.
  • Magnus Bodin <4304> · Text 2972 · w8 · kommentar

    1986-12-10 21:08

    Ärende: Slumptal

    Om det gäller stenålderspascalen till ABC80 som skriver ut ****-or vid komp- ilering så är svaret att det inte går om man inte gör det själv. Tänker naturligtvis inte svara med rutiner i Pascal utan i FORTH. För olyckliga läsare som inte funnit sanningen bifogas även formel i infix notation. VARIABLE SEED : RANDOMIZE ( -- ) Ö Set random seed value 65008 é SEED ! ; Ö random value taken from system clock. : NEW.SEED ( -- SEED ) Ö Compute new seed value SEED É 111 * 11 + 151 MOD DUP SEED ! ; : RND ( MAXVALUE -- RANDOMVALUE ) Ö Give random value 0..maxvalue-1 NEW.SEED * 151 / ; Infix formelform: Seed(1):=4711 Ö Initial random value Seed(n):=(Seed(n-1)*111+11) mod 151 Rnd(n,maxvalue):=(Seed(n)*maxvalue) div 151 Mod: Read modulo, i.e. division which gives remainder rather than quotient. Div: Read divide integer, i.e. Divide and give truncated (not rounded) integer result En relativt bra slumptalsmetod faktiskt!
    • Magnus Bodin <4304> · Text 2975 · w8 · kommentar

      1986-12-10 23:04

      Ärende: Slumptal

      Tilläggas bör att man som i många andra slumptalssammanhang ej bör sätta seed- värdet till klockvärde eller annat "slumpigt" tal mer än en gång i pro- grammet, i början. Seed-funktionen räknar sedan ut lämpliga slumpvärden åt sig själv.
    • Stefan Persson <1980> · Text 2980 · w8 · kommentar

      1986-12-11 22:13

      Ärende: Slumptal/PASCAL för ABC80

      Nå, här kommer lite konsumentupplysning rörande PASCALEN f<r ABC80, som finns till salu ( det är väl samma?). Du låter inte helt nöjd med den (stenålders mm?). Jag frågas inte därför att den inte trots allt skulle vara prisvärd i klubbens erbjudande- utan fastmer för att inte råka ut för att ställa alttför höga förväntningar på något som eventuellt inte infriar desamma.
      • Magnus Bodin <4304> · Text 2982 · w8 · kommentar

        1986-12-12 00:12

        Ärende: Stenåldersspråk i dito version

        Inget ont om klubbens bra priser, men man kan ha åsikter om en kompilator utan att för den skull miskreditera klubben. Jag tycker nämligen inte bara att Pascal är dåligt, utan att det finns Pascal-er som knappt är värt namnet, däribland den tidigare nämnda dito.
      • Bo Kullmar SYSOP <1789> · Text 2983 · w8 · kommentar

        1986-12-12 07:53

        Ärende: Slumptal/PASCAL för ABC80

        Den Pascal:en för (Pascal stavas **INTE* PASCAL, det är ingen förkortning) ABC80 som klubben du kommer att distribuera för 100 kronor är samma som Luxor tidigare har sålt för 2000 SEK eller mer. Det är riktigt att den nog inte är så bra. I alla fall så lär 800:a ver- sionen av dito vara bättre.