Advertisement
Guest User

Untitled

a guest
Jan 23rd, 2019
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.42 KB | None | 0 0
  1. BEGIN {
  2. abc = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 "
  3. mors[1] = ".-"
  4. mors[2] = "-..."
  5. mors[3] = "-.-."
  6. mors[4] = "-.."
  7. mors[5] = "."
  8. mors[6] = "..-."
  9. mors[7] = "--."
  10. mors[8] = "...."
  11. mors[9] = ".."
  12. mors[10] = ".---"
  13. mors[11] = "-.-"
  14. mors[12] = ".-.."
  15. mors[13] = "--"
  16. mors[14] = "-."
  17. mors[15] = "---"
  18. mors[16] = ".--."
  19. mors[17] = "--.-"
  20. mors[18] = ".-."
  21. mors[19] = "..."
  22. mors[20] = "-"
  23. mors[21] = "..-"
  24. mors[22] = "...-"
  25. mors[23] = ".--"
  26. mors[24] = "-..-"
  27. mors[25] = "-.--"
  28. mors[26] = "--.."
  29. mors[27] = "-----"
  30. mors[28] = "*----"
  31. mors[29] = "**---"
  32. mors[30] = "***--"
  33. mors[31] = "****-"
  34. mors[32] = "*****"
  35. mors[33] = "-****"
  36. mors[34] = "--***"
  37. mors[35] = "---**"
  38. mors[36] = "----*"
  39. mors[37] = "/"
  40.  
  41. print "Wybierz tlumaczenie"
  42. print "1. z polskiego na morsa"
  43. print "2. z morsa na polski"
  44. getline wybor <"-"
  45. if(wybor==1){
  46. FS=""
  47. }
  48. else{
  49. FS="|"
  50. }
  51. }
  52.  
  53.  
  54. {
  55. if(wybor == 1){
  56. for(i=1; i<=NF; i++)
  57. {
  58. a=toupper($i);
  59. n=1
  60. while(a!=substr(abc, n, 1)){
  61. if(n>length(abc))
  62. {
  63. printf("\nNie prawidlowy znak: %s ", a)
  64. exit
  65. }
  66. n++
  67. }
  68. printf(mors[n])
  69. printf("|");
  70. }
  71.  
  72. }
  73.  
  74.  
  75. else{
  76. for(i=1; i<=NF; i++)
  77. {
  78. a=toupper($i);
  79. n=1;
  80. m=mors[1];
  81. while(a!=m)
  82. {
  83. if(n>length(abc))
  84. {
  85. printf("\nNie prawidlowy znak; %s",a)
  86. exit
  87. }
  88. n++
  89. m=mors[n];
  90. }
  91. printf(substr(abc,n,1))
  92. }
  93. }
  94. printf("\n")
  95. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement