Получить из одной строки другую путем заданных преобразований (программа уходит в бесконечный цикл)

@paronroman · Регистрация: 17.03.2017

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

По условию дано две строчки
Допустим B и ABBA, посредством поочередных действий, это
1) прибавление в конец строчки A
2) и полный переворт и прибавление в конец строчки B
У меня программа уходит в луп, не знаю из-за чего, очень сильно прошу исправить

Pascal

program zadacha6;
var a,c,d:string;
function perevorot(a:string):string;
var i: integer;
b:string;
begin
for i:=length(a) downto 1 do 
b:=b+a[i];
write(b);
end;
begin
readln(a);
readln(c);
while a<>c do 
begin
a:=a+'A';
a:=perevorot(a); // Как я понял на данном моменте начинает бесконечна спамить AAAAA в консоль, 
end;                  
 
write(A);
 
end.

@Hitoku · 17.03.2017, 21:50

B -> BA -> ABA -> ABAB <> ABBA - вот и ответ. Условие прошляпяпили - теперь так и будет крутить и прибавлять

Добавлено через 4 минуты
Да и B вы нигде не добавляете

Добавлено через 46 секунд
Функция ничего не возвращает

@paronroman · 17.03.2017, 21:53 **[ТС]**

Сообщение от Hitoku

B -> BA -> ABA -> ABAB <> ABBA - вот и ответ.

Ага, передлал под B -> BA -> ABB -> ABBA = ABBA, только как мне модифицировать мой цикл, чтобы после трех действий выходило из цикла.

Сообщение от paronroman

Pascal

begin
a:=a+'A';
if a=c then break;
a:=perevorot(a); // Как я понял на данном моменте начинает бесконечна спамить AAAAA в консоль, 
if a=c then break;
a:=a+'B';
if a=c then break;
end;

Но все равно уходит в цикл :C

Сообщение от Hitoku

Функция ничего не возвращает

Функция переворачивает весь текст под переменной a

@volvo · 17.03.2017, 21:53

программа уходит в луп по двум причинам:
1) функция не возвращает результат
2) из строки B нельзя получить ABBA указанными последовательными преобразованиями.

Первую ошибку исправить просто:

Pascal

function perevorot(a: string): string;
var
  i: integer;
  b: string;
begin
  for i := length(a) downto 1 do 
    b := b + a[i];
  result := b;
end;

, или вообще

Pascal

function perevorot(a: string): string;
begin
  result := ReverseString(a)
end;

, вторую - еще проще: нужно проверять не только равенство строк A и C, но еще и то, что длина строки A не превышает длину строки C. Как только она начнет превышать - цикл можно заканчивать, все равно уже дальше крутить его бесполезно.

@paronroman · 17.03.2017, 21:56 **[ТС]**

Большое спасибо @Volvo от горешкольника)

Сообщение от volvo

программа уходит в луп по двум причинам:

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	17.03.2017, 21:50	2
	B -> BA -> ABA -> ABAB <> ABBA - вот и ответ. Условие прошляпяпили - теперь так и будет крутить и прибавлять Добавлено через 4 минуты Да и B вы нигде не добавляете Добавлено через 46 секунд Функция ничего не возвращает 0

@paronroman 0 / 0 / 1 Регистрация: 17.03.2017 Сообщений: 20
	17.03.2017, 21:56 [ТС]	5
	Большое спасибо @Volvo от горешкольника) Сообщение от volvo программа уходит в луп по двум причинам: 0

Получить из одной строки другую путем заданных преобразований (программа уходит в бесконечный цикл)

Решение