Originalet |
Svar: 25% (1/4)
Lösning:
En lösning utan att använda integraler, skulle kunna se ut så här:
BASIC-programmet
nedan stöder resultatet ovan: 10 FOR A =1 TO 10000 20 RANDOMIZE TIMER 30 X=RND(0) 40 RANDOMIZE TIMER 50 Y=RND(0) 60 IF X>Y THEN LET X1=X:X=Y:Y=X1:REM RAD 70, 80 OCH 90 FÖRUTSÄTTER ATT Y>X 70 IF 1-Y>Y THEN 110:REM TRIANGELOLIKHETEN UPPFYLLS EJ 80 IF 2*Y-2*X>1 THEN 110:REM TRIANGELOLIKHETEN UPPFYLLS EJ 90 IF 2*X>1 THEN 110:TRIANGELOLIKHETEN UPPFYLLS EJ 100 GOSUB 140 110 NEXT A 120 PRINT 100*S/(A-1);"%" 130 END 140 S=S+1 150 RETURN |