Sustentacion Prueba de escritorio Laura Cuartas Ríos Primer problema Algoritmo(calcular) Var Cadena: nombre1, nombre2, nombre3 Entero: e1, e2, e3 Real: hre, h1, h2, h3 Inicio Leer nombre1 Leer e1 Leer nombre2 Leer e2 Leer nombre3 Leer e3 Leer hre Suma <----- e1+e2+e3 h1 <------ HallarH (e1) h2 <------ HallarH (e2) h3 <---- HallarH (e3) Mostrar_Resultados (nombre1, h1) Mostrar_Resultados (nombre2, h2) Mostrar_Resultados (nombre3, h3) Fin Real Función HallarH(Entero: e ) Var Real H Inicio H <----- hre*( e /suma) Devolver H Fin Función Procedimiento MostrarResultados(Cadena: nombre , Real He) Inicio Escribir “nombre :S” he Fin función Análisis de datos · Datos de entrada · No