LABORATORIO CICLOS FOR - MIENTRAS

LABORATORIO CICLOS FOR - MIENTRAS

1. Escribir un programa que lea 10 notas de alumnos y nos informe cuántos tienen notas mayores o iguales a 7 y cuántos menores.

MIENTRAS:

Algoritmo sin_titulo

        Definir c Como Entero

        Definir a, b, d Como entero

        Definir nota Como entero

        c<-1

        Mientras c<=10 Hacer

                Escribir "ingrese las notas";

                Leer nota

                Si nota=7 Entonces

                        a<-a+1

                Sino

                        Si nota<7 Entonces

                                b<-b+1

                        Sino

                                d<-d+1

                        Fin Si

                Fin Si

                c<-c+1

        Fin Mientras

        Escribir "notas iguales", a

        Escribir "notas menores", b

        Escribir "notas mayores", d

FinAlgoritmo

PARA:

Algoritmo sin_titulo

        Definir c Como Entero

        Definir a, b, d Como entero

        Definir nota Como entero

        Para c<-1 Hasta 10 Con Paso 1 Hacer

                Leer nota

                Si nota=7 Entonces

                        a<-a+1

                Sino

                        Si nota<7 Entonces

                                b<-b+1

                        Sino

                                d<-d+1

                        Fin Si

                Fin Si

        Fin Para

        Escribir "notas iguales", a

        Escribir "notas menores", b

        Escribir "notas mayores", d

FinAlgoritmo

1. Confeccionar un programa que lea n pares de datos, cada par de datos corresponde a la medida de la base y la altura de un triángulo. El programa deberá informar:

          a) De cada triángulo la medida de su base, su altura y su superficie.

          b) La cantidad de triángulos cuya superficie es mayor a 12.

MIENTRAS:

Algoritmo sin_titulo

        definir m, b, h, s, contador, n Como Entero

        Escribir "ingrese los n de triangulos";

        leer n

        Escribir n

        contador<- 1

        Mientras contador<=n Hacer

                Escribir "ingrese las bases de los trianqulos";

                leer b

                Escribir "base de este triangulo es:",b

                Escribir "ingrese las alturas de los triangulos";

                Leer h

                Escribir "altura de este triangulo es:", h

                s<-trunc(b*h/2)

                Escribir "superficie de este triangulo es:", s

                Si s>12 Entonces

                        m<-m+1

                Fin Si

                contador<-contador+1

        Fin Mientras

        escribir "cantidad de triangulos con superficie mayores a 12 es", m

FinAlgoritmo

PARA:

Algoritmo sin_titulo

        definir m, b, h, s, contador, n Como Entero

        Escribir "ingrese los n de triangulos";

        leer num

        Escribir num

        Para contador<-1 Hasta num Con Paso 1 Hacer

                Escribir "ingrese las bases de los trianqulos";

                leer b

                Escribir "base de este triangulo es:",b

                Escribir "ingrese las alturas de los triangulos";

                Leer h

                Escribir "altura de este triangulo es:", h

                s<-trunc(b*h/2)

                Escribir "superficie de este triangulo es:", s

                Si s>12 Entonces

                        m<-m+1

                Fin Si

        Fin Para

        escribir "cantidad de triangulos con superficie mayores a 12 es", m

FinAlgoritmo

1. Desarrollar un programa que solicite la carga de 10 números e imprima la suma de los últimos 5 valores ingresados.

MIENTRAS:

Algoritmo sin_titulo

        definir num Como Entero

        definir c, a, b Como Entero

...