Programa para hacer la historia clinica
Enviado por OMAR ORTIZ • 24 de Noviembre de 2015 • Informes • 1.662 Palabras (7 Páginas) • 169 Visitas
Proceso historia_clinica
// El siguiente programa permite hacer la historia clinica
// de un paciente
aa<-2015
cita2<-azar(1)+30
Escribir 'HISTORIA CLINICA '
Escribir ''
Escribir 'Ingrese el Año Actual '
Leer aa
Escribir 'Ingrese Mes Actual'
Leer ma
Escribir 'Ingrese Dia Actual'
Leer da
Escribir 'N° de identificación '
Leer Iden
Escribir 'Nombre y apellido Completo '
Leer Nomb
Escribir 'Dia de Nacimiento'
Escribir 'Mes de Nacimiento'
Escribir ' Añode Nacimiento'
Escribir 'Ejemplo: 23 10 1995 '
Leer d
Leer m
Leer a
Si m=ma Entonces
Si d=da Entonces
ac<-aa-a
dc<-0
mc<-0
FinSi
Si d
ac<-aa-a
dc<-da-d
mc<-0
FinSi
Si d>da Entonces
ac<-aa-a
dc<-d-da
mc<-0
FinSi
Sino
Si d=da Entonces
ac<-aa-a
dc<-0
mc<-ma-m
FinSi
Si d
ac<-aa-a
dc<-da-d
mc<-ma-m
FinSi
Si d>da Entonces
ac<-aa-a
dc<-d-da
mc<-ma-m
...