fork download
copy 
  1. program WwwW;  
  2. var 
  3. x:char; 
  4. begin 
  5. while not eof do 
  6. begin 
  7. read (x); 
  8. if x in ['A'..'Z'] then 
  9. case x of 
  10. 'A': write ('· - '); 
  11. 'B': write ('- · · · '); 
  12. 'C': write ('- · - · '); 
  13. 'D': write ('- · · '); 
  14. 'E': write ('· '); 
  15. 'F': write ('· · - · '); 
  16. 'G': write ('- - · '); 
  17. 'H': write ('· · · ·  '); 
  18. 'I': write ('· · '); 
  19. 'J': write ('· - - -  '); 
  20. 'K': write ('- · - '); 
  21. 'L': write ('· - · ·  '); 
  22. 'M': write ('- - '); 
  23. 'N': write ('- · '); 
  24. 'O': write ('- - - '); 
  25. 'P': write ('· - - · '); 
  26. 'Q': write ('- - · - '); 
  27. 'R': write ('· - · '); 
  28. 'S': write ('· · ·  '); 
  29. 'T': write ('- '); 
  30. 'U': write ('· · - '); 
  31. 'V': write ('· · · - '); 
  32. 'W': write ('· - - '); 
  33. 'X': write ('- · · -  '); 
  34. 'Y': write ('- · - - '); 
  35. 'Z': write ('- - · ·  '); 
  36. //////////////////////// 
  37. end else if x in ['a'..'z'] then 
  38. case x of 
  39. 'a': write ('· − '); 
  40. 'b': write ('− · · · '); 
  41. 'c': write ('− · − · '); 
  42. 'd': write ('− · · '); 
  43. 'e': write ('· '); 
  44. 'f': write ('· · − · '); 
  45. 'g': write ('− − · '); 
  46. 'h': write ('· · · ·  '); 
  47. 'i': write ('· · '); 
  48. 'j': write ('· − − −  '); 
  49. 'k': write ('− · − '); 
  50. 'l': write ('· − · ·  '); 
  51. 'm': write ('− − '); 
  52. 'n': write ('− · '); 
  53. 'o': write ('− − − '); 
  54. 'p': write ('· − − · '); 
  55. 'q': write ('− − · − '); 
  56. 'r': write ('· − · '); 
  57. 's': write ('· · ·  '); 
  58. 't': write ('− '); 
  59. 'u': write ('· · − '); 
  60. 'v': write ('· · · − '); 
  61. 'w': write ('· − − '); 
  62. 'x': write ('− · · −  '); 
  63. 'y': write ('− · − − '); 
  64. 'z': write ('− − · ·  '); 
  65. end 
  66. end; 
  67. end.
Success #stdin #stdout 0s 4460KB
comments (?)
stdin
copy 
poop
stdout
copy 
· − − · − − − − − − · − − ·
https://ideone.com/NUCq2a
language:
Pascal (gpc 20070904)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!