Proceso Promedios
Definir n1, n2, n3, n4 Como Entero
Definir prom Como Real
Escribir 'Ingrese las 4 notas'
Leer n1, n2, n3, n4
prom ← (n1+n2+n3+n4)/4
Escribir 'Promedio:', prom
FinProceso
Proceso Incremento
Definir num Como Entero
Definir extra, rpta Como Real
Escribir 'Ingrese un numero'
Leer num
extra ← num*0.66
rpta ← num+extra
Escribir 'Resultado:', rpta
FinProceso
Proceso Promedio
Proceso Promedio
Definir PC01, PC02, PC03, EF Como Entero Definir PC01, PC02, PC03, EF Como Entero
Definir prom Como Real
Escribir 'Ingrese la nota PC01' Definir prom Como Real
Leer PC01
Escribir 'Ingrese la nota PC02' 'Ingrese la nota PC01'
Leer PC02
Escribir 'Ingrese la nota PC03'
PC01
Leer PC03
Escribir 'Ingrese la nota EF'
'Ingrese la nota PC02'
Leer EF
prom ← (PC1*0.1)+(PC2*0.2)+(PC3*0.3)+(EF*0.4)
Escribir 'El promedio de notas es:', prom PC02
FinProceso
'Ingrese la nota PC03'
PC03
'Ingrese la nota EF'
EF
prom ← (PC1*0.1)+(PC2*0.2)+(PC3*0.3)+(EF*0.4)
'El promedio de notas es:', prom
FinProceso
Proceso Grados Proceso Grados
Definir F, C Como Real
Escribir 'Ingrese los grados Centigrados' Definir F, C Como Real
Leer C
F <- ((9*C)/5)+32
'Ingrese los grados Centigrados'
Escribir 'Los grados en fahrenheit son:', F
FinProceso
C
F <- ((9*C)/5)+32
'Los grados en fahrenheit son:', F
FinProceso
Proceso Alumnos
Proceso Alumnos
Definir a, d, s, m, n Como Real Definir a, d, s, m, n Como Real
Escribir 'Ingrese total de alumnos aprobados'
Leer a
'Ingrese total de
Escribir 'Ingrese total de alumnos desaprobados' alumnos aprobados'
Leer d
s <- a+d
a
m <- (a/s)*100
n <- (d/s)*100
Escribir 'El porcentaje de alumnos aprobados es:', m, ' %' 'Ingrese total de alumnos
desaprobados'
Escribir 'El porcentaje de alumnos desaprobados es:', n, ' %'
FinProceso
s <- a+d
m <- (a/s)*100
n <- (d/s)*100
'El porcentaje de alumnos
aprobados es:', m, ' %'
'El porcentaje de alumnos
desaprobados es:', n, ' %'
FinProceso