Esta padrisima

Solo disponible en BuenasTareas
  • Páginas : 9 (2094 palabras )
  • Descarga(s) : 0
  • Publicado : 19 de febrero de 2011
Leer documento completo
Vista previa del texto
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('Elarea 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 seamayor 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 resultadode 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( 'Introduzca primer numero (entero): ' ); READLN( A ); WRITE( 'Introduzca segundo numero (entero): ' ); READLN( B ); IF...
tracking img