21 diciembre 2016

Programa en pascal (por consola) para calcular la media de 5 números

Program Hacermedia;

(*este simple programa calcula la media de 5 números*)

var

numero, suma, media : real;

J: integer;

begin

suma := 0;

for J := 1 to 5 do

begin

writeln ('solo escriba los números sin ningún carácter');

writeln ('(cual es el numero ',J,'?');

Readln   (numero);

suma := suma + numero

end;

media := suma/5;

writeln ('la media es:',media:5:2)

end.
definición de palabras reservadas:

Program: establece el nombre del programa debe llevar un end al finalizar las instrucciones de dicho programa.
var:  establece las variables de hay en adelante se indican el numero de variables a usar durante todo el ciclo de vida del programa.
for: estructura de icteración debe llevar un cierre end de ciclo.
writeln: escribe en consola dejando un espacio al finalizar lo escrito "tecla enter"
Readln: lee de la entrada básica "teclado" en consola hasta el ultimo salto "tecla enter"
(* los comentarios van de esta manera*)

No hay comentarios :