Frage zu Pascal Würfeln

Diskutiere und helfe bei Frage zu Pascal Würfeln im Bereich freie Fragen im SysProfile Forum bei einer Lösung; Hallo ich schreibe morgen eine Klausur über Pascal, nur leider weiß ich nicht wie man folgendes programmiert: Ein Würfel würfelt 100 mal(also Random... Discussion in 'freie Fragen' started by Unregistriert, Mar 29, 2012.

  1. Unregistriert
    Unregistriert Gast

    Hallo ich schreibe morgen eine Klausur über Pascal, nur leider weiß ich nicht wie man folgendes programmiert:

    Ein Würfel würfelt 100 mal(also Random und Array)
    das Programm muss dann ausgeben wie oft die 6 auftaucht.

    Also wer etwas Ahnung von Pascal hat(wirklich pascal nicht delphi)den würde ich bitten mir ein tipp zugeben.

    Also ich hab folgendes geschrieben, klappt aber nicht und komm immer auf 0.

    Also wenn das jemand ganz leicht findet muss er wissen das ich nicht sonderlich gut bin.

    Program sortieren;
    Uses CRT;

    VAR hilfe,k,i :INTEGER;
    feld:array[1..100] OF INTEGER;


    BEGIN
    hilfe:= 0;
    RANDOMIZE;
    CLRSCR;
    WRITELN('Gewürfelte Zahlen');
    FOR i := 1 TO 100 DO
    feld := random(6)+1;
    FOR i := 1 TO 100 DO
    WRITE(feld:8);
    READ(feld);
    IF feld= 6 THEN hilfe:= hilfe+1;
    WRITE('du hast' ,hilfe,'x die 6 gewürfelt');
    READ(i);
    END.
     
    #1 Unregistriert, Mar 29, 2012
Thema:

Frage zu Pascal Würfeln

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice