Сложение двух десятичных чисел в машине Тьюринга - C (СИ)

Узнай цену своей работы

Формулировка задачи:

Доброе время суток! сразу дико извеняюсь что влез не в свою ветку (ибо ситуация становится крайне напряженной) но все же... Есть прогамма на писанная на Си. суть ее в том чтобы производить вычитание двух десятичных чисел в машине тьюринга, а мне нужно сделать сложение 2-х десятичных чисел.
Листинг программы 
  1. #include <stdio.h>
  2. #include <string.h>
  3. int i;
  4. int q=1;            /*текущее состояние УУ*/
  5. int pos;            /*позиция текущего символа ленты*/
  6. char a;             /*текущий символ ленты*/
  7. char lenta[200]="#";        /*лента*/
  8. char s1[80];
  9. char s2[80];
  10.  
  11. void main(void){
  12. l1:
  13. printf("vvedite 1 chislo:");
  14. gets(s1);               /*ввод 1 числа*/
  15. if (strlen(s1)<1) goto l1;      /*проверка ввода*/
  16. for(i=0;i<strlen(s1);i++) if ((s1[i]<'0')||(s1[i]>'9')) goto l1;
  17. l2:
  18. printf("vvedite 2 chislo:");
  19. gets(s2);               /*ввод 2 числа*/
  20. if (strlen(s2)<1) goto l2;      /*проверка ввода*/
  21. for(i=0;i<strlen(s2);i++) if ((s2[i]<'0')||(s2[i]>'9')) goto l2;
  22. if (strlen(s1)<strlen(s2)){printf("1 chislo < 2. Vvedite zanovo.\n");goto l1;}
  23. if (strlen(s1)==strlen(s2)){
  24.     for (i=0;i<strlen(s1);i++){
  25.         if (s1[i]<s2[i]){printf("1 chislo < 2. Vvedite zanovo.\n");goto l1;}
  26.         if (s1[i]>s2[i]) break;}}
  27. strcat(lenta,s1);
  28. pos=strlen(s1)+1;
  29. lenta[pos]='-';
  30. lenta[pos+1]='\0';
  31. strcat(lenta,s2);
  32. pos=pos+strlen(s2)+1;
  33. lenta[pos]='=';
  34. lenta[pos+1]='#';
  35. lenta[pos+2]='\0';
  36. pos=1;
  37. puts(lenta);            /*вывод ленты на экран*/
  38. for (i=0;i<pos;i++) putchar(' ');
  39. putchar('^');
  40. printf("\t\tcoctoyanie Q%d\n",q);
  41. getch();
  42. do{
  43. a=lenta[pos];           /*выделяем клетку ленты*/
  44. switch(q)           /*анализируем состояние УУ*/
  45. {case 1:switch(a)       /*помечаем цифру 1 числа для переноса*/ 
  46.     {case('0'):q=2;
  47.         lenta[pos]='a';
  48.         pos++;
  49.         break;
  50.     case('1'):q=3;
  51.         lenta[pos]='b';
  52.         pos++;
  53.         break;
  54.     case('2'):q=4;
  55.         lenta[pos]='c';
  56.         pos++;
  57.         break;
  58.     case('3'):q=5;
  59.         lenta[pos]='d';
  60.         pos++;
  61.         break;
  62.     case('4'):q=6;
  63.         lenta[pos]='e';
  64.         pos++;
  65.         break;
  66.     case('5'):q=7;
  67.         lenta[pos]='f';
  68.         pos++;
  69.         break;
  70.     case('6'):q=8;
  71.         lenta[pos]='g';
  72.         pos++;
  73.         break;
  74.     case('7'):q=9;
  75.         lenta[pos]='h';
  76.         pos++;
  77.         break;
  78.     case('8'):q=10;
  79.         lenta[pos]='i';
  80.         pos++;
  81.         break;
  82.     case('9'):q=11;
  83.         lenta[pos]='j';
  84.         pos++;
  85.         break;
  86.     case('-'):q=13;pos++;break;}
  87.     break;
  88. case 2:switch(a)        /*сдвигаемся в конец ленты и записываем 0*/
  89.     {case('#'):
  90.         q=12;
  91.         lenta[pos]='0';
  92.         lenta[pos+1]='#';
  93.         lenta[pos+2]='\0';
  94.         pos--;
  95.         break;
  96.     default:pos++;break;}
  97.     break;
  98. case 3:switch(a)        /*сдвигаемся в конец ленты и записываем 1*/
  99.     {case('#'):
  100.         q=12;
  101.         lenta[pos]='1';
  102.         lenta[pos+1]='#';
  103.         lenta[pos+2]='\0';
  104.         pos--;
  105.         break;
  106.     default:pos++;break;}
  107.     break;
  108. case 4:switch(a)        /*сдвигаемся в конец ленты и записываем 2*/
  109.     {case('#'):
  110.         q=12;
  111.         lenta[pos]='2';
  112.         lenta[pos+1]='#';
  113.         lenta[pos+2]='\0';
  114.         pos--;
  115.         break;
  116.     default:pos++;break;}
  117.     break;
  118. case 5:switch(a)        /*сдвигаемся в конец ленты и записываем 3*/
  119.     {case('#'):
  120.         q=12;
  121.         lenta[pos]='3';
  122.         lenta[pos+1]='#';
  123.         lenta[pos+2]='\0';
  124.         pos--;
  125.         break;
  126.     default:pos++;break;}
  127.     break;
  128. case 6:switch(a)        /*сдвигаемся в конец ленты и записываем 4*/
  129.     {case('#'):
  130.         q=12;
  131.         lenta[pos]='4';
  132.         lenta[pos+1]='#';
  133.         lenta[pos+2]='\0';
  134.         pos--;
  135.         break;
  136.     default:pos++;break;}
  137.     break;
  138. case 7:switch(a)        /*сдвигаемся в конец ленты и записываем 5*/
  139.     {case('#'):
  140.         q=12;
  141.         lenta[pos]='5';
  142.         lenta[pos+1]='#';
  143.         lenta[pos+2]='\0';
  144.         pos--;
  145.         break;
  146.     default:pos++;break;}
  147.     break;
  148. case 8:switch(a)        /*сдвигаемся в конец ленты и записываем 6*/
  149.     {case('#'):
  150.         q=12;
  151.         lenta[pos]='6';
  152.         lenta[pos+1]='#';
  153.         lenta[pos+2]='\0';
  154.         pos--;
  155.         break;
  156.     default:pos++;break;}
  157.     break;
  158. case 9:switch(a)        /*сдвигаемся в конец ленты и записываем 7*/
  159.     {case('#'):
  160.         q=12;
  161.         lenta[pos]='7';
  162.         lenta[pos+1]='#';
  163.         lenta[pos+2]='\0';
  164.         pos--;
  165.         break;
  166.     default:pos++;break;}
  167.     break;
  168. case 10:switch(a)       /*сдвигаемся в конец ленты и записываем 8*/
  169.     {case('#'):
  170.         q=12;
  171.         lenta[pos]='8';
  172.         lenta[pos+1]='#';
  173.         lenta[pos+2]='\0';
  174.         pos--;
  175.         break;
  176.     default:pos++;break;}
  177.     break;
  178. case 11:switch(a)       /*сдвигаемся в конец ленты и записываем 9*/
  179.     {case('#'):
  180.         q=12;
  181.         lenta[pos]='9';
  182.         lenta[pos+1]='#';
  183.         lenta[pos+2]='\0';
  184.         pos--;
  185.         break;
  186.     default:pos++;break;}
  187.     break;
  188. case 12:switch(a)       /*смещаемся на 1 непомеченую цифру 1 числа*/
  189.     {case('a'):q=1;pos++;break;
  190.     case('b'):q=1;pos++;break;
  191.     case('c'):q=1;pos++;break;
  192.     case('d'):q=1;pos++;break;
  193.     case('e'):q=1;pos++;break;
  194.     case('f'):q=1;pos++;break;
  195.     case('g'):q=1;pos++;break;
  196.     case('h'):q=1;pos++;break;
  197.     case('i'):q=1;pos++;break;
  198.     case('j'):q=1;pos++;break;
  199.     default:pos--;break;}
  200.     break;
  201. case 13:switch(a)       /*смещаемся в конец 2 слова*/
  202.     {case('='):q=14;pos--;break;
  203.     default:pos++;break;}
  204.     break;
  205. case 14:switch(a)       /*выбираем правый непомеченый символ 2 слова и метим*/  
  206.     {case('0'):q=15;
  207.         lenta[pos]='a';
  208.         pos++;
  209.         break;
  210.     case('1'):q=16;
  211.         lenta[pos]='b';
  212.         pos++;
  213.         break;
  214.     case('2'):q=17;
  215.         lenta[pos]='c';
  216.         pos++;
  217.         break;
  218.     case('3'):q=18;
  219.         lenta[pos]='d';
  220.         pos++;
  221.         break;
  222.     case('4'):q=19;
  223.         lenta[pos]='e';
  224.         pos++;
  225.         break;
  226.     case('5'):q=20;
  227.         lenta[pos]='f';
  228.         pos++;
  229.         break;
  230.     case('6'):q=21;
  231.         lenta[pos]='g';
  232.         pos++;
  233.         break;
  234.     case('7'):q=22;
  235.         lenta[pos]='h';
  236.         pos++;
  237.         break;
  238.     case('8'):q=23;
  239.         lenta[pos]='i';
  240.         pos++;
  241.         break;
  242.     case('9'):q=24;
  243.         lenta[pos]='j';
  244.         pos++;
  245.         break;
  246.     case('-'):q=13;pos++;break;}
  247.     break;
  248. case 15:switch(a)       /*смещаемся к концу 2 числа*/
  249.     {case('='):q=25;pos++;break;
  250.     default:pos++;break;}
  251.     break;
  252. case 16:switch(a)       /*смещаемся к концу 2 числа*/
  253.     {case('='):q=26;pos++;break;
  254.     default:pos++;break;}
  255.     break;
  256. case 17:switch(a)       /*смещаемся к концу 2 числа*/
  257.     {case('='):q=27;pos++;break;
  258.     default:pos++;break;}
  259.     break;
  260. case 18:switch(a)       /*смещаемся к концу 2 числа*/
  261.     {case('='):q=28;pos++;break;
  262.     default:pos++;break;}
  263.     break;
  264. case 19:switch(a)       /*смещаемся к концу 2 числа*/
  265.     {case('='):q=29;pos++;break;
  266.     default:pos++;break;}
  267.     break;
  268. case 20:switch(a)       /*смещаемся к концу 2 числа*/
  269.     {case('='):q=30;pos++;break;
  270.     default:pos++;break;}
  271.     break;
  272. case 21:switch(a)       /*смещаемся к концу 2 числа*/
  273.     {case('='):q=31;pos++;break;
  274.     default:pos++;break;}
  275.     break;
  276. case 22:switch(a)       /*смещаемся к концу 2 числа*/
  277.     {case('='):q=32;pos++;break;
  278.     default:pos++;break;}
  279.     break;
  280. case 23:switch(a)       /*смещаемся к концу 2 числа*/
  281.     {case('='):q=33;pos++;break;
  282.     default:pos++;break;}
  283.     break;
  284. case 24:switch(a)       /*смещаемся к концу 2 числа*/
  285.     {case('='):q=34;pos++;break;
  286.     default:pos++;break;}
  287.     break;
  288. case 25:switch(a)       /*смещаемся на 1 непомеченую клетку результата*/
  289.     {case('a'):q=35;pos--;break;
  290.     case('b'):q=35;pos--;break;
  291.     case('c'):q=35;pos--;break;
  292.     case('d'):q=35;pos--;break;
  293.     case('e'):q=35;pos--;break;
  294.     case('f'):q=35;pos--;break;
  295.     case('g'):q=35;pos--;break;
  296.     case('h'):q=35;pos--;break;
  297.     case('i'):q=35;pos--;break;
  298.     case('j'):q=35;pos--;break;
  299.     case('#'):q=35;pos--;break;
  300.     default:pos++;break;}
  301.     break;
  302. case 26:switch(a)       /*смещаемся на 1 непомеченую клетку результата*/
  303.     {case('a'):q=36;pos--;break;
  304.     case('b'):q=36;pos--;break;
  305.     case('c'):q=36;pos--;break;
  306.     case('d'):q=36;pos--;break;
  307.     case('e'):q=36;pos--;break;
  308.     case('f'):q=36;pos--;break;
  309.     case('g'):q=36;pos--;break;
  310.     case('h'):q=36;pos--;break;
  311.     case('i'):q=36;pos--;break;
  312.     case('j'):q=36;pos--;break;
  313.     case('#'):q=36;pos--;break;
  314.     default:pos++;break;}
  315.     break;
  316. case 27:switch(a)       /*смещаемся на 1 непомеченую клетку результата*/
  317.     {case('a'):q=37;pos--;break;
  318.     case('b'):q=37;pos--;break;
  319.     case('c'):q=37;pos--;break;
  320.     case('d'):q=37;pos--;break;
  321.     case('e'):q=37;pos--;break;
  322.     case('f'):q=37;pos--;break;
  323.     case('g'):q=37;pos--;break;
  324.     case('h'):q=37;pos--;break;
  325.     case('i'):q=37;pos--;break;
  326.     case('j'):q=37;pos--;break;
  327.     case('#'):q=37;pos--;break;
  328.     default:pos++;break;}
  329.     break;
  330. case 28:switch(a)       /*смещаемся на 1 непомеченую клетку результата*/
  331.     {case('a'):q=38;pos--;break;
  332.     case('b'):q=38;pos--;break;
  333.     case('c'):q=38;pos--;break;
  334.     case('d'):q=38;pos--;break;
  335.     case('e'):q=38;pos--;break;
  336.     case('f'):q=38;pos--;break;
  337.     case('g'):q=38;pos--;break;
  338.     case('h'):q=38;pos--;break;
  339.     case('i'):q=38;pos--;break;
  340.     case('j'):q=38;pos--;break;
  341.     case('#'):q=38;pos--;break;
  342.     default:pos++;break;}
  343.     break;
  344. case 29:switch(a)       /*смещаемся на 1 непомеченую клетку результата*/
  345.     {case('a'):q=39;pos--;break;
  346.     case('b'):q=39;pos--;break;
  347.     case('c'):q=39;pos--;break;
  348.     case('d'):q=39;pos--;break;
  349.     case('e'):q=39;pos--;break;
  350.     case('f'):q=39;pos--;break;
  351.     case('g'):q=39;pos--;break;
  352.     case('h'):q=39;pos--;break;
  353.     case('i'):q=39;pos--;break;
  354.     case('j'):q=39;pos--;break;
  355.     case('#'):q=39;pos--;break;
  356.     default:pos++;break;}
  357.     break;
  358. case 30:switch(a)       /*смещаемся на 1 непомеченую клетку результата*/
  359.     {case('a'):q=40;pos--;break;
  360.     case('b'):q=40;pos--;break;
  361.     case('c'):q=40;pos--;break;
  362.     case('d'):q=40;pos--;break;
  363.     case('e'):q=40;pos--;break;
  364.     case('f'):q=40;pos--;break;
  365.     case('g'):q=40;pos--;break;
  366.     case('h'):q=40;pos--;break;
  367.     case('i'):q=40;pos--;break;
  368.     case('j'):q=40;pos--;break;
  369.     case('#'):q=40;pos--;break;
  370.     default:pos++;break;}
  371.     break;
  372. case 31:switch(a)       /*смещаемся на 1 непомеченую клетку результата*/
  373.     {case('a'):q=41;pos--;break;
  374.     case('b'):q=41;pos--;break;
  375.     case('c'):q=41;pos--;break;
  376.     case('d'):q=41;pos--;break;
  377.     case('e'):q=41;pos--;break;
  378.     case('f'):q=41;pos--;break;
  379.     case('g'):q=41;pos--;break;
  380.     case('h'):q=41;pos--;break;
  381.     case('i'):q=41;pos--;break;
  382.     case('j'):q=41;pos--;break;
  383.     case('#'):q=41;pos--;break;
  384.     default:pos++;break;}
  385.     break;
  386. case 32:switch(a)       /*смещаемся на 1 непомеченую клетку результата*/
  387.     {case('a'):q=42;pos--;break;
  388.     case('b'):q=42;pos--;break;
  389.     case('c'):q=42;pos--;break;
  390.     case('d'):q=42;pos--;break;
  391.     case('e'):q=42;pos--;break;
  392.     case('f'):q=42;pos--;break;
  393.     case('g'):q=42;pos--;break;
  394.     case('h'):q=42;pos--;break;
  395.     case('i'):q=42;pos--;break;
  396.     case('j'):q=42;pos--;break;
  397.     case('#'):q=42;pos--;break;
  398.     default:pos++;break;}
  399.     break;
  400. case 33:switch(a)       /*смещаемся на 1 непомеченую клетку результата*/
  401.     {case('a'):q=43;pos--;break;
  402.     case('b'):q=43;pos--;break;
  403.     case('c'):q=43;pos--;break;
  404.     case('d'):q=43;pos--;break;
  405.     case('e'):q=43;pos--;break;
  406.     case('f'):q=43;pos--;break;
  407.     case('g'):q=43;pos--;break;
  408.     case('h'):q=43;pos--;break;
  409.     case('i'):q=43;pos--;break;
  410.     case('j'):q=43;pos--;break;
  411.     case('#'):q=43;pos--;break;
  412.     default:pos++;break;}
  413.     break;
  414. case 34:switch(a)       /*смещаемся на 1 непомеченую клетку результата*/
  415.     {case('a'):q=44;pos--;break;
  416.     case('b'):q=44;pos--;break;
  417.     case('c'):q=44;pos--;break;
  418.     case('d'):q=44;pos--;break;
  419.     case('e'):q=44;pos--;break;
  420.     case('f'):q=44;pos--;break;
  421.     case('g'):q=44;pos--;break;
  422.     case('h'):q=44;pos--;break;
  423.     case('i'):q=44;pos--;break;
  424.     case('j'):q=44;pos--;break;
  425.     case('#'):q=44;pos--;break;
  426.     default:pos++;break;}
  427.     break;
  428. case 35:switch(a)       /*записываем результат разности данного разряда*/
  429.     {case('0'):q=45;
  430.         lenta[pos]='a';
  431.         pos--;
  432.         break;
  433.     case('1'):q=45;
  434.         lenta[pos]='b';
  435.         pos--;
  436.         break;
  437.     case('2'):q=45;
  438.         lenta[pos]='c';
  439.         pos--;
  440.         break;
  441.     case('3'):q=45;
  442.         lenta[pos]='d';
  443.         pos--;
  444.         break;
  445.     case('4'):q=45;
  446.         lenta[pos]='e';
  447.         pos--;
  448.         break;
  449.     case('5'):q=45;
  450.         lenta[pos]='f';
  451.         pos--;
  452.         break;
  453.     case('6'):q=45;
  454.         lenta[pos]='g';
  455.         pos--;
  456.         break;
  457.     case('7'):q=45;
  458.         lenta[pos]='h';
  459.         pos--;
  460.         break;
  461.     case('8'):q=45;
  462.         lenta[pos]='i';
  463.         pos--;
  464.         break;
  465.     case('9'):q=45;
  466.         lenta[pos]='j';
  467.         pos--;
  468.         break;}
  469.     break;
  470. case 36:switch(a)       /*записываем результат разности данного разряда*/   
  471.     {case('0'):q=46;
  472.         lenta[pos]='j';
  473.         pos--;
  474.         break;
  475.     case('1'):q=45;
  476.         lenta[pos]='a';
  477.         pos--;
  478.         break;
  479.     case('2'):q=45;
  480.         lenta[pos]='b';
  481.         pos--;
  482.         break;
  483.     case('3'):q=45;
  484.         lenta[pos]='c';
  485.         pos--;
  486.         break;
  487.     case('4'):q=45;
  488.         lenta[pos]='d';
  489.         pos--;
  490.         break;
  491.     case('5'):q=45;
  492.         lenta[pos]='e';
  493.         pos--;
  494.         break;
  495.     case('6'):q=45;
  496.         lenta[pos]='f';
  497.         pos--;
  498.         break;
  499.     case('7'):q=45;
  500.         lenta[pos]='g';
  501.         pos--;
  502.         break;
  503.     case('8'):q=45;
  504.         lenta[pos]='h';
  505.         pos--;
  506.         break;
  507.     case('9'):q=45;
  508.         lenta[pos]='i';
  509.         pos--;
  510.         break;}
  511.     break;
  512. case 37:switch(a)       /*записываем результат разности данного разряда*/   
  513.     {case('0'):q=46;
  514.         lenta[pos]='i';
  515.         pos--;
  516.         break;
  517.     case('1'):q=46;
  518.         lenta[pos]='j';
  519.         pos--;
  520.         break;
  521.     case('2'):q=45;
  522.         lenta[pos]='a';
  523.         pos--;
  524.         break;
  525.     case('3'):q=45;
  526.         lenta[pos]='b';
  527.         pos--;
  528.         break;
  529.     case('4'):q=45;
  530.         lenta[pos]='c';
  531.         pos--;
  532.         break;
  533.     case('5'):q=45;
  534.         lenta[pos]='d';
  535.         pos--;
  536.         break;
  537.     case('6'):q=45;
  538.         lenta[pos]='e';
  539.         pos--;
  540.         break;
  541.     case('7'):q=45;
  542.         lenta[pos]='f';
  543.         pos--;
  544.         break;
  545.     case('8'):q=45;
  546.         lenta[pos]='g';
  547.         pos--;
  548.         break;
  549.     case('9'):q=45;
  550.         lenta[pos]='h';
  551.         pos--;
  552.         break;}
  553.     break;
  554. case 38:switch(a)       /*записываем результат разности данного разряда*/   
  555.     {case('0'):q=46;
  556.         lenta[pos]='h';
  557.         pos--;
  558.         break;
  559.     case('1'):q=46;
  560.         lenta[pos]='i';
  561.         pos--;
  562.         break;
  563.     case('2'):q=46;
  564.         lenta[pos]='j';
  565.         pos--;
  566.         break;
  567.     case('3'):q=45;
  568.         lenta[pos]='a';
  569.         pos--;
  570.         break;
  571.     case('4'):q=45;
  572.         lenta[pos]='b';
  573.         pos--;
  574.         break;
  575.     case('5'):q=45;
  576.         lenta[pos]='c';
  577.         pos--;
  578.         break;
  579.     case('6'):q=45;
  580.         lenta[pos]='d';
  581.         pos--;
  582.         break;
  583.     case('7'):q=45;
  584.         lenta[pos]='e';
  585.         pos--;
  586.         break;
  587.     case('8'):q=45;
  588.         lenta[pos]='f';
  589.         pos--;
  590.         break;
  591.     case('9'):q=45;
  592.         lenta[pos]='g';
  593.         pos--;
  594.         break;}
  595.     break;
  596. case 39:switch(a)       /*записываем результат разности данного разряда*/   
  597.     {case('0'):q=46;
  598.         lenta[pos]='g';
  599.         pos--;
  600.         break;
  601.     case('1'):q=46;
  602.         lenta[pos]='h';
  603.         pos--;
  604.         break;
  605.     case('2'):q=46;
  606.         lenta[pos]='i';
  607.         pos--;
  608.         break;
  609.     case('3'):q=46;
  610.         lenta[pos]='j';
  611.         pos--;
  612.         break;
  613.     case('4'):q=45;
  614.         lenta[pos]='a';
  615.         pos--;
  616.         break;
  617.     case('5'):q=45;
  618.         lenta[pos]='b';
  619.         pos--;
  620.         break;
  621.     case('6'):q=45;
  622.         lenta[pos]='c';
  623.         pos--;
  624.         break;
  625.     case('7'):q=45;
  626.         lenta[pos]='d';
  627.         pos--;
  628.         break;
  629.     case('8'):q=45;
  630.         lenta[pos]='e';
  631.         pos--;
  632.         break;
  633.     case('9'):q=45;
  634.         lenta[pos]='f';
  635.         pos--;
  636.         break;}
  637.     break;
  638. case 40:switch(a)       /*записываем результат разности данного разряда*/   
  639.     {case('0'):q=46;
  640.         lenta[pos]='f';
  641.         pos--;
  642.         break;
  643.     case('1'):q=46;
  644.         lenta[pos]='g';
  645.         pos--;
  646.         break;
  647.     case('2'):q=46;
  648.         lenta[pos]='h';
  649.         pos--;
  650.         break;
  651.     case('3'):q=46;
  652.         lenta[pos]='i';
  653.         pos--;
  654.         break;
  655.     case('4'):q=46;
  656.         lenta[pos]='j';
  657.         pos--;
  658.         break;
  659.     case('5'):q=45;
  660.         lenta[pos]='a';
  661.         pos--;
  662.         break;
  663.     case('6'):q=45;
  664.         lenta[pos]='b';
  665.         pos--;
  666.         break;
  667.     case('7'):q=45;
  668.         lenta[pos]='c';
  669.         pos--;
  670.         break;
  671.     case('8'):q=45;
  672.         lenta[pos]='d';
  673.         pos--;
  674.         break;
  675.     case('9'):q=45;
  676.         lenta[pos]='e';
  677.         pos--;
  678.         break;}
  679.     break;
  680. case 41:switch(a)       /*записываем результат разности данного разряда*/   
  681.     {case('0'):q=46;
  682.         lenta[pos]='e';
  683.         pos--;
  684.         break;
  685.     case('1'):q=46;
  686.         lenta[pos]='f';
  687.         pos--;
  688.         break;
  689.     case('2'):q=46;
  690.         lenta[pos]='g';
  691.         pos--;
  692.         break;
  693.     case('3'):q=46;
  694.         lenta[pos]='h';
  695.         pos--;
  696.         break;
  697.     case('4'):q=46;
  698.         lenta[pos]='i';
  699.         pos--;
  700.         break;
  701.     case('5'):q=46;
  702.         lenta[pos]='j';
  703.         pos--;
  704.         break;
  705.     case('6'):q=45;
  706.         lenta[pos]='a';
  707.         pos--;
  708.         break;
  709.     case('7'):q=45;
  710.         lenta[pos]='b';
  711.         pos--;
  712.         break;
  713.     case('8'):q=45;
  714.         lenta[pos]='c';
  715.         pos--;
  716.         break;
  717.     case('9'):q=45;
  718.         lenta[pos]='d';
  719.         pos--;
  720.         break;}
  721.     break;
  722. case 42:switch(a)       /*записываем результат разности данного разряда*/   
  723.     {case('0'):q=46;
  724.         lenta[pos]='d';
  725.         pos--;
  726.         break;
  727.     case('1'):q=46;
  728.         lenta[pos]='e';
  729.         pos--;
  730.         break;
  731.     case('2'):q=46;
  732.         lenta[pos]='f';
  733.         pos--;
  734.         break;
  735.     case('3'):q=46;
  736.         lenta[pos]='g';
  737.         pos--;
  738.         break;
  739.     case('4'):q=46;
  740.         lenta[pos]='h';
  741.         pos--;
  742.         break;
  743.     case('5'):q=46;
  744.         lenta[pos]='i';
  745.         pos--;
  746.         break;
  747.     case('6'):q=46;
  748.         lenta[pos]='j';
  749.         pos--;
  750.         break;
  751.     case('7'):q=45;
  752.         lenta[pos]='a';
  753.         pos--;
  754.         break;
  755.     case('8'):q=45;
  756.         lenta[pos]='b';
  757.         pos--;
  758.         break;
  759.     case('9'):q=45;
  760.         lenta[pos]='c';
  761.         pos--;
  762.         break;}
  763.     break;
  764. case 43:switch(a)       /*записываем результат разности данного разряда*/   
  765.     {case('0'):q=46;
  766.         lenta[pos]='c';
  767.         pos--;
  768.         break;
  769.     case('1'):q=46;
  770.         lenta[pos]='d';
  771.         pos--;
  772.         break;
  773.     case('2'):q=46;
  774.         lenta[pos]='e';
  775.         pos--;
  776.         break;
  777.     case('3'):q=46;
  778.         lenta[pos]='f';
  779.         pos--;
  780.         break;
  781.     case('4'):q=46;
  782.         lenta[pos]='g';
  783.         pos--;
  784.         break;
  785.     case('5'):q=46;
  786.         lenta[pos]='h';
  787.         pos--;
  788.         break;
  789.     case('6'):q=46;
  790.         lenta[pos]='i';
  791.         pos--;
  792.         break;
  793.     case('7'):q=46;
  794.         lenta[pos]='j';
  795.         pos--;
  796.         break;
  797.     case('8'):q=45;
  798.         lenta[pos]='a';
  799.         pos--;
  800.         break;
  801.     case('9'):q=45;
  802.         lenta[pos]='b';
  803.         pos--;
  804.         break;}
  805.     break;
  806. case 44:switch(a)       /*записываем результат разности данного разряда*/   
  807.     {case('0'):q=46;
  808.         lenta[pos]='b';
  809.         pos--;
  810.         break;
  811.     case('1'):q=46;
  812.         lenta[pos]='c';
  813.         pos--;
  814.         break;
  815.     case('2'):q=46;
  816.         lenta[pos]='d';
  817.         pos--;
  818.         break;
  819.     case('3'):q=46;
  820.         lenta[pos]='e';
  821.         pos--;
  822.         break;
  823.     case('4'):q=46;
  824.         lenta[pos]='f';
  825.         pos--;
  826.         break;
  827.     case('5'):q=46;
  828.         lenta[pos]='g';
  829.         pos--;
  830.         break;
  831.     case('6'):q=46;
  832.         lenta[pos]='h';
  833.         pos--;
  834.         break;
  835.     case('7'):q=46;
  836.         lenta[pos]='i';
  837.         pos--;
  838.         break;
  839.     case('8'):q=46;
  840.         lenta[pos]='j';
  841.         pos--;
  842.         break;
  843.     case('9'):q=45;
  844.         lenta[pos]='a';
  845.         pos--;
  846.         break;}
  847.     break;
  848. case 45:switch(a)       /*смещаемся ко 2 числу*/
  849.     {case('='):q=47;pos--;break;
  850.     default:pos--;break;}
  851.     break;
  852. case 46:switch(a)       /*переносим 1 из старшего разряда*/ 
  853.     {case('0'):
  854.         lenta[pos]='9';
  855.         pos--;
  856.         break;
  857.     case('1'):q=45;
  858.         lenta[pos]='0';
  859.         pos--;
  860.         break;
  861.     case('2'):q=45;
  862.         lenta[pos]='1';
  863.         pos--;
  864.         break;
  865.     case('3'):q=45;
  866.         lenta[pos]='2';
  867.         pos--;
  868.         break;
  869.     case('4'):q=45;
  870.         lenta[pos]='3';
  871.         pos--;
  872.         break;
  873.     case('5'):q=45;
  874.         lenta[pos]='4';
  875.         pos--;
  876.         break;
  877.     case('6'):q=45;
  878.         lenta[pos]='5';
  879.         pos--;
  880.         break;
  881.     case('7'):q=45;
  882.         lenta[pos]='6';
  883.         pos--;
  884.         break;
  885.     case('8'):q=45;
  886.         lenta[pos]='7';
  887.         pos--;
  888.         break;
  889.     case('9'):q=45;
  890.         lenta[pos]='8';
  891.         pos--;
  892.         break;}
  893.     break;
  894. case 47:switch(a)       /*ищем непомеченый разряд 2 числа и помечаем его, если его нет, то операция разности завершена*/
  895.     {case('0'):q=14;break;
  896.     case('1'):q=14;break;
  897.     case('2'):q=14;break;
  898.     case('3'):q=14;break;
  899.     case('4'):q=14;break;
  900.     case('5'):q=14;break;
  901.     case('6'):q=14;break;
  902.     case('7'):q=14;break;
  903.     case('8'):q=14;break;
  904.     case('9'):q=14;break;
  905.     case('-'):q=48;pos++;break;
  906.     default:pos--;break;}
  907.     break;
  908. case 48:switch(a)       /*перемещаемся в конец ленты*/
  909.     {case('#'):q=49;pos--;break;
  910.     default:pos++;break;}
  911.     break;
  912. case 49:switch(a)       /*восстанавливаем все помеченные символы*/
  913.     {case('a'):
  914.         lenta[pos]='0';
  915.         pos--;
  916.         break;
  917.     case('b'):
  918.         lenta[pos]='1';
  919.         pos--;
  920.         break;
  921.     case('c'):
  922.         lenta[pos]='2';
  923.         pos--;
  924.         break;
  925.     case('d'):
  926.         lenta[pos]='3';
  927.         pos--;
  928.         break;
  929.     case('e'):
  930.         lenta[pos]='4';
  931.         pos--;
  932.         break;
  933.     case('f'):
  934.         lenta[pos]='5';
  935.         pos--;
  936.         break;
  937.     case('g'):
  938.         lenta[pos]='6';
  939.         pos--;
  940.         break;
  941.     case('h'):
  942.         lenta[pos]='7';
  943.         pos--;
  944.         break;
  945.     case('i'):
  946.         lenta[pos]='8';
  947.         pos--;
  948.         break;
  949.     case('j'):
  950.         lenta[pos]='9';
  951.         pos--;
  952.         break;
  953.     case('#'):q=0;pos++;break;
  954.     default:pos--;break;}
  955.     break;
  956.  
  957. }
  958. puts(lenta);            /*вывод ленты на экран*/
  959. for (i=0;i<pos;i++) putchar(' ');
  960. putchar('^');
  961. printf("\t\tcoctoyanie Q%d\n",q);
  962. getch();
  963. } while(q!=0);          /*q0-заключительное состояние*/
  964. printf("\nkonec raboty");
  965. getch();
  966. }

