[[duilioisola]]

Código SQL [-]
/* Ejemplo para sacar un promedio de notas de un alumno */
create procedure promedio (
    alumno varchar(10))
returns (
    promedio double precision)
as
declare variable cantidad integer;
declare variable total_nota double precision;
begin
    /* Averiguo cuantas notas hay */
    select count(*)
    from notas_alumnos
    where
    alumno = :alumno
    into :cantidad;

    /* Sumo las notas */
    totalnota = 0;
    for select nota
        from notas_alumnos
        where
        alumno = 'jxj'
        into :nota
    do
    begin
        totalnota = totalnota + nota;
    end

    /* Calculo el promedio */
    promedio = totalnota / cantidad;

    suspend;
end