¿Cómo escribo un programa QBASIC que calcula el área de un círculo, un rectángulo y un triángulo? ¿Debería el programa permitir al usuario seleccionar la forma (C o c para círculo, R o r para Rectángulo, T o t para Triángulo) cuya área desea calcular?

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!

Espero que esto te ayude…