eduacion

Ejemplos de algoritmos usando RockerferBasic
Ejemplo básico que muestra como declarar variables y su uso en expresiones aritméticas
declarar variable entera x
declarar variable entera w
declarar variable entera z
x = 5
w = 6
z = x + w
imprimir z
fin

Ejemplo básico que muestra el uso de expresiones lógicas en las estructuras de control.
declarar variable entera x
repetirimprimir "introduce el valor de x"
leer x
hasta que x >= 5 y x = 3000 entonces
romano = romano + "MMM"
n = n-3000
fin si
si n >= 2000 entonces
romano = romano + "MM"
n = n - 2000
fin si
si n >= 1000 entonces
romano = romano + "M"
n = n - 1000
fin si
si n >= 900 entonces
romano = romano + "CM"
n = n - 900
fin sisi n >= 800 entonces
romano = romano + "DCCC"
n = n - 800
fin si
si n >= 700 entonces
romano = romano + "DCC"
n = n - 700
fin si
si n >= 600 entonces
romano = romano + "DC"
n = n - 600
fin si
si n >= 500 entonces
romano = romano + "D"
n = n - 500
fin si
si n >= 400 entonces
romano = romano + "CD"
n= n - 400
fin si
si n >= 300 entonces
romano = romano + "CCC"
n = n - 300
fin si
si n >= 200 entonces
romano = romano + "CC"
n = n - 200
fin si
si n >= 100 entonces
romano = romano + "C"
n = n - 100
fin si
si n >= 90 entonces
romano = romano + "XC"
n = n - 90
fin si
si n >= 80 entonces
romano =romano + "LXXX"
n = n - 80
fin si
si n >= 70 entonces
romano = romano + "LXX"
n = n - 70
fin si
si n >= 60 entonces
romano = romano + "LX"
n = n - 60
fin si
si n >= 50 entonces
romano = romano + "L"
n = n - 50
fin si
si n >= 40 entonces
romano = romano + "XL"
n = n - 40
fin si
si n >= 30 entoncesromano = romano + "XXX"
n = n - 30
fin si
si n >= 20 entonces
romano = romano + "XX"
n = n - 20
fin si
si n >= 10 entonces
romano = romano + "X"
n = n - 10
fin si
si n >= 9 entonces
romano = romano + "IX"
n = n - 9
fin si
si n >= 8 entonces
romano = romano + "VIII"
n = n - 8
fin si
si n>= 7 entonces
romano = romano + "VII"
n = n - 7
fin si
si n >= 6 entonces
romano = romano + "VI"
n = n - 6
fin si
si n >= 5 entonces
romano = romano + "V"
n = n - 5
fin si
si n >= 4 entonces
romano = romano + "IV"
n = n - 4
fin si
si n >= 3 entonces
romano = romano + "III"
n = n - 3
fin sisi n >= 2 entonces
romano = romano + "II"
n = n - 2
fin si
si n >= 1 entonces
romano = romano + "I"
n = n - 1
fin si
imprimir arabigo, " se escribe como ", romano
fin si
si arabigo < 1 o arabigo > 3999 entonces
imprimir "no se puede escribir ", arabigo, " en romano"
fin si
fin

Ejemplo que muestra el uso de ciclos anidados(un ciclo dentro deotro) para formar triángulos, aquí también se hace uso de la concatenación de cadenas para mostrar el resultado.
declarar variable entera i
declarar variable entera j
declarar variable entera tamaño
declarar variable de cadena renglon
imprimir "De que tamaño quieres el triangulo?"
leer tamaño
para i de 1 hasta tamaño hacer
renglon = ""
para j de 1 hasta i hacer
renglon =renglon + "*"
fin para
imprimir renglon
fin para

fin

Ejemplo que muestra el uso de una estructura de selección múltiple para resolver el problema de los números romanos. También se hace uso de un ciclo y de asignar valores a las variables de tipo cadena uno, cinco y diez para mostrar que las reglas que se aplican a unidades también son válidas para decenas, centenas y millares. Debe...