'Ä=Ž , Ö=™ , Ü=š ; ä=„ , ö=”, ü=� , ß=á ,§=õ , ©=¸
'©2006 by ytwinky, MD
#include "vbcompat.bi"
Const Esc=!"\27"
Var d1=0.0, e=0.0, k=6, n=49, i=0, j=0, s="", z=""
Dim Shared As Integer LB=1, UB=6, Tipp(LB To UB) 
Randomize Timer

Function GetTipp(lower As Integer, upper As Integer) As Integer
  Var t=0, k=0, m=0
  Do
    Do
      t=CInt(Rnd(1)*10^Len(Str(upper)))
    Loop Until t>=lower And t<=upper
    For k=LB To UB
      m=t=Tipp(k)
      If m Then Exit For
    Next
  Loop Until m=0
  Return t
End Function

Function fak(Zahl As Integer) As Double
	Var d=1.0
	Select Case Zahl
	  Case Is<0
			Print "Argument negativ(Zahl=" &Zahl &"), das ist nicht definiert.."
			End 27
		Case 0, 1
		Case Else
			For i As Integer=2 To Zahl
				d*=i
			Next i
	End Select
  Return d
End Function

Function nueberk(n As Integer, k As Integer) As Double 'Bartsch, Mathematische Formeln, DDR 1977
  Return fak(n)/(fak(k)*fak(n-k))
End Function

Sub BubbleSort()
  Var i=0, j=0
  For i=LB To UB
    For j=LB To UB
      If Tipp(i)<Tipp(j) Then Swap Tipp(i), Tipp(j)
    Next
  Next
  For i=LB To UB
    Print Tipp(i) &" ";
  Next
End Sub

Print !"6aus49.Bas ¸2006 by ytwinky, MD\nPr�fung, ob fak(..) funktioniert:\n6!=" &fak(k)
Print "49!=" &fak(49)
Print "Exakt:608281864034267560872252163321295376887552831379210240000000000"
'Woher? www.gidf.de
s=Str(nueberk(n, k))
e=Val(s)*5/1000
z=!"\nPr�fung, ob nueberk(..) funktioniert:\n(49 �ber 6)=" &s
z+=!"\nDie Wahrscheinlichkeit, 6 Richtige im Lotto zu haben, betr„gt also 1:" &s
z+=!"\nDas ist sehr un�bersichtlich, wenn nicht gar unvorstellbar.."
z+=!"\nW�rde jede dieser " &s &" M”glichkeiten mit 5mm H”he ausgedruckt,"
z+=!"\nerg„be das einen Streifen von " &Format(e*1000, "000,") &"mm L„nge."
z+=!"\nEine Umrechnung in Meter(" &Format(e, "0.000") &"m) bringt nicht viel."
z+=!"\nDas vorstellbarste Ergebnis wird in Kilometern erhalten:\n" &s
z+=!" Kombinationen mit je 5mm H”he ausgedruckt,\nergibt einen Streifen von " &Format(e/1000, "0.00") &!"Km L„nge.\n"
z+=!"\nF�r jede Ziehung braucht man also nur diesen Streifen entlangzufahren,"
z+=!"\nan einer beliebigen Stelle anzuhalten und die Kombination zu notieren.."
z+=!"\nDas ist nat�rlich nur EINE Methode, um zu einem Lotto-Tipp zu kommen ;-))"
z+=!"\n(..und �berhaupt keine Garantie f�r einen Gewinn..)"
z+=!"\n..und das gilt nur f�r 6 Zahlen, mit Zusatzzahl wird es noch schlimmer^^"
Print z &!"\nTipp des Tages:";
Do
  For i=LB To UB
    Tipp(i)=GetTipp(1, 49)
  Next
  BubbleSort()
  Print " Zusatzzahl:" &GetTipp(1, 49);
  If e<>0 Then
    Print " (OHNE JEDE Gewinngarantie..)"
    Print "(Eine Gewinnbeteiligung kann nicht erzwungen werden, ist aber erw�nscht :rofl:)"
  End If
  Print !"\nNoch 'ne Ziehung?(j/n):";
  Do
  	z=UCase(InKey)
  Loop Until InStr("JN" &Esc, z)
  Print z
  e=0
Loop Until InStr(!"N" &Esc, z)
End