Ejercicios Turbo Pascal

EJERCICIOS EN PASCAL
1.- Área de un triángulo (Entrada y salida estándar - Pascal)
1.- Escribir un programa (en Pascal) que:
1º) Pida por teclado la base (dato real) de un triángulo.
2º) Pida por teclado la altura (dato real) de un triángulo.
3º) Calcule el área del triángulo.
4º) Muestre por pantalla el resultado (dato real).
En pantalla:
PROGRAM Area_triangulo;
VAR Altura, Area, Base :Real;
BEGIN
ClrScr;
WRITE( 'Introduzca base: ' );
READLN( Base );
WRITE( 'Introduzca altura: ' );
READLN( Altura );
Area := Base * Altura / 2;
WRITE( 'El area del triangulo es: ', Area:0:2 );
END.

Una segunda solución es:
PROGRAM Area_triangulo;
USES Crt;
VAR Altura, Base : Real;
BEGIN
ClrScr;
WRITE( 'Introduzca base: ' );
READLN( Base );
WRITE( 'Introduzca altura: ' );READLN( Altura );
WRITE('El area del triangulo es: ', Base * Altura / 2:0:2 );
END.

2.- Escribir un programa en Pascal que admita por teclado un ángulo en grados,
calcule su tangente y la muestre por pantalla en notación decimal con siete caracteres
y dos decimales. Precondición: angGra " 90 + k*180
PROGRAM Tangente;
CONST Pi=3.1416;
VAR angGra, angRad,tan: real;
BEGIN
WRITE ('Escribe elángulo en grados ( ángulo90+k*180): ');
READLN(angGra);
angRad:=angGra * Pi / 180;
tan:= sin(angRad) / cos (angRad)
WRITE('El valor de la tangente es: ');
WRITEln(tan:7:2)
END.

1

3.- Cambio de signo (Alternativa simple - Pascal)
Escribir un programa (en Pascal) que:
1º) Pida por teclado un número (dato real).
2º) Muestre por pantalla el número introducido, pero, cambiado de signo y,sólo en el caso de
que el número no sea mayor o igual que cero.
PROGRAM Cambio_de_signo;
USES Crt;
VAR Numero : Real;
BEGIN
ClrScr;
WRITE( 'Introduzca numero (real): ' );
READLN( Numero );
IF ( Numero < 0 ) then
WRITE( -Numero )
END.

4.- División entera (Entrada y salida estándar - Pascal)
Escribir un programa (en Pascal) que:
1º) Pida por teclado dos números (datos enteros).(Divisor y Dividendo)
2º) Muestre por pantalla el resultado de realizar la división entera del primer número
introducido por el usuario entre el segundo, y el resto.
PROGRAM Division_entera;
USES Crt;
VAR Dividendo, Divisor, Cociente, Resto : Integer;
BEGIN
ClrScr;
WRITE( 'Introduzca dividendo (entero): ' );
READLN( Dividendo );
WRITE( 'Introduzca divisor (entero): ' );
READLN( Divisor );Cociente := Dividendo div Divisor;
Resto := Dividendo mod Divisor;
WRITE(‘Dividendo, ' div ', Divisor, ' = ',
Cociente, ' ( Resto = ', Resto, ' )' );
END.

Una segunda solución es:
PROGRAM Division_entera;
USES Crt;
VAR Dividendo, Divisor : Integer;
BEGIN
ClrScr;
WRITE( 'Introduzca dividendo (entero): ' );
READLN( Dividendo );
WRITE( 'Introduzca divisor (entero): ' );
READLN( Divisor);
WRITE( ‘Dividendo, ' div ', Divisor, ' = ',
Dividendo div Divisor, ' ( Resto = ',
Dividendo mod Divisor, ' )' );
END.

2

5.- Escribir un programa que convierta un número de segundos en su equivalente en
minutos y segundos.
PROGRAM Convertir;
USES Crt;
VAR seg0,seg,min: Integer;
BEGIN
ClrScr;
WRITE('Introduzca los segundos: '); READLN(seg0);
WRITELN;
min := seg0 div 60;
seg :=seg0 mod 60;
WRITE(seg0,' segundos son ',min,' minutos y ',seg,' segundos.');
END.

Una segunda solución es:

PROGRAM Convertir;
USES Crt;
VAR iniseg, segundos, minutos: integer;
BEGIN
ClrScr;
WRITE('Dime un número de segundos:');
READLN(iniseg);
minutos := iniseg div 60;
segundos := iniseg mod 60;
WRITELNn(iniseg,' segundos son ',minutos,' minutos y ',segundos,' segundos.');READkey
END.

6.- Media aritmética (Alternativa simple - Pascal)
Escribir un programa (en Pascal) que:
1º) Pida por teclado dos números (datos enteros). (Numero 1 y Numero 2)
2º) Muestre por pantalla la media aritmética de los números introducidos, pero, sólo en el
caso de que ambos números sean mayores que cero.
PROGRAM Media;
USES Crt;
VAR A, B : Integer;
BEGIN
ClrScr;
WRITE(...