Alogaritmos

ALGORITMO ORACULOo; VAR RESP: CARACTER;

INICIO
| ESCREVER('Pense em um destes animais: Leão, Cavalo, Macaco, Baleia, Pato, Urubu ou Sabiá e responda as perguntas com S(sim) ou N (não)');
| ESCREVER('O animal é Mamífero?');
| LER(RESP);
| SE ( RESP = 'S')ENTAO
| | ESCREVER('O animal é Quadrúpede ? ');
| | LER(RESP);
| | SE( RESP = 'S')ENTAO
| | | ESCREVER('O animal é Carnívoro ? ');
| | | LER(RESP);
| | | SE( RESP = 'S')ENTAO
| | | | ESCREVER('O animal é um LEÃO');
| | | |
| | | SENAO
| | | | ESCREVER('O animal é um CAVALO');
| | | FIM_SE;
| | |
| | SENAO
| | | ESCREVER('O animal é Bípede ? ');
| | | LER(RESP);
| | | SE( RESP = 'S')ENTAO
| | | | ESCREVER('O animal é Onívoro ? ');
| | | | LER(resp);
| | | | SE( RESP = 'S')ENTAO
| | | | | ESCREVER('O animal é o HOMEM');
| | | | SENAO
| | | | | ESCREVER('O animal é um MACACO');
| | | | FIM_SE;
| | | SENAO
| | | ESCREVER('O animal é Voador ? ');
| | | LER(RESP);
| | | SE( RESP = 'S')ENTAO
| | | | ESCREVER('O animal é um MORCEGO');
| | | |
| | | SENAO
| | | | ESCREVER('O animal é Aquático ? ');
| | | | LER(RESP);
| | | | SE( RESP = 'S')ENTAO
| | | | | ESCREVER('O animal é uma BALEIA');
| | | | SENAO
| | | | | ESCREVER('Animal inexistente');
| | | | FIM_SE;
| | | |
| | | FIM_SE;
| | |
| | FIM_SE;
| |
| |
| SENAO
| | ESCREVERr('O animal é