Encuentras de estudiantes

Encuesta informativa  de la Universidad UTQ"

el programa encuesta que nos permite almacenar datos de lo estudiante si son mayor de edad . Si están casado  también si es mujer y si fuman solo estudiante de distintas  carreras como la de software , arquitectura y enfermería 

1: Cuantos  estudiantes menores de 18 años fuman 

2:  Cuantos estudiantes de la carrera de  software son soleros 

3:Cuantas estudiantes de la  carrera de arquitectura son mujeres y si fuman 

4:Cuantos estudiantes hombres son casados en  la carrera de  la arquitectura  y Enfermería

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

Algoritmo encuestaEstudiantes

//Elaborado por:Leonardo Cabezas Briones 

Dimension preguntas[5]

Dimension estudiantes[30,5]

Definir estudiantes, preguntas Como Cadena

Definir i,j Como Entero

Definir teclaSalir Como Caracter

preguntas[1] <- "¿Sexo...(H/M)?..."

preguntas[2] <- "¿Edad?....."

preguntas[3] <- "¿Estado Civil (S/C)?...."

preguntas[4] <- "¿Fuma....(S/N)?...."

preguntas[5] <- "(1)  En la carrera de Software, (2) , En la carrera de  la arquitectura , (3) En la carrera de Emfermeria ...(1 a 3)"

i<-1

Repetir

Escribir "Bienvenido a la encuesta informativa de la Universida UTQ"

Escribir ""

Escribir ""

Escribir ""

Escribir ""

Escribir "----------------------"

Escribir "ESTUDIANTE Nº ", i, ": "

Escribir "----------------------"

Para j<-1 Hasta 5 Con Paso 1 Hacer

Escribir preguntas[j] Sin Saltar

Leer estudiantes[i,j]

FinPara

Escribir ""

Escribir "Pulas la tecla S para salir......" Sin Saltar

Leer teclaSalir

i <- i+1

Hasta Que (i==30) O (Mayusculas(teclaSalir)=='S')

menores18(estudiantes)

solterosDS(estudiantes)

mujFumanAE(estudiantes)

homCasadosAEyMD(estudiantes)

FinAlgoritmo

Funcion menores18(matriz)

Definir i, vacios, men18 Como Entero

men18 <- 0

Para i<-1 Hasta 30 Con Paso 1 Hacer

Si !(matriz[i,2]=="") Entonces

Si ConvertirANumero(matriz[i,2])<18 Entonces

men18 <- men18 + 1

FinSi

SiNo

vacios <- i

FinSi

FinPara

Escribir "Estudiantes menores de 18 años = ", men18

FinFuncion

Funcion solterosDS(matriz)

Definir i, vacios, solteros Como Entero

solteros <- 0

Para i<-1 Hasta 30 Con Paso 1 Hacer

Si !(matriz[i,3]=="") Entonces

Si Mayusculas(matriz[i,3])=='S' Y matriz[i,5]=='1' Entonces

solteros <- solteros + 1

FinSi

SiNo

vacios <- i

FinSi

FinPara

Escribir "Estudiantes solteros de la  carrera de Software  = ", solteros

FinFuncion

Funcion mujFumanAE(matriz)

Definir i, vacios, mujFuman Como Entero

mujFuman <- 0

Para i<-1 Hasta 30 Con Paso 1 Hacer

Si !(matriz[i,1]=="") Entonces

Si Mayusculas(matriz[i,1])=='M' Y Mayusculas(matriz[i,4])=='S' Y matriz[i,5]=='2' Entonces

mujFuman <- mujFuman + 1

FinSi

SiNo

vacios <- i

FinSi

FinPara

Escribir "Estudiantes mujeres que fuman del  En la carrera de  la arquitectura = ", mujFuman

FinFuncion

Funcion homCasadosAEyMD(matriz)

Definir i, vacios, homCasados Como Entero

homCasados <- 0

Para i<-1 Hasta 30 Con Paso 1 Hacer

Si !(matriz[i,1]=="") Entonces

Si Mayusculas(matriz[i,1])=='H' Y Mayusculas(matriz[i,3])=='C' Y (matriz[i,5]=='2' O matriz[i,5]=='3') Entonces

homCasados <- homCasados + 1

FinSi

SiNo

vacios <- i

FinSi

FinPara

Escribir "Estudiantes hombres casados de  la carrera de  la arquitectura  y Efermeria  = ", homCasados

FinFuncion

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