Algoritmos clasicos

Suma de numeros pares

Fuente original: rust/examples/example_001.sle

var
   n, suma, k : numerico
inicio
   n = 10
   suma = 0
   desde k = 2 hasta n paso 2 {
      suma = suma + k
   }
   imprimir(suma) // 30
fin

Conceptos: desde, paso, acumuladores.

Area de un triangulo

Fuente original: rust/ejemplos/09_area_del_triangulo.sl

programa AreaDelTriangulo
var
    X1, Y1, X2, Y2, X3, Y3: numerico
    A, B, C, Semiperimetro, Area: numerico
inicio
    X1 = 0
    Y1 = 0
    X2 = 4
    Y2 = 0
    X3 = 0
    Y3 = 3
    A = sqrt((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2)
    B = sqrt((X3 - X1) ^ 2 + (Y3 - Y1) ^ 2)
    C = sqrt((X2 - X3) ^ 2 + (Y2 - Y3) ^ 2)
    Semiperimetro = (A + B + C) / 2
    Area = sqrt(Semiperimetro * (Semiperimetro - A) * (Semiperimetro - B) * (Semiperimetro - C))
    imprimir(Area) // 6
fin

Conceptos: sqrt, expresiones numericas y lectura de multiples valores.

Notas bajo el promedio

Fuente original: rust/examples/cap_5_1.sle

const
    MAX_ALUMNOS = 3
var
    notas : vector [MAX_ALUMNOS] numerico
    suma_notas, prom, cnb, k : numerico
inicio
    notas = {4, 6, 8}
    suma_notas = 0
    cnb = 0
    desde k = 1 hasta MAX_ALUMNOS {
        suma_notas = suma_notas + notas[k]
    }
    prom = suma_notas / MAX_ALUMNOS
    desde k = 1 hasta MAX_ALUMNOS {
        si (notas[k] < prom) {
            cnb = cnb + 1
        }
    }
    imprimir(cnb, prom) // 1 6
fin

Conceptos: vector, si, estadistica basica.