Search This Blog

Monday 22 April 2013


 

Se utiliza la subrutina ComprobarPrimo, que toma el valor de i y calcula si i es o no un número primo

  1. For i= 2 To 100
  2.   esPrimo = “Cierto”
  3.   ComprobarPrimo()
  4.   If (esPrimo = “Cierto”) Then
  5.     TextWindow.WriteLine(i)
  6.   EndIf
  7. EndFor
  8.  
  9. Sub ComprobarPrimo
  10.   For j= 2 To Math.SquareRoot(i)
  11.     If (Math.Remainder(i, j) = 0) Then
  12.       esPrimo = “Falso”
  13.       Goto FinLoop
  14.     EndIf
  15.   EndFor
  16.   FinLoop:
  17.   EndSub

 

No comments:

Post a Comment