Arreglos y Registros 06 ejercicio
David De La Cruz CastilloTrabajo11 de Febrero de 2019
1.361 Palabras (6 Páginas)186 Visitas
Algoritmo vinos_pseudo
Escribir 'ingrese los años'
Leer a
totalVino
vinos
FinAlgoritmo
Funcion vinos
Definir i,i2 Como Entero
Dimension v[(tv)+(a)]
Para i<-0 Hasta tv Hacer
Si (i<-1) Entonces
Escribir 'vinoA:'
FinSi
Si (i<-2) Entonces
Escribir 'vinoB:'
FinSi
Si (i<-3) Entonces
Escribir 'vinoC:'
FinSi
Si (i<-4) Entonces
Escribir 'vinoD:'
FinSi
Si (i<-5) Entonces
Escribir 'vinoE:'
FinSi
Para i2<-0 Hasta anios Hacer
Escribir 'los años:'
Escribir i2+1
Leer v[(i)+(i2)]
FinPara
FinPara
FinFuncion
Funcion totalVino
Escribir 'seleccione el tipo de vino que desea ingresar'
Escribir '1)tipoA'
Escribir '2)tipoB'
Escribir '3)tipoC'
Escribir '4)tipoE'
Escribir 'ingrese el tipo de vino'
Leer tv
FinFuncion
Funcion totalPorAnio
Definir i,i2,aux Como Entero
Dimension anio[anios]
Para i<-0 Hasta anios Hacer
Para i2<-0 Hasta tipoDeVino Hacer
aux <- v
anio[i] <- anio[i]+aux
FinPara
Escribir 'el total del año %i es: %i',i+1,anio[i]
FinPara
FinFuncion
Funcion mayorTipoB(anios,vinos)
Definir i,aux Como Entero
anio <- 0
m <- 0
Para i<-0 Hasta anios Hacer
aux <- 0
v <- ((1)+(i))
aux <- v
FinPara
FinFuncion
funcion sin_vino3
definir i como entero
Para i<-0 Hasta tv Con Paso 1 Hacer
si (v<-0)
imprimir "el año en que no hubo produccion de vino tipo 3 es : %i",i+1
FinSi
FinPara
FinFuncion
funcion ordenar
...