Не выводит результат

30.04.2017, 11:36. Показов 1207. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Задача по машине Тьюринга, посмотрите почему не выводит результат должно получиться _111111_

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
program maschina;
var
f,g:text;i,m:integer;x1,x2,x3,x4,x5,q:string;
a,c:array[1..10] of string;
begin
assign (f,'C:\PABCWork.NET\kom.txt');
reset(f);
for i:=1 to 4 do begin
readln(f,a[i]);
writeln(a[i]);
end;
close(f);
assign (g,'C:\PABCWork.NET\1.txt');
reset(g);
for i:=1 to 10 do begin
readln(g,a[i]);
write(a[i]);
end;
close(g);
m:=2;
q:='1';
for i:=1 to 4 do begin
repeat
x1:=copy(a[i],1,1);
x2:=copy(a[i],2,1);
x3:=copy(a[i],4,1);
x4:=copy(a[i],5,1);
x5:=copy(a[i],6,1);
if (x1=q) and (x2=c[m]) then begin
c[m]:=x4;
if x5='П' then m:=m+1;
if x5='Н' then m:=m-1;
end;
q:=x3;
until (c[m]<>x2) or (x5='s') or (q<>x1);
end;
writeln(c);
end.

Вложения

	1.txt (8 байт, 3 просмотров)
	kom.txt (18 байт, 4 просмотров)

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

30.04.2017, 11:36

Ответы с готовыми решениями:

Скрипт не выводит результат при исполнении в терминале, построчно результат есть. Новичок в bash
Добрый день всем. Помогите разобраться. Я новичок в написании скриптов. Первая попытка, идея выводить погоду в conky парсингом с гисметео....

Не выводит результат
Не понимаю почему, но нет вывода результата работы программы. #include <cstdlib> #include <iostream> using namespace std; ...

C++ не выводит результат
W7 ,64bit Borland C++ Builder Enterprise v6.0(10.161),я начинающий Копирую рабочую программу,вставляю в проект,запускаю,не выводит...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

30.04.2017, 11:36

Помогаю со студенческими работами здесь

Не выводит результат
Когда ввожу дробное число программа зависает и не выводит результат Var n:real; s:real; k: byte; Begin ...

If else не выводит результат
Добрый вечер, Есть простой скрипт. If (get-windowsfeature -name &list | where-object{&_.installed -eq 'True'}) { ...

Не выводит результат
Ребят, помогите пожалуйста. Почему то не выводит мне результат, хотя по идеи я все сделал <!doctype html> <html> ...

Не выводит результат
Ни как не могу вывести результат. #include <stdio.h> #include <math.h> int F(int x) { return atan (x)+pow(log( x*x ),2); ...

Не выводит результат
Программа успешно работает, но не выводит результат при заданых значениях Не могу найти ошибку и не понимаю в чем дело Значения...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

Наверх