PSEUDOCODIGO PROGRAMA HOROSCOPO
Var. Mes, día
Nombre
Inicia primer bloque
Constantes: amor, salud, trabajo.
Randomize (5)
Termina bloque
Procedimiento caratula
inicio
1.- Leer('Colegio DeCiencias Y Humanidades Plantel Sur');
2.- Leer('Cibernética y computación II');
3.- Leer('Profesor Aníbal Cambrón');
4.- Leer('Zaira Hernández Evaristo');
5.- Leer('Programa del Horóscopo');fin de procedimiento.
procedimieto entrada var mes, día
var. nombre
Inicio
1.-Escribir (‘nombre’);
2.-Leer (‘nombre’);
3.-Escribir (‘mes de nacimiento’);
4.-Leer (‘mes denacimiento’);
5.-Escribir (‘día de nacimiento’);
6.-Leer (‘mes de nacimiento’);
Procedimiento leer archivo x:
Var.a, b
Inicio
asignación(a,x);
Leer a,b
Escribir b
Fin de procedimiento
Inicia bloqueselección de signos
Procedimiento selección signo zodiacal mes, día
var x
inicio
Case mes of
Caso 1: si dia<21 entonces
Inicio
Escribir('capricornio');
Leer archivo('capricornio.txt');
x:=suerte
Leerarchivo(trabajo[x]);
x:=suerte
Leer archivo(salud[x]);
x:=suerte();
Leer archivo(amor[x]);
Fin de bloque
Inicio
Escribir('Acuario');
Leer archivo ('acuario.txt');
Fin de caso1
Case mes of
Caso 2:si dia<20 entonces
Inicio
Escribir('Acuario');
Leer archivo('acuario.txt');
x:=suert
Leer archivo(trabajo[x]);
x:=suerte
Leer archivo (salud[x]);
x:=suerte
Leer archivo(amor[x]);
Fin de bloqueEscribir('Piscis');
Leer archivo('capricornio.txt');
Fin de bloque
Caso 3: si dia <20 entonces
Inicio
Escribir ('Piscis');
Leer archivo ('capricornio.txt');
x:=suerte
leer archivo(trabajo[x]);x:=suerte
Leer archivo (salud[x]);
x:=suerte
Leer archivo (amor[x]);
Fin de bloque
Inicio
Escribir('Piscis');
Leer archivo('capricornio.txt');
Fin de caso3
case mes of
caso 4: si dia<21 entonces
inicioescribir('aries');
leer archivo('aries.txt');
x:=suerte
leer archivo(trabajo[x]);
x:=suerte
leer archivo(salud[x]);
x:=suerte();
leer archivo(amor[x]);
fin de bloque
inicio
escribir('tauro');
Leer...
Regístrate para leer el documento completo.