Identifícate o Regístrate

Autor: Manuel Angel Lopez Zurita
Curso: 4,17/5 (3 opiniones) |2202 alumnos|Fecha publicación: 31/01/2008

Otro ejemplo, en el que se lee un fichero y se cuenta cuantas letras "a" hay en el fichero:

1.            programa lectura_fichero
2.                definir fd como entero
3.                definir contador como entero
4.                definir leido como caracter
5.        
6.                fd=abrir_fichero("c:\fichero.txt")
7.                /*inicializar la variable que cuentas a*/
8.                contador=0
9.                mientras (fin_fichero(fd)==falso)
10.                    leido=leer_fichero(fd)
11.                    si (leido=="a" O leido=="A") entonces
12.                           /*se encontro una a con lo que se incrementa el contador*/
13.                           contador=contador+1
14.                    finsi
15.             finmientras
16.             cerrar_fichero(fd)
17.             escribir_pantalla("Se leyeron " + convertir_cadena(contador) + __
18.              " letras a en el fichero")
19.            finprograma

En este ejemplo se deben puntualizar varias cosas:

Para poder acceder a un fichero primero se debe abrir el fichero con la función abrir_fichero. Esta función automáticamente retorna un número para poder identificar, dentro del programa, a qué archivo nos estamos refiriendo (por ejemplo, para poder identificarlo en la función cerrar_fichero si hubiera más de uno abierto) Cuando se abre un fichero en un programa, antes de finalizar el programa se debe de cerrar el fichero con la función cerrar_fichero. Cuando una sentencia de código no quepa en una línea se pondrá el símbolo __

Cálculo del factorial:

1.            programa factorial
2.                definir factorial como entero
3.                definir numero como entero
4.                definir numero_inicial como entero
5.        
6.                factorial=1
7.                escribir_pantalla("Indique el número")
8.                numero=leer_teclado()
9.                mientras (numero<=1)
10.                    factorial=factorial*numero
11.                    numero=numero-1
12.             finmientras
13.             escribir_pantalla("El factorial de " + __
14.             convertir_cadena(numero_inicial) + " es " + __
15.             convertir_cadena(factorial))
16.            finprograma