Ejercicios sobre Input/Output y Operaciones Aritmeticas
PROGRAM PROJEC
************************************************************************
* This program calculates the velocity and height of a projectile *
* given its initial height, initial velocity, and constant *
* acceleration. Variables used are: *
* HGHT0 : initial height *
* HGHT : height at any time *
* VELOC0 : initial vertical velocity *
* VELOC : vertical velocity at any time *
* ACCEL : vertical acceleration *
* TIME : time elapsed since projectile was launched *
* *
* Input: HGHT0, VELOC0, TIME *
* Output: VELOC, HGHT *
************************************************************************
REAL HGHT0, HGHT, VELOC0, VELOC, ACCEL, TIME
ACCEL = -9.807
PRINT *, 'ENTER THE INITIAL HEIGHT AND VELOCITY:'
READ *, HGHT0, VELOC0
PRINT *, 'ENTER TIME AT WHICH TO CALCULATE HEIGHT AND VELOCITY:'
READ *, TIME
HGHT = 0.5 * ACCEL * TIME ** 2 + VELOC0 * TIME + HGHT0
VELOC = ACCEL * TIME + VELOC0
PRINT *, 'AT TIME ', TIME, ' THE VERTICAL VELOCITY IS ', VELOC
PRINT *, 'AND THE HEIGHT IS ', HGHT
END
|
Escribir un programa que convierta los grados Celsius a Farenheit y mostrar en pantalla el resultado. Recordar que la relación entre las dos es:
degF = (9/5)*degC + 32
Escribir un programa que escribe en pantalla la raiz cuadrada de cada número desde 1 a 20-
Escribir un programa que toma tres números desde el teclado, a, b y c y muestra en pantalla las raices de la ecuación:
Notar que el programa fallará cuando intentemos realizar raices negativas. Este problema lo solventaremos más adelante.