monteno

Untitled

Mar 11th, 2011
201
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. PRINT "introduzca N"
  2. INPUT N
  3. PRINT "Introduzca X"
  4. INPUT X
  5. IF (X >= 1.25) AND (X <= 2.5) THEN
  6.     FOR i = 1 TO N
  7.         contador = contador + 1
  8.         nume = ((-1) ^ N + 1) * ((X) ^ 2 * N)
  9.         deno = (7 * ((2) ^ N + 3))
  10.         nuto = nume / deno
  11.         IF nuto < 0 THEN
  12.             contanegativo = contanegativo + 1
  13.         ELSE
  14.             contapositivo = contapositivo + 1
  15.         END IF
  16.     NEXT
  17.     PRINT "El total de numeros es", contador
  18.     PRINT "Numeros Negativos", contanegativo
  19.     PRINT "Numeros Positivos", contapositivo
  20.     PRINT "Porcentaje Positivo", (contanegativo * 100) / contador
  21.     PRINT "Porcentaje negativo", (contapositivo * 100) / contador
  22. ELSE
  23.     PRINT "Numero fuera del rango"
  24. END IF
Advertisement
Add Comment
Please, Sign In to add comment