Pascal

Solo disponible en BuenasTareas
  • Páginas : 45 (11011 palabras )
  • Descarga(s) : 0
  • Publicado : 24 de octubre de 2010
Leer documento completo
Vista previa del texto
METODOLOGÍA DE LA PROGRAMACIÓN. Programación en Pascal

1

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. Primero pondré varias soluciones realizadas por mí, y por último muestro las soluciones de mi profesor de la asignatura a los ejercicios (salvo unos pocos).1. Escribir un programa en Pascal que sume dos números: a=4 b=3
email: victorss18@hotmail.com}

PROGRAM EJER01; {Autor: Victor Sanchez Sanchez var a,b,c:INTEGER; 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. PROGRAMEJER1B; {Autor: Victor Sanchez Sanchez USES CRT; VAR a,b,c:INTEGER; BEGIN ClrScr; WRITELN ('Este programa suma dos numeros:'); WRITELN (' '); WRITE ('Introduzca un numero: '); READLN (a); WRITE ('Introduzca otro numero: ' ); READLN (b); WRITELN (' '); c:=a+b; WRITE ('EL RESULTADO ES: '); WRITE (c); END. PROGRAM EJER01; var a,b,c:INTEGER; BEGIN a:=4; b:=3; c:=a+b; WRITE(c); END. email:victorss18@hotmail.com}

Autor: Víctor Sánchez Sánchez Email: victorss18@hotmail.com 2. Escribir un programa en Pascal que sume, reste, multiplique y divida dos números: x = 10 y=2

2

PROGRAM EJER02; {Autor: Victor Sanchez Sanchez email: victorss18@hotmail.com} USES CRT; {Nos va 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 rest:=x mult:=x divi:=x + y; - y; * y; 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 WRITE WRITE WRITE END. PROGRAM EJER2B; {Autor: Victor Sanchez Sanchez USES CRT; VAR x,y:REAL; VAR suma,rest,mult:REAL; VAR divi:REAL; email: victorss18@hotmail.com} ('SUMA:'); ('RESTA:');('MULTIPLICACION:'); ('DIVISION:'); WRITELN (suma); WRITELN (rest); WRITELN (mult); WRITE (divi);

{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); suma:=x rest:=x mult:=x divi:=x ClrScr; WRITE WRITE WRITE WRITE END. ('SUMA:'); ('RESTA:');('MULTIPLICACION:'); ('DIVISION:'); WRITELN (suma:3:0); WRITELN (rest:3:0); WRITELN (mult:3:0); WRITE (divi:5:2); + * / y; y; y; y;

Autor: Víctor Sánchez Sánchez Email: victorss18@hotmail.com
PROGRAM EJER02; USES CRT; VAR x,y:INTEGER; VAR suma,rest,mult,divi:INTEGER; BEGIN x:=10; y:=2; suma:=x rest:=x mult:=x divi:=x ClrScr; WRITE('SUMA:'); WRITE('RESTA:'); WRITE('MULTIPLICACION:'); WRITE('DIVISION:'); END.WRITELN(suma); WRITELN(rest); WRITELN(mult); WRITELN(divi); + y; - y; * y; div y;

3

3. Escribir un programa en Pascal que calcule el área de un rectángulo: lado1 = 3 lado2 = 4 área del rectángulo=lado1 * lado2
PROGRAM EJER03; {Autor: Victor Sanchez Sanchez USES CRT; VAR lado1,lado2:INTEGER; VAR area:INTEGER; BEGIN {Este programa nos va a servir para calcular el area de un rectángulo}lado1:=3; lado2:=4; {Damos valores para las variables} area:=lado1*lado2; {Calculamos el area} ClrScr; WRITE ('AREA DEL RECTANGULO: '); END. WRITE (area); {Lo mostramos en pantalla} email: victorss18@hotmail.com}

PROGRAM EJER3B; {Autor: Victor Sanchez Sanchez USES CRT; VAR lado1,lado2:REAL; VAR area:REAL; BEGIN

email: victorss18@hotmail.com}

{Este programa calcula el area de un rectangulo}ClrScr; WRITELN ('Escriba los lados del rectangulo'); READ (lado1); READ (lado2); WRITELN (' '); area:=lado1*lado2; WRITE ('AREA DEL RECTANGULO:'); END. WRITE (area:5:2);

Autor: Víctor Sánchez Sánchez Email: victorss18@hotmail.com
PROGRAM EJER03; USES CRT; VAR lado1,lado2:INTEGER; VAR area:INTEGER; BEGIN lado1:=3; lado2:=4; area:=lado1*lado2; ClrScr; WRITE('AREA DEL RECTANGULO: '); END....
tracking img