PROBLEMARIO I

         U.E. COLEGIO PARROQUIAL "SANTA TERESITA"

            Inscrito en el M.P.P.E.

            Código D.E.A.: S0905D0105

Profesor: Wladimir Alviares

Curso: 1 º Procesamiento de Datos 

Asignatura: Programación

EJERCICIOS SEGÚN (FECHA DE ENTREGA: 4 de Febrero de 2010 prorroga 9 /2/2010

Normas: Entregar en Hoja blancas y escrito a mano con lápiz

PARTE I (VALOR 2 PUNTOS C/U)

1. Desarrolle un Pseudocódigo que permita convertir calificaciones numéricas, según la siguiente tabla: A = 19 y 20, B =16, 17 y 18, C = 13, 14 y 15, D = 10, 11 y 12, E = 1 hasta el 9. Se asume que la nota está comprendida entre 1 y 20. (Según)
2. Desarrolle un pseudocódigo que imprima la tabla de multiplicar de un número entero introducido por teclado. (Según)
3. Desarrolle un pseudocódigo que permita ingresar un producto electrodoméstico, según el precio, cobrar el impuesto del 12% y si el producto pasa los 3.500 Bs. Obtendrá un descuento del 4 % del producto final. Para asi obtener el precio total a pagar.(Sentencia doble)
4. Desarrolle un pseudocódigo que permita ingresar un número correspondiente a los meses del años (1 – 12) y que permita visualizar el número de días de ese mes. (Según)
5. Desarrolle un pseudocódigo que permita ingresar un número del (1 – 10) y que permita mostrar un mensaje indicando que número es, es decir en letra. (Según).
6. Desarrolle un pseudocódigo que simule el funcionamiento de una maquina dispensadora de boleto del Metro de Caracas, que permita seleccionar el boleto a comprar y la introducción de moneda (para este caso solo monedas de 0,10 Bs.) y que finalmente entregue el boleto. (Según)
7. Desarrolle un pseudocódigo que simule una calculadora, donde permita ingresar 2 valores enteros y 1 valor de tipo carácter:                                         CONDICIONES: SI EL CARÁCTER ES +, SE IMPRIME LA SUMA, SI EL OPERADOR ES -, SE IMPRIME LA RESTA,, SI EL CARÁTER ES * SE IMPRIME LA MÙLTIPLACION Y SI EL CARÁCTER ES / SE IMPRIME LA DIVISION. (Según)

PARTE II (VALOR 2 PUNTOS C/U)

Ubicar 3 pseudocódigo distintos donde se muestre el uso de sentencia múltiple (Según), 

Ejercicio METRO DE CARACAS, Estructuras Repetitivas PARA

// Elaborado por WLADIMIR ALVIARES
// COLEGIO "PARROQUIAL SANTA TERESITA"
// 1 DE PROCESAMIENTO DE DATOS
// Pseudocodigo que simula el funcionamiento del metro de Caracas en la presentacion de las estaciones, si pulso un numero aparece la estacion correspondiente a ese nùmro solo lìnea 1

Proceso sin_titulo
estacion <-0;
esta <-0;

Para esta <- 1 Hasta 10 Con Paso 1 Hacer
Escribir "ESTACIONES DEL METRO", esta;
leer estacion
   Escribir "******************************************************************************";

si estacion =1 Entonces
Escribir "estacion PROPATRIA";
Sino
SI estacion = 2 Entonces
Escribir "estacion PEREZ BONALDE";
Sino
  si estacion = 3 Entonces
  Escribir "estacion PLAZA SUCRE";
  Sino
si estacion = 4 Entonces
Escribir "estacion GATO NEGRO";
Sino
   SI estacion = 5 Entonces
Escribir "estacion AGUA SALUD";
Sino
   SI estacion = 6 Entonces
   Escribir "estacion CAÑO AMARILLO";
Sino
   SI estacion = 7 Entonces
   Escribir "estacion CAPITOLIO";
Sino
   si estacion = 8 Entonces
   Escribir "estacion HOYADA";
Sino
   si estacion = 9 Entonces
   Escribir "estacion PARQUE CARABOBO";
Sino
   si estacion = 10 Entonces
   Escribir "estacion BELLAS ARTES";
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
 FinSi  
FinSi
FinPara
FinProceso

Ejercicio Funvisis (sismos desde 1900 hasta nuestros días)

Proceso sin_titulo
fecha <-0;
Escribir "********************************************************************************";
Escribir "FUNVISIS";
Escribir "             SISTEMA INTERNO DE BUSQUEDA DE SISMOS EN VENEZUELA                 ";

Escribir "FECHAS DE SISMOS REGISTRADOS";
Escribir "1900";
Escribir "1932";
Escribir "1950";
Escribir "1956";
Escribir "1957";
Escribir "1959";
Escribir "1965";
Escribir "1966";
Escribir "1967";
Escribir "1968";
Escribir "1975";
Escribir "1980";
Escribir "1981";
Escribir "1989";
Escribir "1997";
Escribir "2001";
Escribir "2003";
Escribir "2009";
Escribir "2010";
Escribir "********************************************************************************";

Escribir "ESCRIBIR LA FECHA QUE DESEA CONSULTAR";
leer fecha;
Escribir "********************************************************************************";
Escribir "RESULTADO:";

Segun fecha Hacer
1900:
Escribir "07/06/1900 -Hora: 4:42 Zonas afectada: Casanay y Cariaco";
Escribir "29/10/1900 -Zonas afectada: Region Norcentral, Macuto, Caraballeda, Naiguata,Canenero, Higerote,Guarenas, Guatire y otros";
1932:
Escribir "14/03/1932 - Zonas afectadas: Andes meridionales, La Grita, Tovar, El Cobre, Seboruco, Pregonero, Rubio, San Pedro del Rio y otros";

1950:
Escribir "03/08/1950 - Zonas afectadas: Distrito Moran, edo. Lara";
1956:
Escribir "Zonas afectadas: Poblaciones del Municipio Aricagua, distrito Libertador, Estado Merida";
1957:
Escribir "Zonas afectadas: Oriente Venezolano, Distrito Arismendi, Estado Sucre";
1959:
Escribir "Zonas afectadas: Placiones del Municipio Aricagua, distrito Libertador, Estado Merida";
1965:
Escribir "19/07/1965 - Zonas afectadas: Estado Trujillo";
1966:
Escribir "09/09/1966";
1967:
Escribir "29/07/1967 - Epicentro: Colombia - Zonas afectadas: San Cristobal, Estado Tachira";
Escribir "29/07/1967 - Escala: 6.5 E.R. - Zonas afectadas: Caracas";
1968:
Escribir "20/09/1968 - Zonas afectadas: Peninsula de paria, Macuro, Guiria e Irapa";
1975:
Escribir "5/3/1975 - Zonas afectadas: Guanare";
Escribir "1 mes despues fuerte temblor, Region Atarigua, San Pablo y Caracas, Estado Lara";
1980:
Escribir "17/11/1980 - Zonas afectadas: Maparari, Churuguara y El Tural";
Escribir "9 dias despues San Antonio y otras poblaciones, Estado Tachira";
1981:
Escribir "18/10/1981 - Escala: 5.5 E.R. - Epicentro: Territorio colombiano - Zonas afectadas: San Cristobal, El Piñal";
1989:
Escribir "EN TRABAJO";
1997:
Escribir "EN TRABAJO";
2001:
Escribir "EN TRABAJO";
2003:
Escribir "EN TRABAJO";
2009:
Escribir "EN TRABAJO";
2010:
Escribir "EN TRABAJO";
// modificado por wladimir
de Otro Modo:
Escribir "fecha invañida";
FinSegun
Escribir "********************************************************************************";
FinProceso

Ejercicios 1,2,3, en 1 solo

Proceso sin_titulo
// ELABORADO POR WLADIMIR ALVIARES PARA 1º DE PROCESAMIENTO DE DATOS DEL COLEGIO P. SANTA TERESITA.
// Enero del 2010
num    <-0;
monde  <-0;
cuenta <-0;
cuentat<- " ";
clave1 <-1010;
clave2 <-1212;
clave3 <-1313;
clave4 <-1414;
clave  <-0;
Escribir "**********************ELABORADO POR: WLADIMIR ALVIARES**************************";
Escribir "********************************************************************************";
Escribir "* BANCO ZETA, C.A.                                                             *";
Escribir "* AGENCIA: Av. EL CUARTEL - CATIA                                              *";
Escribir "*             BIENVENIDOS AL SISTEMA DE CAJEROS DEL BANCO ZETA, C.A.           *";
Escribir "********************************************************************************";
Escribir "Favor introducir su clave personal:";
Leer clave

si clave = clave1 Entonces
Escribir "...............................................SU CLAVE ES CORRECTA USUARIO 1";
Escribir ".";
Escribir "..";
Escribir "...";
Escribir "********************************************************************************";
Escribir "                           MENU PRINCIPAL                                       ";
Escribir "                    1)- DEPOSITOS";
Escribir "                    2)- RETIROS";
Escribir "                    3)- PAGOS SERVICIOS";
Escribir "                    4)- OTRAS OPERACIONES";
Escribir "                    5)- SALIR DEL SISTEMA";
Escribir "********************************************************************************";
Escribir "Pulsar el numero de la operacion que desea realizar:";
Leer num
Segun num Hacer
1:Escribir "          ******************** SUB MENU:DEPOSITOS ********************";
 Escribir "TIPO DE CUENTA:";
 Leer cuentat
 Escribir "NUMERO DE CUENTA:";
 Leer cuenta
 Escribir "MONTO A DEPOSITAR:";
 Leer monde
2:Escribir "         ********************* SUB MENU:RETIRO ********************* ";
3:Escribir "         ********************* SUB MENU PAGO SERVICIO ************** ";
4:Escribir "         ********************* SUB MENU OTROS SERVICIOS ************** ";
5: salir <-1;
FinSegun
Sino
si clave = clave2 Entonces
Escribir "...........................................SU CLAVES ES CORRECTA USUARIO2";
Escribir ".";
Escribir "..";
Escribir "...";
Escribir "********************************************************************************";
Escribir "                           MENU PRINCIPAL                                       ";
Escribir "                    1)- DEPOSITOS";
Escribir "                    2)- RETIROS";
Escribir "                    3)- PAGOS SERVICIOS";
Escribir "                    4)- OTRAS OPERACIONES";
Escribir "                    5)- SALIR DEL SISTEMA";
Escribir "********************************************************************************";
Escribir "Pulsar el numero de la operacion que desea realizar:";
Leer num
Segun num Hacer
1:Escribir "          ******************** SUB MENU:DEPOSITOS ********************";
 Escribir "TIPO DE CUENTA:";
 Leer cuentat
 Escribir "NUMERO DE CUENTA:";
 Leer cuenta
 Escribir "MONTO A DEPOSITAR:";
 Leer monde
2:Escribir "         ********************* SUB MENU:RETIRO ********************* ";
3:Escribir "         ********************* SUB MENU PAGO SERVICIO ************** ";
4:Escribir "         ********************* SUB MENU OTROS SERVICIOS ************** ";
5: salir <-1;
FinSegun

Sino
si clave = clave3 Entonces
Escribir "........................................SU CLAVE ES CORRECTA USUARIO3";
Escribir ".";
Escribir "..";
Escribir "...";
Escribir "********************************************************************************";
Escribir "                           MENU PRINCIPAL                                       ";
Escribir "                    1)- DEPOSITOS";
Escribir "                    2)- RETIROS";
Escribir "                    3)- PAGOS SERVICIOS";
Escribir "                    4)- OTRAS OPERACIONES";
Escribir "                    5)- SALIR DEL SISTEMA";
Escribir "********************************************************************************";
Escribir "Pulsar el numero de la operacion que desea realizar:";
Leer num
Segun num Hacer
1:Escribir "          ******************** SUB MENU:DEPOSITOS ********************";
 Escribir "TIPO DE CUENTA:";
 Leer cuentat
 Escribir "NUMERO DE CUENTA:";
 Leer cuenta
 Escribir "MONTO A DEPOSITAR:";
 Leer monde
2:Escribir "         ********************* SUB MENU:RETIRO ********************* ";
3:Escribir "         ********************* SUB MENU PAGO SERVICIO ************** ";
4:Escribir "         ********************* SUB MENU OTROS SERVICIOS ************** ";
5: salir <-1;
FinSegun
Sino
si clave = clave4 Entonces
Escribir "....................................SU CLAVE ES CORRECTA USUARIO4";
Escribir ".";
Escribir "..";
Escribir "...";
Escribir "********************************************************************************";
Escribir "                           MENU PRINCIPAL                                       ";
Escribir "                    1)- DEPOSITOS";
Escribir "                    2)- RETIROS";
Escribir "                    3)- PAGOS SERVICIOS";
Escribir "                    4)- OTRAS OPERACIONES";
Escribir "                    5)- SALIR DEL SISTEMA";
Escribir "********************************************************************************";
Escribir "Pulsar el numero de la operacion que desea realizar:";
Leer num
Segun num Hacer
1:Escribir "          ******************** SUB MENU:DEPOSITOS ********************";
 Escribir "TIPO DE CUENTA:";
 Leer cuentat
 Escribir "NUMERO DE CUENTA:";
 Leer cuenta
 Escribir "MONTO A DEPOSITAR:";
 Leer monde
2:Escribir "         ********************* SUB MENU:RETIRO ********************* ";
3:Escribir "         ********************* SUB MENU PAGO SERVICIO ************** ";
4:Escribir "         ********************* SUB MENU OTROS SERVICIOS ************** ";
5: salir <-1;
FinSegun
Sino
Escribir "********** LA CLAVE ES INCORRECTA ********** LA CLAVE ES INCORRECTA **********";
FinSi
FinSi


FinSi
FinSi

FinProceso

Plan de evaluacion - Contenidos