Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Horáculo

By: a guest on May 9th, 2012  |  syntax: None  |  size: 4.84 KB  |  hits: 32  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Algoritmo ARTISTA;
  2.  
  3. VAR
  4.    resp: CARACTER;
  5.  
  6. INICIO
  7. |  ESCREVER ('O PERSONAGEM É ARTISTA? (S/N)');
  8. |  LER (resp);
  9. |  Se (resp = 'S') entao
  10. |  |  Inicio
  11. |  |     ESCREVER ('O PERSONAGEM É ADOLESCENTE? (S/N)');
  12. |  |     LER (resp);
  13. |  |     Se (resp = 'S') entao
  14. |  |     |  Inicio
  15. |  |     |     ESCREVER ('O PERSONAGEM É MARINA RUY BARBOSA!');
  16. |  |     FIM_SE;
  17.    |
  18.    SENAO (resp = 'N')
  19.       Inicio
  20.          ESCREVER ('O PERSONAGEM É INFANTIL? (S/N)');
  21.          LER (resp);
  22.          
  23.             Se (resp = 'S') entao
  24.                Inicio
  25.                   ESCREVER ('O PERSONAGEM É MATHEUS COSTA!');
  26.                end
  27.                entao (resp = 'N') entao
  28.                Inicio
  29.                     ESCREVER ('O PERSONAGEM E HOMEM? (S/N)');
  30.                     LER (resp);
  31.                     Se (resp = 'S') entao
  32.                     Inicio
  33.                          ESCREVER ('O PERSONAGEM E CANTOR? (S/N)');
  34.                          LER (resp);
  35.                          Se (resp = 'S') entao
  36.                          Inicio
  37.                             ESCREVER ('O PERSONAGEM E HUMBERTO GESSINGER!');
  38.                          end
  39.                          else if(resp = 'N') entao
  40.                          Inicio
  41.                             ESCREVER ('O PERSONAGEM E ATOR? (S/N)');
  42.                             LER (resp);
  43.                             Se (resp = 'S') entao
  44.                             Inicio
  45.                                  ESCREVER ('SEU PERSONAGEM E LIMA DUARTE!');
  46.                             end
  47.                             entao (resp = 'N') entao
  48.                             Inicio
  49.                                  ESCREVER ('SEU PERSONAGEM NAO EXISTE!');
  50.                             end;
  51.                          end;
  52.                     end
  53.                     entao (resp = 'N') entao
  54.                     Inicio
  55.                          ESCREVER ('O PERSONAGEM E MULHER? (S/N)');
  56.                          LER (resp);
  57.                          Se (resp = 'S') entao
  58.                          Inicio
  59.                               ESCREVER ('SEU PERSONAGEM E MODELO? (S/N)');
  60.                               LER (resp);
  61.                               Se (resp = 'S') entao
  62.                               Inicio
  63.                                  ESCREVER ('SEU PERSONAGEM E GISELE BUNDCHEN!');
  64.                               end
  65.                               else if(resp = 'N') entao
  66.                               Inicio
  67.                                    ESCREVER ('O PERSONAGEM E APRESENTADOR? (S/N)');
  68.                                    LER (resp);
  69.                                    Se (resp = 'S') entao
  70.                                    Inicio
  71.                                         ESCREVER ('SEU PERSONAGEM E ANA MARIA BRAGA!');
  72.                                    end
  73.                                    entao (resp = 'N') entao
  74.                                    Inicio
  75.                                         ESCREVER ('SEU PERSONAGEM NAO EXISTE!');
  76.                                    end;
  77.                               end;
  78.                          end
  79.                          else
  80.                          Inicio
  81.                               ESCREVER ('SEU PERSONAGEM NAO EXISTE!');
  82.                          end;
  83.                     end;
  84.                end;
  85.           end;
  86.      end
  87.      else if(resp = 'N') entao
  88.      Inicio
  89.           ESCREVER ('O PERSONAGEM E HUMANO? (S/N)');
  90.           LER (resp);
  91.           Se (resp = 'S') entao
  92.           Inicio
  93.              ESCREVER ('O PERSONAGEM E MOTORISTA DO SEU ONIBUS!');
  94.           end
  95.           entao (resp = 'N') entao
  96.           Inicio
  97.                ESCREVER ('O PERSONAGEM E ANIMAL? (S/N)');
  98.                LER (resp);
  99.                Se (resp = 'S') entao
  100.                Inicio
  101.                     ESCREVER ('E DOMESTICO? (S/N)');
  102.                     LER (resp);
  103.                     Se (resp = 'S') entao
  104.                     Inicio
  105.                        ESCREVER ('O PERSONAGEM E SEU PET!');
  106.                     end
  107.                     else if(resp = 'N') entao
  108.                          Inicio
  109.                             ESCREVER ('O PERSONAGEM E SELVAGEM? (S/N)');
  110.                             LER (resp);
  111.                             Se (resp = 'S') entao
  112.                             Inicio
  113.                                  ESCREVER ('SEU PERSONAGEM E UMA ONCA PINTADA!');
  114.                             end
  115.                             entao (resp = 'N') entao
  116.                             Inicio
  117.                                  ESCREVER ('SEU PERSONAGEM NAO EXISTE!');
  118.                             end;
  119.                          end;
  120.                end
  121.                else
  122.                Inicio
  123.                     ESCREVER ('SEU PERSONAGEM NAO EXISTE!');
  124.                end;
  125.           end;
  126.      end;
  127.  
  128.      readkey;
  129. end.
create a new version of this paste RAW Paste Data