Documentos de Académico
Documentos de Profesional
Documentos de Cultura
Práctica 02
Práctica 02
Vamos a utilizar Geany en las prácticas. En recursos tienes una versión portable para
descargar.
A. Primer programa
En vez de hacer una descripción completa de las posibilidades del entorno vamos a
empezar por editar, compilar y ejecutar el siguiente programa escrito en lenguaje
PASCAL:
program uno;
const pi=3.14159;
var
r:real;
begin
writeln('Vamos a calcular la longitud de una
circunferencia:');
write('Escribe el radio: ');
readln(r); writeln('La longitud es: ',2*pi*r:5:2);
end.
En la ventana abierta escribe el nombre que das al programa, por ejemplo P21. PAS.
Cuidado que al guardar el archivo tendremos que añadir siempre la extensión “.PAS”.
Geany está configurado para que los programas creados se guarden en el directorio
…/GeanyPortable/App/Geany.
Podemos modificar la carpeta donde guardar nuestros archivos. Pincha en el símbolo
“+” al lado de “buscar otras carpetas” y busca la carpeta de la práctica en tu dispositivo
(unidad F:).
B. Primeras correcciones
program fortuna;
const v50=50; v20=20; v10=10;
var M_50 , M 20 , M-10 : integer;
begin
write('El número de monedas de cincuenta céntimos ');
write('de mi cartera es ');
readln(M_50);
write('de veinte céntimos tengo ');
readln(M_20);
write('y de diez ');
readln(v10);
dinero := M_50 * v50 + M 20 * v20 + M-10 * v10;
writeln('Por tanto tengo ', dinero , ' céntimos.');
end
1. Edición
Edita el texto poniendo atención en caracteres como el apóstrofe (', tecla junto al 0) y
guión bajo (_, en la misma tecla que -).
2. Compilación
Habrás observado que se producen errores de compilación. Corrige uno a uno los
siguientes errores y compila el programa cada vez que haces un cambio:
3. Ejecución
…
write('El número de monedas de cincuenta céntimos ')
write('de mi cartera es ');
…
Geany nos coloca el error en la segunda línea, en vez de en la primera que es donde
falta el “;”.
D. Algunos ejercicios
1. Crea un programa que pida una cantidad de dinero en Euros y nos devuelva el valor
de dicha cantidad en Dólares. (Consideramos el cambio 1€=1.11$)
HA ESCOGIDO LA OPCCIÓN 3
3. Escribe un programa que solicite 3 caracteres y los escriba en el orden inverso al que
los hemos introducido.
Ej. Introduce 3 caracteres:
abc
D. Sistemas disponibles
http://www.freepascal.org
• También puedes utilizar el editor Geany para después compilar con Freepascal:
http://www.geany.org
Menú FILE
· Open (F3): Permite abrir un fichero de Turbo Pascal que haya sido creado con
anterioridad.
· New: Abre una nueva ventana de edición para crear un nuevo fichero.
· Save (F2): Guarda en disco las modificaciones que has hecho en la ventana de edición
activa con el mismo nombre que tiene el fichero.
· Save as: Guarda en disco las modificaciones que has hecho en la ventana de edición
permitiéndote cambiar el nombre del archivo. Esta opción será la que utilizarás siempre
que crees un nuevo fichero.
· Change dir: Cambia el directorio de trabajo.
· Print: Manda el fichero que está en la ventana activa a la impresora.
· Dos shell: Permite salir momentáneamente al sistema operativo. Para volver, teclea
EXIT.
· Exit (Alt+x): Para salir del entorno de programación.
Menú EDIT
Menú RUN
· Run: Ejecuta el programa que está en la ventana activa. Si dicho programa no está
compilado, lo compila primero.
· Program reset (Ctrl+F2): Detiene la ejecución de un programa.
· Trace into: Ejecuta un programa línea a línea, entendiendo los subprogramas como
una única instrucción.
· Step over: Ejecuta un programa línea a línea, incluidas las instrucciones de los
subprogramas.
Menú COMPILE
· Watches: Crea una ventana en la que colocarás las expresiones cuyos valores quieras
conocer a lo largo de la ejecución del programa.
· Toggle breakpoint: Permite fijar puntos de interrupción de forma que la ejecución del
programa se detendrá en esa línea de código. Para ello basta situar el cursor en la línea
elegida y seleccionar esta opción.
Menú WINDOW