Esta padrisima
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...
Regístrate para leer el documento completo.