Eso es posible.
NB: el área del triángulo se da para un triángulo rectángulo recto.
Estoy usando una función llamada INKEY en Qbasic
CLS REM PARA APRENDER CODIFICAR IMPRESIÓN "--Menu--" IMPRIMIR "SELECCIONE CUALQUIERA DE LOS SIGUIENTES:" IMPRIMIR "C PARA EL CÍRCULO" IMPRIMIR "R PARA EL RECTÁNGULO" IMPRIMIR "T PARA EL TRIÁNGULO" K $ = "" DO K $ = UCASE $ (INKEY $) LOOP HASTA K $ "" SI K $ = "C" ENTONCES 'El usuario ha optado por Circle INPUT "Ingrese el radio del círculo:"; RADIUS AREA = (22/7) * RADIUS * RADIUS IMPRIMA "Área del círculo:"; AREA ELSEIF K $ = "R" ENTONCES 'El usuario ha optado por la entrada del rectángulo "Ingrese la longitud del rectángulo:"; L INPUT "Ingrese la amplitud del rectángulo:"; RA = L * B PRINT "Área del Rectángulo:"; A ELSEIF K $ = "T" ENTONCES 'El usuario ha optado por Trinagle INPUT "Ingrese la Base del Triángulo:"; B INPUT "Ingrese la Altura del Triángulo:"; H A2 = (1/2) * B * H IMPRIMIR "Área del triángulo:"; A2 IMPRIMIR MÁS "ENTRADA NO VÁLIDA !!!" TERMINARA SI
¡Gracias!
- ¿Cuántos lados tiene una esfera?
- Si una línea es una forma, ¿eso hace que un punto sea un círculo?
- ¿Cómo puedo obtener una distancia perpendicular uniendo una línea (1,2, -1), (4,2,1) desde un punto (1,2,3)?
- ¿Podemos encontrar el ángulo entre dos vectores en números sin conocer la magnitud de los vectores?
- En el triángulo ABC, tenemos AC = BC = 7 y AB = 2. Supongamos que D es un punto en la línea AB tal que B se encuentra entre A y D y CD = 8, ¿cuál es la longitud del segmento BD?
Espero que esto te ayude…