Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. Open "primzahlen.txt" For Append As #1
    
  2. Dim As Uinteger a, b, c, d
    
  3. Print "Dies ist der Primzahlenfinder. Geben Sie den Zahlenbereich an, den Sie auf Primzahlen ueberpruefen moechten."
    
  4. Input "Bei welcher Zahl moechten sie beginnen?  " ,c
    
  5. Input "Bei welcher Zahl moechten sie aufhoeren? " ,d
    
  6. For a = c To d
    
  7.     For b = 2 To a
    
  8.         If b=a Then
    
  9.             Write #1, a
    
  10.             Sleep 1
    
  11.         End If
    
  12.         If Frac(a/b)=0 Then
    
  13.             Exit For
    
  14.         End If
    
  15.     Next b
    
  16.     Sleep 1
    
  17. Next a
    
  18. Close #1
    
  19. End