[HaBo]

'Framework und import
Framework brl.Graphics
Import brl.Timer
Import brl.linkedlist
Import brl.D3D7Max2D
Import brl.Random
Import brl.StandardIO


Global KapitalS1:Int
Global KapitalS2:Int
Global Wuerfel1:Int
Global Wuerfel2:Int
Global Wuerfel3:Int
Global SumGes:Int
Global S1Vorteil:Int
Global S2Vorteil:Int

SeedRnd MilliSecs()

KapitalS1 = 1000
KapitalS2 = 1000

Function Vorteil1()
  S1Vorteil = S1Vorteil + 1
  Print "Vorteil für Spieler1"
  Print " "
EndFunction

Function Vorteil2()
  S2Vorteil = S2Vorteil + 1
  Print "Vorteil für Spieler2"
  Print " "
EndFunction



For i:Int = 1 To 2000
 Print i + ". Runde:"
 Print " "
  KapitalS1 = KapitalS1 - 10
  KapitalS2 = KapitalS2 + 10
	Wuerfel1 = Rnd(1, 6)
	Print Wuerfel1
	Wuerfel2 = Rnd(1, 6)
	Print Wuerfel2
	Wuerfel3 = Rnd(1, 6)
	Print Wuerfel3
	SumGes = Wuerfel1 + Wuerfel2 + Wuerfel3
 Print "Gewürfelt wurde insgesamt: " + SumGes
 Print " "

 If SumGes > 10 Then Vorteil1()
 If SumGes < 10 Then Vorteil2()
 
 KapitalS1 = KapitalS1 + SumGes
 KapitalS2 = KapitalS2 - SumGes
 
 Print "Kapital von Spieler1: " + KapitalS1
 Print "Kapital von Spieler2: " + KapitalS2
 Print "Ende Runde" + i
 Print " "

Next

Print "Endgültiges Kapital von Spieler1: " + KapitalS1
Print "Endgültiges Kapital von Spieler2: " + KapitalS2
Print "Gesamt Vorteile von Spieler1: " + S1Vorteil
Print "Gesamt Vorteile von Spieler2: " + S2Vorteil
Print " "
If S1Vorteil > S2Vorteil Then Print "Spieler1 hatte insgesamt " + (S1Vorteil - S2Vorteil) + "  Vorteile mehr als Spieler2"
If S1Vorteil < S2Vorteil Then Print "Spieler2 hatte insgesamt " + (S2Vorteil - S1Vorteil) + "  Vorteile mehr als Spieler1"
Print " "
If KapitalS1 > KapitalS2 Then Print "Spieler1 hat insgesamt " + (KapitalS1 - KapitalS2) + "  Euro mehr als Spieler2"
If KapitalS1 < KapitalS2 Then Print "Spieler2 hat insgesamt " + (KapitalS2 - KapitalS1) + "  Euro mehr als Spieler1"
WaitKey
end

import random

def gewinn():
    augenzahl = random.randrange(1,7,1)+random.randrange(1,7,1)+random.randrange(1,7,1)
    return 10 - augenzahl
#Gewinn des Wuerfelspielers:                                                                                                                                   
w = 0

for i in range(1001):
    w += gewinn()
print w

 w_gew = 0
for i in range(1,7,1):
    for j in range(1,7,1):
        for k in range(1,7,1):
            w_gew += 10-(i+k+j)
print w_gew

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace _10gegen3
{
class Program
{
static void Main(string[] args)
{
long money_spieler1 = 10000;
long money_spieler2 = 10000;

int wuerfel1 = 0;
int wuerfel2 = 0;
int wuerfel3 = 0;
int score = 0;
Random r = new Random();

for (long count = 0; count < 1000000; count++)
{
money_spieler1 = money_spieler1 - 10;
money_spieler2 = money_spieler2 + 10;


wuerfel1 = r.Next(1, 7);
wuerfel2 = r.Next(1, 7);
wuerfel3 = r.Next(1, 7);

score = wuerfel1 + wuerfel2 + wuerfel3;

money_spieler1 = money_spieler1 + score;
money_spieler2 = money_spieler2 - score;
}

if (money_spieler1 > money_spieler2)
{
Console.WriteLine("Spieler 1 hat gewonnen mit " + money_spieler1 + " zu " + money_spieler2);
}
else
{
Console.WriteLine("Spieler 2 hat gewonnen mit " + money_spieler2 + " zu " + money_spieler1);
}
}
}
}

#include <iostream>

int main()
{
	int spieler_1_zahlt = 0;
	int gewuerfelt = 0;
	srand(1);
	for(int i = 0; i < 10000; i++)
	{
		gewuerfelt = 10;
		for(int u = 0; u < 3; u++)
		{
			gewuerfelt -= rand()%6+1;
		}
		spieler_1_zahlt += gewuerfelt;
	}
	std::cout << "Spieler 1 zahlt " << spieler_1_zahlt << "euro an Spieler 2";
	return 1;
}

(defun Vorteil (range)
  (defvar A-geld 0) ;geld der kontrahenten
  (defvar B-geld 0)
  (dotimes (i range)
    (defvar sum 0)
     (dotimes (x 3)
       (defvar tmp 0)
       (setf tmp (+ (random 15) 3))
       (setf sum (+ sum tmp)))
     (setf A-geld (+ A-geld (- sum 10)))
     (setf B-geld (- sum 10)))
     (format t "Geld A:~a~%" A-geld)
     (format t "Geld B:~a~%" B-geld))