12.169 cursos gratis
8.789.377 alumnos
Facebook Twitter YouTube
Busca cursos gratis:

Algoritmos en QBASIC. Manual

Autor: Abraham Sopla Maslucán
Curso:
8/10 (3 opiniones) |12730 alumnos|Fecha publicación: 26/10/2009
Envía un mensaje al autor

Capítulo 18:

 39 ejercicios resueltos (4/4)

30. Hacer un programa que invierta un texto ingresado por el teclado.

DIM NB, TextoI AS STRING

CLS

INPUT "ESCRIBA UN TEXTO; ", NB$

LT = LEN(NB$)

FOR i = LT TO 1 STEP -1

        TextoI$ = TextoI$ + MID$(NB$, i, 1)

NEXT

PRINT TextoI$

31. Hacer un programa que muestre los múltiplos de 5 comprendidos entre 200 y 300. Iniciar el contador en 200.

CLS

x = 200

DO WHILE x <= 300

PRINT x

        x = x + 5

LOOP

32. Calcular el acumulado de las edades de un grupo de N personas siempre y cuando dichas edades sean mayores a 18 y no pasen de 45.

CLS

INPUT "cantidad de personas: ", n

x = 1

DO WHILE x < n

       INPUT "EDAD; ", E

        IF E > 18 AND E <= 45 THEN

                SUMA = SUMA + E

        END IF

        x = x + 1

LOOP

PRINT "ACUMULADO ES: ", SUMA

33. Programa que calcula el promedio de las edades menores a 20 y mayores a 55 de un grupo de N personas.

CLS

INPUT "cantidad de personas: ", N

x = 0

DO WHILE x < N

       INPUT "EDAD; ", E

        IF E < 20 OR E > 55 THEN

                SUMA = SUMA + E

        END IF

        x = x + 1

LOOP

PRINT "PROMEDIO ES: "; SUMA / N

34. Hacer en programa que muestre los números pares entre 1000 y 0. No se escribirá los números que se encuentren en el rango de 200 A 50.

CLS

X = 1000

DO WHILE X > 0

        X = X - 2

        IF X > 50 AND X > 200 THEN

               PRINT X

        END IF

LOOP

35. Hacer un programa que en cada vuelta vaya mostrando los acumulados de los números pares ente 1000 y 0 pero no escribirá los números cuando el contador se encuentra entre el rango de 200 a 50.

CLS

X = 1000

DO WHILE X > 0

        X = X - 2

        IF X > 50 AND X > 200 THEN

               SUMA = SUMA + X

               PRINT X, SUMA

        END IF

LOOP

36. Dados n números, hacer un programa que determine la suma de los que sean mayores a cero, el producto de los menores que cero y se cuenten cuantos números son iguales a cero.

CLS

INPUT "CANTIDAD DE NÚMEROS: ", C

X = 0

P = 1

S = 0

DO WHILE X < C

        X = X + 1

        INPUT "NUMERO: ", N

        IF N = 0 THEN

               CE = CE + 1

        ELSE

               IF N > 0 THEN

                S = S + N

               ELSE

                P = P * N

               END IF

        END IF

LOOP

PRINT CE, S, P

37. Si ingresamos los valores de los lados (a, b, c) de 35 triángulos. Calcular cuántas áreas son pares, cuántas impares, cuántas no se pudieron calcular por no existir el Triángulo.

CLS

X = 0

P = 1

S = 0

DO WHILE X <= 35

X = X + 1

        INPUT "LADO A: ", A

        INPUT "LADO B: ", B

        INPUT "LADO C: ", C

        IF A + B > C AND B + C > A AND A + C > B THEN

               S = (A + B + C) / 2

               AREA = S * SQR((S - A) * (S - B) * (S - C))

               IF AREA MOD 2 = 0 THEN

                SAP = SAP + 1

                ELSE

                SAI = SAI + 1

               END IF

        ELSE

                ANC = ANC + 1

        END IF

LOOP

PRINT "AREAS PARES", SAP

PRINT "AREAS IMPARES", SAI

PRINT "AREAS NO SE PUEDEN CALCULAR", ANC

38. En el ejercicio anterior se desea conocer cual fue el triángulo de mayor área.

CLS

X = 0

P = 1

S = 0

MAYOR = 50000

DO WHILE X <= 35

X = X + 1

        PRINT "OTRA AREA"

        PRINT "================================================"

        INPUT "LADO A: ", A

        INPUT "LADO B: ", B

        INPUT "LADO C: ", C

      IF A + B > C AND B + C > A AND A + C > B THEN

               S = (A + B + C) / 2

                              AREA = S * SQR((S - A) * (S - B) * (S - C))

                              IF AREA MOD 2 = 0 THEN

                                            SAP = SAP + 1

                              ELSE

                                            SAI = SAI + 1

                              END IF

                              IF MAYOR > AREA THEN

                                            MAYOR = AREA

                              END IF

               ELSE

               ANC = ANC + 1

               END IF

LOOP

PRINT "ÁREAS PARES ", SAP

PRINT "ÁREAS IMPARES ", SAI

PRINT "ÁREAS NO SE PUEDEN CALCULAR ", ANC

PRINT "ÁREA MAYOR ", MAYOR

39. En el ejercicio anterior se desea conocer cual es el triángulo de menor área.

CLS

X = 0

P = 1

S = 0

MENOR = 0

DO WHILE X <= 35

X = X + 1

        PRINT "OTRA AREA"

        PRINT "================================================"

        INPUT "LADO A: ", A

        INPUT "LADO B: ", B

        INPUT "LADO C: ", C

        IF A + B > C AND B + C > A AND A + C > B THEN

               S = (A + B + C) / 2

               AREA = S * SQR((S - A) * (S - B) * (S - C))

               IF AREA MOD 2 = 0 THEN

                SAP = SAP + 1

                ELSE

                SAI = SAI + 1

               END IF

               IF MENOR < AREA THEN

                  MENOR = AREA

               END IF

        ELSE

                ANC = ANC + 1

        END IF

LOOP

PRINT "ÁREAS PARES ", SAP

PRINT "ÁREAS IMPARES ", SAI

PRINT "ÁREAS NO SE PUEDEN CALCULAR ", ANC

PRINT "ÁREA MENOR", MENOR

Nuestras novedades en tu e-mail

Escribe tu e-mail:



MailxMail tratará tus datos para realizar acciones promocionales (vía email y/o teléfono).
En la política de privacidad conocerás tu derechos y gestionarás la baja.

Cursos similares a Algoritmos en QBASIC. Manual



  • Vídeo
  • Alumnos
  • Valoración
  • Cursos
1. Algoritmos y lenguaje C
Este curso pretende dar a conocer las explicaciones más simples del trabajo de los... [13/01/06]
36.357  
2. Manual de programación
El objetivo de este curso consiste en ofrecer conocimientos básicos de... [31/01/08]
4.300  
3. Manual HTML
HTML es un lenguaje muy sencillo que permite describir hipertexto, es decir, texto... [25/11/04]
74.947  

¿Qué es mailxmail.com?|ISSN: 1699-4914|Ayuda
Publicidad|Condiciones legales de mailxmail