Guest User

Untitled

a guest
Dec 13th, 2018
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.80 KB | None | 0 0
  1. APROG
  2. Materia: Algoritmia
  3. Desições e Repetições
  4.  
  5.  
  6. .Ficha PL2
  7. .Demo1(FEITO)
  8. .Ex: 1(), 2(), 3(), 4(), 5()
  9.  
  10. Exercício Demonstrativo 1
  11.  
  12. ED
  13. num1, num2 INTEIRO
  14. res REAL
  15. op, rest CARATER
  16.  
  17. ALG
  18.  
  19. INICIO
  20. REPETIR
  21.  
  22. Escrever("Insira dois numeros inteiros")
  23. LER(num1, num2)
  24. ESCREVER("Indique a operação (+,-,x ou /)")
  25. LER(op)
  26. CASO(op) SEJA
  27. '+':ESCREVER(num1,op,num2,"=",num1+num2)
  28. '-':ESCREVER(num1,op,num2,"=",num1-num2)
  29. 'x':ESCREVER(num1,op,num2,"=",num1*num2)
  30. '/': SE (num2!=0) ENTAO
  31. ESCREVER(num1,op,num2,"=",num1/num2)
  32. SENAO
  33. ESCREVER("Divisor por zero")
  34. OUTRO: ESCREVER("Opção invalida !!!")
  35. FIMCASO
  36. ESCREVER("Quer continuar: S/N")
  37. LER(reso)
  38. ENQUANTO(resp='S' OU resp='s')
  39. FIM
Add Comment
Please, Sign In to add comment