Antes de empezar con el manual de pascal, hemos estado acabando los programas que no teníamos hechos. Leyre ha terminado el factorial y ha empezado con el de suma de positivos; yo he hecho un trozo del programa escalar.
El primer programa consiste en calcular el factorial de un número entero. Para ello se ha aplicado la función while, realizando un bucle hasta que k sea 1. k=f y a k se le resta uno y se multiplica al número que has introducido que es f hasta que k es 1, creando así el factorial del número que has introducido.
El segundo programa te suma todos los números positivos que introduzcas hasta que le introduzcas un 0, utilizando la función de repeat. Mediante un if nos avisa si introducimos un número negativo puesto que si es así, el programa no te realiza la suma de ese número.
No hay comentarios:
Publicar un comentario