LABORATORIO CICLOS FOR - MIENTRAS
Ivan PavaTrabajo29 de Agosto de 2017
18.297 Palabras (74 Páginas)279 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
Definir suma Como Entero
c<-1
Mientras c<=10 Hacer
Escribir "ingrese los numeros para sumarlos"
leer num
Si c>5 Entonces
suma<-suma+num
Fin Si
c<-c+1
Fin Mientras
Escribir "las suma de los ultimos numeros", suma
FinAlgoritmo
PARA:
Algoritmo sin_titulo
definir num Como Entero
definir c, a, b Como Entero
Definir suma Como Entero
Para c<-1 Hasta 10 Con Paso 1 Hacer
Escribir "ingrese los numeros para sumarlos"
Leer num
Si c>5 Entonces
suma<-suma+num
Fin Si
Fin Para
Escribir "las suma de los ultimos numeros", suma
FinAlgoritmo
- Realizar un programa que lea los lados de n triángulos, e informar:
a) De cada uno de ellos, qué tipo de triángulo es: equilátero (tres lados iguales), isósceles (dos lados iguales), o escaleno (ningún lado igual)
b) Cantidad de triángulos de cada tipo.
c) Tipo de triángulo que posee menor cantidad.
MIENTRAS:
Algoritmo sin_titulo
definir l1, l2, l3 Como Entero
definir cant1, cant2, cant3 Como Entero
definir c, n como entero
Escribir "ingrese los lados de n de los triangulos";
leer n
c<-1
Mientras c<=n Hacer
escribir "ingrese los lados uno de los triangulos";
leer l1
escribir "ingrese los lados dos de los triangulos";
leer l2
escribir "ingrese los lados tres de los triangulos";
leer l3
...