Pascal Ejercicios

Páginas: 74 (18412 palabras) Publicado: 20 de junio de 2012
Ejercicios de Pascal

METODOLOGÍA DE LA PROGRAMACIÓN. Programación en Pascal
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.
☺Escribir un programa en Pascal que sume dos números:
a=4

b=3

PROGRAM EJER01; {Autor: Victor Sanchez Sanchez
var a,b,c:INTEGER;email: victorss18@hotmail.com}

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; {Autor: Victor Sanchez Sanchez
USES CRT;
VAR a,b,c:INTEGER;

email: victorss18@hotmail.com}

BEGINClrScr;
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.

1

Ejercicios de Pascal
☺Escribir un programa en Pascal que sume,reste, multiplique y divida dos números:
x = 10

y=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 cuatrooperaciones aritméticas fundamentales:
suma, resta, multiplicación y división}
ClrScr; {Limpia la pantalla}
WRITE
WRITE
WRITE
WRITE

('SUMA:');
('RESTA:');
('MULTIPLICACION:');
('DIVISION:');

WRITELN (suma);
WRITELN (rest);
WRITELN (mult);
WRITE (divi);

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, 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

+
*
/

y;
y;
y;
y;

ClrScr;
WRITE
WRITE
WRITE
WRITE

('SUMA:');
('RESTA:');
('MULTIPLICACION:');
('DIVISION:');WRITELN (suma:3:0);
WRITELN (rest:3:0);
WRITELN (mult:3:0);
WRITE (divi:5:2);

END.

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

+ y;
- y;
* y;
div y;

2

Ejercicios de Pascal

ClrScr;
WRITE('SUMA:');
WRITE('RESTA:');
WRITE('MULTIPLICACION:');
WRITE('DIVISION:');

WRITELN(suma);WRITELN(rest);
WRITELN(mult);
WRITELN(divi);

END.

☺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;

email: victorss18@hotmail.com}

BEGIN
{Este programa nos va a servir para calcular el area de unrectángulo}
lado1:=3;
lado2:=4;
{Damos valores para las variables}
area:=lado1*lado2; {Calculamos el area}
ClrScr;
WRITE ('AREA DEL RECTANGULO: ');

WRITE (area); {Lo mostramos en pantalla}

END.

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

email: victorss18@hotmail.com}

BEGIN
{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:');

WRITE (area:5:2);

END.

PROGRAM EJER03;
USES CRT;
VAR lado1,lado2:INTEGER;
VAR area:INTEGER;
BEGIN
lado1:=3;
lado2:=4;
area:=lado1*lado2;
ClrScr;

3

Ejercicios de Pascal

WRITE('AREA DEL RECTANGULO: ');

WRITE(area);

END....
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • EJERCICIOS Pascal
  • Ejercicios Pascal
  • ejercicios de pascal y arquimedes
  • Ejercicios de programacion pascal
  • ejercicios Pascal
  • ejercicios pascal
  • Ejercicio de pascal
  • ejercicios pascal

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS