/*
CREAR UNA APLICACION QUE PERMITA INGRESAR LA CANTIDAD DE ALUMNOS
QUE HAYA EN LAS CARRERAS DE:
INDUSTRIAL, SISTEMAS, ARQUITECTURA Y CIVIL
LUEGO, LA APLICACION DEBE MOSTRAR UN GRAFICO DE BARRAS( CON EJES) QUE MUESTRE LA CANTIDAD DE ALUMNOS DE CADA CARRERA

*/

PSEUDICO:


ENTERO  CIVIL, ARQUI, INDUSTRIAL, J, SISTEMAS
ENTERO S, A, C,I
INICIO

LLAMAR COLOR_TEXTO(11)
ESCRIBA "APLICACION  PARA INGRESAR CANTIDAD DE ALUMNOS Y LUEGO GRAFICARLA"
LLAMAR NUEVA_LINEA()
ESCRIBA " LAS CARRERAS SON: 'ING.SISTEMAS, ING. CIVIL, ING. INDUSTRIAL, ARQUITECTURA' "
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE EL NUMERO DE ESTUDIANTES DE LA FACULDAD DE ING. SISTEMAS: "
LEA SISTEMAS
S <- SISTEMAS / 10
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE EL NUMERO DE ESTUDIANTES DE LA FACULDAD DE ING. CIVIL: "
LEA CIVIL
C <- CIVIL / 10
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE EL NUMERO DE ESTUDIANTES DE LA FACULDAD DE ING. INDUSTRIAL: "
LEA INDUSTRIAL
I <- INDUSTRIAL / 10
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE EL NUMERO DE ESTUDIANTES DE LA FACULDAD DE ARQUITECTURA: "
LEA ARQUI
A <- ARQUI / 10
LLAMAR NUEVA_LINEA()
LLAMAR LIMPIAR_PANTALLA()
//LINEA VERTICAL
PARA J <- 5 HASTA 20 HAGA
LLAMAR POSICIONAR_CURSOR (21,J)
ESCRIBA CAR(179)
FIN PARA


//LINEA HRZ
PARA J <- 21 HASTA 60 HAGA
LLAMAR POSICIONAR_CURSOR(J,50)
ESCRIBA CAR(196)
FIN PARA
//ESQUINA INF
LLAMAR POSICIONAR_CURSOR (21,20)
ESCRIBA CAR(192)
//POSICIONAR CARRERAS

//SISTEMAS
LLAMAR POSICIONAR_CURSOR (2,18)
ESCRIBA "ING. CIVIL "
//BARRAS
PARA J <- 1 HASTA C HAGA
LLAMAR COLOR_TEXTO(6)
LLAMAR POSICIONAR_CURSOR(J+23,18)
ESCRIBA CAR(178)
LLAMAR COLOR_TEXTO (14)
ESCRIBA " ", CIVIL
LLAMAR POSICIONAR_CURSOR(50,50)
FIN PARA
//CIVIL
LLAMAR POSICIONAR_CURSOR (2,14)
ESCRIBA " SISTEMAS "
//BARRAS
PARA J <- 1 HASTA S HAGA
LLAMAR COLOR_TEXTO(14)
LLAMAR POSICIONAR_CURSOR(J+23,14)
ESCRIBA CAR(178)
LLAMAR COLOR_TEXTO(11)
ESCRIBA " ", SISTEMAS
LLAMAR POSICIONAR_CURSOR(50,50)
FIN PARA
//INDUSTRIAL
LLAMAR POSICIONAR_CURSOR (2,10)
ESCRIBA " INDUSTRIAL"
//BARRAS
PARA J <- 1 HASTA I HAGA
LLAMAR COLOR_TEXTO(5)
LLAMAR POSICIONAR_CURSOR(J+23,10)
ESCRIBA CAR(178)
LLAMAR COLOR_TEXTO (14)
ESCRIBA " ", INDUSTRIAL
LLAMAR POSICIONAR_CURSOR(50,50)
FIN PARA
//ARQUITECTURA

LLAMAR POSICIONAR_CURSOR (2,6)
ESCRIBA " ARQUITECTURA "

//BARRAS
PARA J <- 1 HASTA A HAGA
LLAMAR COLOR_TEXTO(15)
LLAMAR POSICIONAR_CURSOR(J+23,6)
ESCRIBA CAR(178)
LLAMAR COLOR_TEXTO (14)
ESCRIBA " ", ARQUI
LLAMAR POSICIONAR_CURSOR(50,50)
FIN PARA
LLAMAR POSICIONAR_CURSOR(25,21)
ESCRIBA "NUMERO DE ESTUDIANTES"

FIN
FIN


NOTA : EJECUTALO Y VE SI PRESENTA ALGUNA FALLA :)