Advertisement
jluca-s

Untitled

Nov 23rd, 2021
1,958
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defvar manchas_na_pele t)
  2. (defvar tem_febre nil)
  3. (defvar sensibilidade nil)
  4. (defvar bordas_irregulares nil)
  5. (defvar coceira t)
  6.  
  7. (if manchas_na_pele
  8.     (block block_true
  9.         (write-line "MANCHAS NA PELE: SIM")
  10.         (write-line "VAMOS VERIFICAR SE VOCE TEM FEBRE...")
  11.         (write-line "")
  12.         (if tem_febre
  13.             (block block_true
  14.                 (write-line "FEBRE: SIM")
  15.                 (write-line "VOCE PODE ESTAR COM CATAPORA")
  16.        
  17.             )
  18.             (block block_false
  19.                 (write-line "FEBRE: NAO")
  20.                 (write-line "VAMOS VERIFICAR SE VOCE TEM PERDA DE SENSIBILIDADE...")
  21.                 (write-line "")
  22.                 (if sensibilidade
  23.                     (block block_true
  24.                         (write-line "PERDA DE SENSIBILIDADE: SIM")
  25.                         (write-line "VOCE PODE ESTAR COM HANSENIASE!")
  26.        
  27.                     )
  28.                     (block block_false
  29.                         (write-line "PERDA DE SENSIBILIDADE: NAO")
  30.                         (write-line "VAMOS VERIFICAR SE VOCE POSSUI BORDAS IRREGULARES...")
  31.                         (write-line "")
  32.                         (if bordas_irregulares
  33.                             (block block_true
  34.                                 (write-line "BORDAS IRREGULARES: SIM")
  35.                                 (write-line "VOCE PODE ESTAR COM CANCER DE PELE!")
  36.                
  37.                             )
  38.                             (block block_false
  39.                                 (write-line "BORDAS IRREGULARES: NAO")
  40.                                 (write-line "VAMOS VERIFICAR SE VOCE ESTA COM COCEIRA...")
  41.                                 (write-line "")
  42.                                 (if coceira
  43.                                     (block block_true
  44.                                         (write-line "COCEIRA: SIM")
  45.                                         (write-line "VOCE PODE ESTAR COM PSORIASE!")
  46.                        
  47.                                     )
  48.                                     (block block_false
  49.                                         (write-line "COCEIRA: NAO")
  50.                                         (write-line "Procure o seu PSF")
  51.                                     )
  52.                                 )
  53.                             )
  54.                         )
  55.                     )
  56.                 )
  57.             )
  58.         )
  59.     )
  60.     (block block_false
  61.         (write-line "Nao possui febre")
  62.         (write-line "Procure o seu PSF")
  63.     )
  64. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement