Заменить в тексте "А" на "Б" и наоборот

@kmprint · Регистрация: 30.10.2012

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

Первому решившему - зачет.
Есть очень длинный текст, который может содержать абсолютно любые символы. Программисту требуется заменить букву А на Б, а Б на А. Использовать можно текстовый редактор, в котором есть функция "найти и заменить". Например, при замене А на АБ последовательность АББАБ превращается в АБББАББ.
Решить задачу минимальным количеством замен. Принимаю 4 замены и меньше.

@Catstail · 06.11.2012, 17:13

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

Принимаю 4 замены и меньше.

- имеется в виду глобальные замены (команды редактора)?

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

может содержать абсолютно любые символы

- т.е. все 256 кодов ASCII?

@kmprint · 06.11.2012, 17:18 **[ТС]**

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

- имеется в виду глобальные замены (команды редактора)?

- т.е. все 256 кодов ASCII?

Бесконечность букв без пробелов и которые повторяются. То бишь через 1 переменную сделать нельзя.

@Catstail · 06.11.2012, 17:33

1) Если только буквы - то это не так страшно
2) "бесконечность" - это как? Больше 1Гб?

@kmprint · 06.11.2012, 18:46 **[ТС]**

Это задача с универа. Там типо есть все символы, знаки и буквы.

Аможно так только в бейсе?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
a:string;
i:integer;
begin
readln(a);
for i:=1 to length(a) do
case a[i] of
'a':a[i]:='b';
'b':a[i]:='a';
'A':a[i]:='B';
'B':a[i]:='b';
end;
writeln(a);
readln;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var
s:string;
i,d:integer;
begin
writeln('введите текст:');
readln(s);
writeln('заменяем "а" на "b", "b" на "а":');
i:=1;
d:=Length(s);
while i<=d do
begin
if (s[i]='a') or (s[i]='а') then
s[i]:='b' else
if (s[i]='b') or (s[i]='b') then
s[i]:='а';
inc(i);
end;
writeln(s);
end.

@Pro_grammer · 06.11.2012, 19:06

Задача решается легко, если задание "Программисту требуется заменить букву А на Б, а Б на А."
В том смысле, что длина файла остается прежней - замена символа на символ. Читаем файл бинарно, и сразу же пишем замену в файл.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
Dim Asc As Byte
Dim nAsc As Byte
i# = 1
MyFile = FreeFile
Open ("C:\mytxt.txt") For Binary As #MyFile
Do Until EOF(MyFile)
Get #MyFile, i#, Asc
If Asc = 65 Then ' если это A
nAsc = 66        ' то будет B
Put #MyFile, i#, nAsc
End If
If Asc = 66 Then ' если это B
nAsc = 65        ' то будет A
Put #MyFile, i#, nAsc
End If
i# = i# + 1
Loop
Close #MyFile
MsgBox "Готово"
End Sub

@kmprint · 06.11.2012, 19:07 **[ТС]**

задача по циклам.

@Catstail · 06.11.2012, 19:17

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

замена символа на символ.

- нужно 4 или менее замен (см. условие). Вообще TC мыслит очень четко и замечательно формулирует задачу (Универ, однако!).

Добавлено через 2 минуты

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

Put #MyFile, i#, nAsc

- не могу одобрить использование double в качестве номера байта.

@Pro_grammer · 06.11.2012, 19:22

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

не могу одобрить использование double в качестве номера байта.

Так в задании:

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

Бесконечность букв без пробелов и которые повторяются.

Какой тип подходит лучше к определению "Бесконечность"?

А вообще косяк в названии переменной - совпадает с Asc, но VB хавает!
Тогда лучше так для наглядности

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
Dim Asci As Byte
Dim nAsc As Byte
i# = 1
MyFile = FreeFile
Open ("C:\mytxt.txt") For Binary As #MyFile
Do Until EOF(MyFile)
Get #MyFile, i#, Asci
If Chr(Asci) = "A" Then  ' если это A
nAsc = Asc("B")        ' то будет B
Put #MyFile, i#, nAsc
End If
If Chr(Asci) = "B" Then  ' если это A
nAsc = Asc("A")        ' то будет B
Put #MyFile, i#, nAsc
End If
i# = i# + 1
Loop
Close #MyFile
MsgBox "Готово"
End Sub

@kmprint · 06.11.2012, 19:23 **[ТС]**

Препод: "это если ты можешь программировать.
а у тебя есть только функция найти и заменить одну подстановку написали уже, думай еще )) их несколько"

@Pro_grammer · 06.11.2012, 19:26

Ну а если бесконечный текст с руки вводить, то вообще можно определить его длину и пройтись по всему тексту в цикле.
Но задача в 1-м сообщении поставлена ТС на уровне детского сада!

@kmprint · 06.11.2012, 19:27 **[ТС]**

Сначала берёмся за А. Заменим его на АА для несовпадения с дальнейшими махинациями. Потом В переделаем в ВАВ, таким образом она отделяется от всего прочего и можно из АА получить В, а из ВАВ - А
проверял на разных текстах - работает
и спасибо за подсказку - спасло массу времени

Добавлено через 12 секунд
A -> AA
B -> BAB
AA -> B
BAB -> A

зачет )
жду еще ответы, есть другие перестановки.

@Catstail · 06.11.2012, 19:33

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

Так в задании:

- так задание... гм, не вполне корректное. А читать/писать файлы размером > 8Гб на VB/VBA не так просто (double, мне кажется, не поможет).

Если же у ТС файл не "бесконечный", то заморачиваться нечего - long...

@kmprint · 06.11.2012, 19:35 **[ТС]**

Первый вариант:
A -> AA
B -> BAB
AA -> B
BAB -> A

Какие еще варианты?

@Catstail · 06.11.2012, 19:44

Например, двойственный твоему:

Б => ББ
А => AБА
ББ => A
АБА => Б

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

@kmprint 0 / 0 / 0 Регистрация: 30.10.2012 Сообщений: 9

	Заменить в тексте "А" на "Б" и наоборот 06.11.2012, 17:09. Показов 2768. Ответов 14 Метки нет (Все метки) Первому решившему - зачет. Есть очень длинный текст, который может содержать абсолютно любые символы. Программисту требуется заменить букву А на Б, а Б на А. Использовать можно текстовый редактор, в котором есть функция "найти и заменить". Например, при замене А на АБ последовательность АББАБ превращается в АБББАББ. Решить задачу минимальным количеством замен. Принимаю 4 замены и меньше. 0

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,736 Записей в блоге: 14
	06.11.2012, 17:33
	1) Если только буквы - то это не так страшно 2) "бесконечность" - это как? Больше 1Гб? 0

@kmprint 0 / 0 / 0 Регистрация: 30.10.2012 Сообщений: 9
	06.11.2012, 19:07 [ТС]
	задача по циклам. 0

@kmprint 0 / 0 / 0 Регистрация: 30.10.2012 Сообщений: 9
	06.11.2012, 19:23 [ТС]
	Препод: "это если ты можешь программировать. а у тебя есть только функция найти и заменить одну подстановку написали уже, думай еще )) их несколько" 0

@Pro_grammer 6807 / 2839 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	06.11.2012, 19:26
	Ну а если бесконечный текст с руки вводить, то вообще можно определить его длину и пройтись по всему тексту в цикле. Но задача в 1-м сообщении поставлена ТС на уровне детского сада! 0

@kmprint 0 / 0 / 0 Регистрация: 30.10.2012 Сообщений: 9
	06.11.2012, 19:27 [ТС]
	Сначала берёмся за А. Заменим его на АА для несовпадения с дальнейшими махинациями. Потом В переделаем в ВАВ, таким образом она отделяется от всего прочего и можно из АА получить В, а из ВАВ - А проверял на разных текстах - работает и спасибо за подсказку - спасло массу времени Добавлено через 12 секунд A -> AA B -> BAB AA -> B BAB -> A зачет ) жду еще ответы, есть другие перестановки. 0

@kmprint 0 / 0 / 0 Регистрация: 30.10.2012 Сообщений: 9
	06.11.2012, 19:35 [ТС]
	Первый вариант: A -> AA B -> BAB AA -> B BAB -> A Какие еще варианты? 0

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,736 Записей в блоге: 14
	06.11.2012, 19:44
	Например, двойственный твоему: Б => ББ А => AБА ББ => A АБА => Б 0