LABORATORIO CICLOS FOR - MIENTRAS
Enviado por Ivan Pava • 29 de Agosto de 2017 • Trabajo • 18.297 Palabras (74 Páginas) • 270 Visitas
LABORATORIO CICLOS FOR - MIENTRAS
- 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
- 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
- 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
...