Metodologia Maps

UNIVERSIDAD NACIONAL ABIERTA

ÁREA DE INGENIERÍA

CARRERA INGENIERÍA INDUSTRIAL

TRABAJO PRÁCTICO

ASIGNATURA: Computación I

CÓDIGO: 323

APELLIDOS Y NOMBRES: José Castellano

CÉDULA DE IDENTIDAD: V – 7.565.694

CENTRO LOCAL: Falcón – Pto. Fijo

CÓDIGO DEL CENTRO LOCAL: 0901

CARRERA: Ingeniería Industrial

CÓDIGO DE LA CARRERA: 280

FIRMA DEL ESTUDIANTE:

LAPSO: 11/1METODOLOGÍA MAPS

|Entradas |Salidas |
|Datos del paciente (nombre y apellido, cedula, edad, sexo, |Planilla de registro con los datos del paciente, la operación |
|dirección, teléfono) |que se realizó y los costos generados por cada tipodurante el|
| |período 2010 |
|Datos de la operación (costo, tipo, días de hospitalización) | |

Identificación de Rutinas y Abstracciones

Procedimiento de Reporte de Pacientes

procedimiento reporte_datos
{Pre: cantidadde pacientes; i, np}
{Post: datos de los pacientes; nom[i], ced[i], sexo[i], edad[i], dir[i], tlf[i], dias[i], tipo[i] }

Procedimiento de Ingreso de Pacientes

procedimiento incluir_datos;
{Pre: número de pacientes; i, np}
{Post: datos de los pacientes; nom[i], ced[i], sexo[i], edad[i], dir[i], tlf[i], dias[i], tipo[i] }

Procedimiento de Modificación de Pacientes

procedimientomodificar_datos;
{Pre: número de pacientes, cedula del paciente; i, cod, np}
{Post: datos del paciente; nom[i], ced[i], sexo[i], edad[i], dir[i], tlf[i], dias[i], tipo[i] }

Procedimiento de Eliminación de Pacientes

procedimiento eliminar_datos;
{Pre: número de pacientes, cedula del paciente; i, cod, np}
{Post: datos de los pacientes; nom[i], ced[i], sexo[i], edad[i], dir[i], tlf[i], dias[i],tipo[i] }

Diagrama de Rutinas

[pic]

ALGORITMO HACIENDO USO DEL CONCEPTO DE ROBUSTEZ

La robustez del programa está relacionada con la validación de los tipos de operación y la cédula de los pacientes registrados en el sistema, por lo tanto, se efectúan las siguientes validaciones:

• Validación del sexo del paciente

Repetir
Escribir ('Sexo [m/f]: ');
Leer (valsexo);
Si(valsexo='m') o (valsexo='M') o (valsexo='f') o (valsexo='F') entonces
Inicio
sexo[i]:=valsexo;
fin
Por el contrario
inicio
Escribir ('Error, debe ser M o F, pulse "R" para repetir');
Leer (op);
Fin;
Hasta que (op'r');

• Validación del tipo de operación

Repetir
Escribir ('Tipo de Operacion: ');
Leer (opera);
Si (opera='a') o(opera='A') o (opera='b') o (opera='B') o (opera='c') o (opera='C') entonces
Inicio
tipo[i]:=opera;
fin
por el contrario
inicio
escribir ('Error, debe ser A, B o C, pulse "R" para repetir');
leer (op);
fin;
hasta que (op'r');

• Validación de la Cédula del Paciente para su Modificación y Eliminación

si (cod=ced[i]) entoncesescribir ('Cedula: ',ced[i]);
escribir ('Nombre y Apellido: ',nom[i]);
escribir ('Edad: ',edad[i]);
escribir ('Sexo: ',sexo[i]);
escribir ('Direccion: ',dir[i]);
escribir ('Telefono: ',tlf[i]);
escribir ('Dias de Hospitalizaci¢n: ',dias[i]);escribir ('Tipo de Operacion: ',tipo[i]);
fin;

Pseudocódigo

program dentaven;
uses crt;
type vector1 = array[1..10] of string;
vector2 = array[1..10] of longint;
vector3 = array[1..10] of char;
vector4 = array[1..10] of integer;
const a = 1000;
d = 1501;
var np, i, opción, menor, mayor : integer;
ced, tlf,...