Hola!!

METODOLOGÍA DE LA PROGRAMACIÓN. Programación en Pascal
Copyright (c) 2008 Víctor Sánchez Sánchez.
Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.3 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A copy of thelicense is included in the section entitled "GNU Free Documentation License".
This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with this program. If not, see http://www.gnu.org/licenses/.
La documentación y los programas quedan licenciados bajo las licencias GFDL y GPL.
Versión 1.0 (301108) Autor: VíctorSánchez2
Web: www.victorsanchez2.com
Jabber: victorsanchez2@jabberes.org
El objetivo de este documento es proveer de una gran batería de ejercicios resueltos en Pascal que parten del nivel más básico hasta llegar a estructuras de datos más complejas.
Al final podréis ir encontrando las prácticas que realicé en mi universidad.
Gracias a todos por vuestra confianza.
☺Escribir unprograma en Pascal que sume dos números:
a = 4 b = 3
PROGRAM EJER01; var a,b,c:INTEGER; {text:soft-page-break} BEGIN {Empezamos con lo básico, un programa que escribe la suma de 2 numeros en pantalla} a:=4; b:=3; {Se asigna un valor cualquiera a las variables "a" y "b"} c:=a+b; WRITE (c); {Muestra en pantalla el valor de la suma} END. PROGRAM EJER1B; VARa,b,c:INTEGER; BEGIN ClrScr; {Limpiamos la pantalla} WRITELN ('Este programa suma dos numeros:'); WRITELN (' '); WRITE ('Introduzca otro numero: ' ); READLN (b); WRITELN (' '); WRITE ('EL RESULTADO ES: '); WRITE (c); END. ☺Escribir un programa en Pascal que sume, reste, multiplique y divida dos números:
x = 10 y = 2
PROGRAM EJER02; USES CRT; {Nosva a permitir limpiar la pantalla junto con ClrScr} VAR x,y:INTEGER; VAR suma,rest,mult,divi:INTEGER; BEGIN x:=10; y:=2; suma:=x + y; rest:=x - y; divi:=x div y; {Con estas 4 variables realizamos las cuatro operaciones aritméticas fundamentales: suma, resta, multiplicación y división} ClrScr; {Limpia la pantalla} WRITE ('SUMA:');WRITELN (suma); WRITE ('RESTA:'); WRITELN (rest); WRITE ('MULTIPLICACION:'); WRITELN (mult); WRITE ('DIVISION:'); WRITE (divi); END. PROGRAM EJER2B; {text:soft-page-break} VAR x,y:REAL; VAR suma,rest,mult:REAL; {suma, resta, multiplica y divide 2 numeros reales} BEGIN WRITELN ('Este programa suma, resta,multiplica y divide:'); WRITELN ('Escriba dos numeros reales'); WRITELN (' '); Read(x); Read(y); rest:=x - y; divi:=x / y; ClrScr; WRITE ('SUMA:'); WRITELN (suma:3:0); WRITE ('RESTA:'); WRITELN (rest:3:0); WRITE ('MULTIPLICACION:'); WRITELN (mult:3:0); WRITE ('DIVISION:'); WRITE (divi:5:2); END.PROGRAM EJER02; USES CRT; VAR x,y:INTEGER; VAR suma,rest,mult,divi:INTEGER; BEGIN y:=2; suma:=x + y; divi:=x div y; WRITE('SUMA:'); WRITELN(suma); WRITE('RESTA:'); WRITELN(rest); WRITE('MULTIPLICACION:'); WRITELN(mult); WRITE('DIVISION:'); WRITELN(divi); END. ☺Escribir un programa en Pascal que...