Решение задачи: «Сложение двух десятичных чисел в машине Тьюринга»

textual
Листинг программы 
  1. #include <iostream>
  2. #include <windows.h>
  3. #include <clocale>
  4. #include <conio.h>
  5. using namespace std;
  6. //Выводим на печать
  7. void print(char *str, int pos, int q){
  8.     cout<<"\nq="; cout<<q;
  9.     cout <<"\n@";
  10.     for (int i=1; str[i]!='@' ;i++)
  11.         cout <<str[i];
  12.     cout<<"@\n";
  13.     for (int i=0;i<pos;i++)
  14.         cout <<" ";
  15.     cout <<"^";
  16. }
  17. int q3_g12 (char *str, int &pos, int &q, char chch)
  18. {
  19.     char ch = str[pos];
  20.     switch(ch)
  21.     {
  22.     case ('0'):
  23.     case ('1'):
  24.     case ('2'):
  25.     case ('3'):
  26.     case ('4'):
  27.     case ('5'):
  28.     case ('6'):
  29.     case ('7'):
  30.     case ('8'):
  31.     case ('9'):
  32.     case ('-'):
  33.     case ('='): pos++;  break;
  34.     case ('@')://Обработка символа @
  35.         str[pos] = chch;
  36.         pos--;//Движение головки влево
  37.         q=13;//Новое состояние q13
  38.         break;
  39.     default: return q;
  40.     }
  41.     return 99;
  42. } 
  43. int razn (char* str)
  44. {
  45.     int pos=1;
  46.     char ch=str[pos];//Текущий символ
  47.     int q=0;
  48.     do
  49.     {
  50.         print(str, pos, q); Sleep(200);//_getch();
  51.         switch (q)
  52.         {
  53.         case 0://Обрабатываем состояние q0
  54.             switch(ch)
  55.                 {
  56.                     case ('0'):
  57.                     case ('1'):
  58.                     case ('2'):
  59.                     case ('3'):
  60.                     case ('4'):
  61.                     case ('5'):
  62.                     case ('6'):
  63.                     case ('7'):
  64.                     case ('8'):
  65.                     case ('9'):
  66.                     case ('-'): pos++;  break;
  67.                     case ('@')://Обработка символа @
  68.                         q=1;//Новое состояние q1
  69.                         str[pos] = '=';//Новый символ =
  70.                         print(str, pos, q); Sleep(200); pos--;//Движение головки влево
  71.                         break;
  72.                     default: return q;
  73.             }break;
  74.         case 1:
  75.             switch(ch)
  76.                 {
  77.                     case ('0'):
  78.                     case ('1'):
  79.                     case ('2'):
  80.                     case ('3'):
  81.                     case ('4'):
  82.                     case ('5'):
  83.                     case ('6'):
  84.                     case ('7'):
  85.                     case ('8'):
  86.                     case ('9'):
  87.                     case ('-'): pos--; break;
  88.                     case ('@'): pos++; q=2; break;
  89.                     default: return q;
  90.             }break;
  91.         case 2:
  92.             switch(ch)
  93.             {
  94.                 case ('0'): str[pos] = 'A'; pos++; q=3; break;
  95.                 case ('1'): str[pos] = 'B'; pos++; q=4; break;
  96.                 case ('2'): str[pos] = 'C'; pos++; q=5; break;
  97.                 case ('3'): str[pos] = 'D'; pos++; q=6; break;
  98.                 case ('4'): str[pos] = 'E'; pos++; q=7; break;
  99.                 case ('5'): str[pos] = 'F'; pos++; q=8; break;
  100.                 case ('6'): str[pos] = 'G'; pos++; q=9; break;
  101.                 case ('7'): str[pos] = 'H'; pos++; q=10; break;
  102.                 case ('8'): str[pos] = 'I'; pos++; q=11; break;
  103.                 case ('9'): str[pos] = 'J'; pos++; q=12; break;
  104.                 case ('-'): pos++; q=14; break;
  105.                 case ('='): pos++; q=16; break;
  106.                 default: return q;
  107.             }break;
  108.         case 3:
  109.             q3_g12(str, pos, q, '0');
  110.             break;
  111.         case 4:
  112.             q3_g12(str, pos, q, '1');
  113.             break;
  114.         case 5:
  115.             q3_g12(str, pos, q, '2');
  116.             break;
  117.         case 6:
  118.             q3_g12(str, pos, q, '3');
  119.             break;
  120.         case 7:
  121.             q3_g12(str, pos, q, '4');
  122.             break;
  123.         case 8:
  124.             q3_g12(str, pos, q, '5');
  125.             break;
  126.         case 9:
  127.             q3_g12(str, pos, q, '6');
  128.             break;
  129.         case 10:
  130.             q3_g12(str, pos, q, '7');
  131.             break;
  132.         case 11:
  133.             q3_g12(str, pos, q, '8');
  134.             break;
  135.         case 12:
  136.             q3_g12(str, pos, q, '9');
  137.             break;
  138.         case 13:
  139.             switch(ch)
  140.                 {
  141.                     case ('0'):
  142.                     case ('1'):
  143.                     case ('2'):
  144.                     case ('3'):
  145.                     case ('4'):
  146.                     case ('5'):
  147.                     case ('6'):
  148.                     case ('7'):
  149.                     case ('8'):
  150.                     case ('9'):
  151.                     case ('-'):
  152.                     case ('='): pos--; break;
  153.                     case ('A'):
  154.                     case ('B'):
  155.                     case ('C'):
  156.                     case ('D'):
  157.                     case ('E'):
  158.                     case ('F'):
  159.                     case ('G'):
  160.                     case ('H'):
  161.                     case ('I'):
  162.                     case ('J'): pos++; q=2; break;
  163.                     default: return q;
  164.             }break;
  165.         case 14:
  166.             switch(ch)
  167.                 {
  168.                     case ('0'):
  169.                     case ('1'):
  170.                     case ('2'):
  171.                     case ('3'):
  172.                     case ('4'):
  173.                     case ('5'):
  174.                     case ('6'):
  175.                     case ('7'):
  176.                     case ('8'):
  177.                     case ('9'):
  178.                     case ('='): pos++;  break;
  179.                     case ('@'):
  180.                         str[pos] = '-';
  181.                         pos--; q=15; break;
  182.                     default: return q;
  183.             }break;
  184.         case 15:
  185.             switch(ch)
  186.                 {
  187.                     case ('0'):
  188.                     case ('1'):
  189.                     case ('2'):
  190.                     case ('3'):
  191.                     case ('4'):
  192.                     case ('5'):
  193.                     case ('6'):
  194.                     case ('7'):
  195.                     case ('8'):
  196.                     case ('9'):
  197.                     case ('='): pos--;  break;
  198.                     case ('-'): pos++; q=2; break;
  199.                     default: return q;
  200.             }break;
  201.         case 16:
  202.             switch(ch)
  203.                 {
  204.                     case ('0'):
  205.                     case ('1'):
  206.                     case ('2'):
  207.                     case ('3'):
  208.                     case ('4'):
  209.                     case ('5'):
  210.                     case ('6'):
  211.                     case ('7'):
  212.                     case ('8'):
  213.                     case ('9'):
  214.                     case ('-'): pos++;  break;
  215.                     case ('@'): pos--; q=17; break;
  216.                     default: return q;
  217.             }break;
  218.         case 17:
  219.             switch(ch)
  220.             {
  221.                 case ('9'): str[pos] = '8'; q=20; break;
  222.                 case ('8'): str[pos] = '7'; q=20; break;
  223.                 case ('7'): str[pos] = '6'; q=20; break;
  224.                 case ('6'): str[pos] = '5'; q=20; break;
  225.                 case ('5'): str[pos] = '4'; q=20; break;
  226.                 case ('4'): str[pos] = '3'; q=20; break;
  227.                 case ('3'): str[pos] = '2'; q=20; break;
  228.                 case ('2'): str[pos] = '1'; q=20; break;
  229.                 case ('1'): str[pos] = '0'; q=20; break;
  230.                 case ('0'): pos--; q=18; break;
  231.                 default: return q;
  232.             }break;
  233.         case 18:
  234.             switch(ch)
  235.             {
  236.                 case ('9'): str[pos] = '8'; pos++; q=19; break;
  237.                 case ('8'): str[pos] = '7'; pos++; q=19; break;
  238.                 case ('7'): str[pos] = '6'; pos++; q=19; break;
  239.                 case ('6'): str[pos] = '5'; pos++; q=19; break;
  240.                 case ('5'): str[pos] = '4'; pos++; q=19; break;
  241.                 case ('4'): str[pos] = '3'; pos++; q=19; break;
  242.                 case ('3'): str[pos] = '2'; pos++; q=19; break;
  243.                 case ('2'): str[pos] = '1'; pos++; q=19; break;
  244.                 case ('1'): str[pos] = '0'; pos++; q=19; break;
  245.                 case ('0'): pos--; break;
  246.                 case ('-'): str[pos] = '@'; pos++; q=22; break;
  247.                 default: return q;
  248.             }break;
  249.         case 19:
  250.             switch(ch)
  251.                 {
  252.                     case ('0'): str[pos] = '9'; pos++;  break;
  253.                     case ('-'):
  254.                     case ('@'): pos--; q=20; break;
  255.                     default: return q;
  256.             }break;
  257.         case 20:
  258.             switch(ch)
  259.                 {
  260.                     case ('0'):
  261.                     case ('1'):
  262.                     case ('2'):
  263.                     case ('3'):
  264.                     case ('4'):
  265.                     case ('5'):
  266.                     case ('6'):
  267.                     case ('7'):
  268.                     case ('8'):
  269.                     case ('9'): pos--; break;
  270.                     case ('-'): pos--; q=17; break;
  271.                     case ('='): pos++; q=21; break;
  272.                     default: return q;
  273.             }break;
  274.         case 21:
  275.             switch(ch)
  276.                 {
  277.                     case ('0'):
  278.                     case ('1'):
  279.                     case ('2'):
  280.                     case ('3'):
  281.                     case ('4'):
  282.                     case ('5'):
  283.                     case ('6'):
  284.                     case ('7'):
  285.                     case ('8'):
  286.                     case ('9'):
  287.                     case ('-'): pos++; break;
  288.                     case ('@'): pos--; q=17; break;
  289.                     default: return q;
  290.             }break;
  291.         case 22:
  292.             switch(ch)
  293.                 {
  294.                     case ('0'):
  295.                     case ('1'):
  296.                     case ('2'):
  297.                     case ('3'):
  298.                     case ('4'):
  299.                     case ('5'):
  300.                     case ('6'):
  301.                     case ('7'):
  302.                     case ('8'):
  303.                     case ('9'): str[pos] = '@'; pos++; break;
  304.                     case ('@'): pos--; q=23; break;
  305.                     default: return q;
  306.             }break;
  307.         case 23:
  308.             switch(ch)
  309.                 {
  310.                     case ('0'):
  311.                     case ('1'):
  312.                     case ('2'):
  313.                     case ('3'):
  314.                     case ('4'):
  315.                     case ('5'):
  316.                     case ('6'):
  317.                     case ('7'):
  318.                     case ('8'):
  319.                     case ('9'):
  320.                     case ('@'): pos--; break;
  321.                     case ('='): pos--; q=24; break;
  322.                     default: return q;
  323.             }break;
  324.         case 24:
  325.             switch(ch)
  326.             {
  327.                 case ('A'): str[pos] = '0'; pos--;  break;
  328.                 case ('B'): str[pos] = '1'; pos--;  break;
  329.                 case ('C'): str[pos] = '2'; pos--;  break;
  330.                 case ('D'): str[pos] = '3'; pos--;  break;
  331.                 case ('E'): str[pos] = '4'; pos--;  break;
  332.                 case ('F'): str[pos] = '5'; pos--;  break;
  333.                 case ('G'): str[pos] = '6'; pos--;  break;
  334.                 case ('H'): str[pos] = '7'; pos--;  break;
  335.                 case ('I'): str[pos] = '8'; pos--;  break;
  336.                 case ('J'): str[pos] = '9'; pos--;  break;
  337.                 case ('-'): pos--; break;
  338.                 case ('@'): pos++; q=99; break;
  339.                 default: return q;
  340.             }break;
  341.         }
  342.     ch=str[pos];
  343.     }while (q!=99);
  344.     return q;
  345. }
  346. int main ()
  347. {
  348.     setlocale(LC_CTYPE,"Russian");//установка русской кодировки в консоле
  349.     char lenta[255];//входная строка
  350.     lenta[0] = '@';
  351.     cout<<"Эмуляция работы машины Тьюринга"<<endl;
  352.     cout<<"Введите два 10-х числа, между ними поставьте знак минуса (например 123-23):"<<endl;
  353.     cin>>&lenta[1];
  354.     for (size_t i=strlen(lenta) ;i<255;i++) lenta[i]='@';//Заполняем ленту служебными симполами
  355.     int q;
  356.     if ((q=razn(lenta))!=99)
  357.     {
  358.         cout <<"\nОшибка на состоянии " <<q;
  359.         _getch();
  360.         return 1;
  361.     }
  362.     cout <<"\nРезультат равен:";
  363.     print (lenta, 0, 99);
  364.     _getch();
  365.     return 0;
  366. }

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы