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 :
Publicar un comentario