listado


LABORATORIO DE PROGRAMACIÓN

EJERCICIOS PASCAL

Instrucciones: Se adjuntan 15 ejercicios de los cuales vendrán 5 en el laboratorio de programación, por favor estudiar y practicar.

1. Escribir un programa en Pascal que sume dos números:

a = 4 b = 3

PROGRAM EJER01;

var a,b,c:INTEGER;

BEGIN

{Empezamos con lo básico, un programa que escribe la suma de 2 números 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.

2. Escribir un programa en Pascal que calcule el área y el volumen de un cilindro:

A = (2 * (PI * r2)) + ((2 * PI * r) * h)
V = (PI * r2) * h

PROGRAM EJER02;

USES CRT;
VARradio,altura:REAL;
VAR area,volumen:REAL;

BEGIN
radio:=3;
altura:=6;

area:= (2 * (3.1416 * radio * radio)) + ((2 * 3.1416 *
radio) * altura);
volumen:= (3.1416 * radio * radio) * altura;

{podriamos cambiar "radio*radio" por "sqr(radio)" para hacer el cuadrado del radio}

ClrScr;

WRITE ('AREA DEL CILINDRO:'); WRITE (area);WRITELN (' m2');
WRITE ('VOLUMEN DEL CILINDRO:'); WRITE (volumen); WRITE (' m3');

END.



3. Escribir un programa en Pascal que calcula el equivalente en grados Fahrenheit o Celsius de las siguientes temperaturas.

Temperatura 1 = 32º Fahrenheit
Temperatura 2 = 10 º Celsius

{Regla de 3: Celsius / 5 = (Fahrenheit – 32) / 9}

PROGRAM EJER03;

USES CRT;VAR T1,T2:REAL;
VAR T1C,T2F:REAL;

BEGIN
T1:=32;
T2:=10;

T1C:=T1 - 32;
T2F:=T2 + 32;

ClrScr;

WRITE ('TEMPERATURA EQUIVALENTE: ');
WRITE (T1:3:0); WRITE ('º Fahrenheit - ');
WRITE (T1C:3:0); WRITELN ('º Celsius');

WRITE ('TEMPERATURA EQUIVALENTE: ');
WRITE (T2:3:0); WRITE ('º Celsius -');
WRITE (T2F:3:0); WRITE ('º Fahrenheit');
END.

4. Escribir un programa en Pascal que determine si un número leído desde el teclado es par o impar.

PROGRAM EJER04;

USES CRT;

VAR num:INTEGER;

BEGIN

ClrScr;

WRITE ('Introduzca un numero entero: ');
READLN (num);

IF num = 0 THEN

WRITE ('El numerointroducido no es par ni impar, es 0')

ELSE IF ((num mod 2 = 0)) THEN

WRITE ('El numero introducido es par')

ELSE

WRITE ('El numero introducido es impar')

END.






5. Escribir un programa en Pascal que calcule el salario semanal de un trabajador en base a las horas trabajadas y el pago por hora trabajada.

· Horas ordinarias (40 primerashoras de trabajo) – 2.000 Pts/hora
· 1.5 veces precio hora ordinaria

PROGRAM EJER05;

USES CRT;

VAR htrab, ptsh:REAL; {Horas trabajadas y pts hora}
VAR nhextra, hextra:REAL; {Numero de horas extra y horas extra}
VAR salario_semanal:REAL;

BEGIN
ClrScr;

WRITE ('Introduzca las horas trabajadas y las pts/hora que se cobran ');

WRITELN('para calcular el salario semanal.');
WRITELN ('');
WRITE ('Horas trabajadas: '); READLN (htrab);
WRITE ('Pts/hora: '); READLN (ptsh);
WRITE ('Horas extra: '); READLN (nhextra);
WRITELN ('');
hextra:=nhextra * (ptsh * 1.5);
Salario_semanal:= (htrab) * (ptsh) + hextra;

WRITE ('El salario semanal son ',salario_semanal:5:0,'pts.');
END.
6. Escribir un programa que calcule la suma de los números hasta un número dado (introducido por el usuario).

PROGRAM EJER06;

USES CRT;

VAR x, y, num:INTEGER;
BEGIN
ClrScr;

WRITE ('Este programa calcula la suma de los numeros
hasta uno ');
WRITE ('introducido por el usuario: ');

READLN (num); WRITELN ('');
x:=0;...