Calcular números primos con Small Basic (Codigo)


a1Se 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. Sub ComprobarPrimo
  9.   For j= 2 To Math.SquareRoot(i)
  10.     If (Math.Remainder(i, j) = 0) Then
  11.       esPrimo = “Falso”
  12.       Goto FinLoop
  13.     EndIf
  14.   EndFor
  15.   FinLoop:
  16.   EndSub

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s