Sunny
20.01.2002, 15:48
?( ?( ?( ?( ;( ;( Ich habe ein riesen großes Problem und zwar brauche ich bie spätestens 19.00 Uhr die procedure von dieser Aufgabe (ich muß sie meinem Lehrer schicken). Und zwar:
Ein Lehrer zensiert nach folgendem Verfahren:
-Wurf mit drei Würfeln
-Augenzahl addieren,
-drei subtrahieren
1.) Chance für 15 Punkte
2.)mindestens 9 Punkte
Oberfläche:
0-15, also 16 Editfelder
ein Editfeld zur Eingabe, wie oft gewürfelt wird, also 17 Editfelder.
und zwei buttons Start und Ende
diese Informationen hatten wir schon:
Type
TTabelle=Array [1..15] of integer;
Var haeufigkeit:TTabelle;
randomize bzw irgendetwas mit random
Variable Note für das Würfelergebnis
Bsp: note:= 12
inc haeufigkeit[note]:=1
?(
Ein Lehrer zensiert nach folgendem Verfahren:
-Wurf mit drei Würfeln
-Augenzahl addieren,
-drei subtrahieren
1.) Chance für 15 Punkte
2.)mindestens 9 Punkte
Oberfläche:
0-15, also 16 Editfelder
ein Editfeld zur Eingabe, wie oft gewürfelt wird, also 17 Editfelder.
und zwei buttons Start und Ende
diese Informationen hatten wir schon:
Type
TTabelle=Array [1..15] of integer;
Var haeufigkeit:TTabelle;
randomize bzw irgendetwas mit random
Variable Note für das Würfelergebnis
Bsp: note:= 12
inc haeufigkeit[note]:=1
?(