Análisis de un pequeño código fuente en Pascal.
Problema:
Escribir un programa que sume los números comprendidos entre el 1 y el 10. (En
Pascal).
Análisis:
Utilizar una simple estructura bucle.
¿Pero cuál de todos los comandos bucle?
Tenemos para escoger entre For - While - Repeat.
Voy a escribir los tres posibles códigos fuente:
| Usando For | Usando While | Usando Repeat |
| Program Suma1_10; | Program Suma1_10; | Program Suma1_10; |
| Uses Crt; | Uses Crt; | Uses Crt; |
| Var suma,x : integer; | Var suma,x : integer; | Var suma,x : integer; |
| Begin | Begin | Begin |
| Clrscr; | Clrscr; | Clrscr; |
| For x:=1 to 10 Do | While x <= 10 Do | Repeat |
| suma:= suma + x; | begin | suma:= suma + x; |
| WriteLn(suma); | suma:= suma + x; | x:= x + 1 |
| ReadKey | x:= x + 1 | Until x = 11; |
| End. | end; | WriteLn(suma); |
| WriteLn(suma); | ReadKey | |
| ReadKey | End. | |
| End. | ||
Estas son las posibles formas de resolver el problema,
como puedes ver no hay una sola forma de resolver los problemas en la
computadora (Todos los caminos conducen a Roma).
Lo que si es bueno es probar varias veces con el código hasta hacerlo lo más
pequeño posible logrando mayor agilidad y menor el espacio que ocupa en la
memoria.
Por ejemplo los tamaños de los archivos del problema
según el código fuente de cada uno son:
(descarga sus códigos fuente dando un clic sobre cualquiera de
ellos)
For 134 bytes
While 157 bytes
Repeat 150 bytes