СТРОКОВЫЙ ТИП ДАННЫХ. ФАЙЛЫ - Помощь студентам

zenid · 23.04.2012, 19:30

Ребят напишите пожалуйста код программы:

Дан текстовый файл с текстом, заканчивающимся точкой. Напечатать все слова, предварительно выполнив преобразования их по правилу: заменить в каждом слове первую букву "а" на "о", удалив все остальные (если в слове нет такой буквы, то ничего не делать).

eoln · 23.04.2012, 20:09

Код:

S = ThisDocument.Content
Mas = Split(S)
For I = 0 To UBound(Mas)
    Mas(I) = Replace(Mas(I), "а", "о", , 1)
    Mas(I) = Replace(Mas(I), "а", "")
Next
S = Join(Mas)
MsgBox (S)

zenid · 23.04.2012, 20:56

спасибо, напишите код целиком, просто не очень понимаю и пожалуйста если можно распишите объяснение:

eoln · 23.04.2012, 21:54

Цитата:

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

... напишите код целиком ... не очень понимаю ...

Я расчитывал на ответ "А мне на Pascal/C++... надо". Ну раз язык не указан, то скажу, что это весь код, и он на нужном вам языке

23.04.2012, 19:30	#1
zenid Пользователь Регистрация: 25.12.2011 Сообщений: 47	СТРОКОВЫЙ ТИП ДАННЫХ. ФАЙЛЫ Ребят напишите пожалуйста код программы: Дан текстовый файл с текстом, заканчивающимся точкой. Напечатать все слова, предварительно выполнив преобразования их по правилу: заменить в каждом слове первую букву "а" на "о", удалив все остальные (если в слове нет такой буквы, то ничего не делать).

23.04.2012, 20:09	#2
eoln Старожил Регистрация: 26.04.2008 Сообщений: 2,645	Код: `S = ThisDocument.Content Mas = Split(S) For I = 0 To UBound(Mas) Mas(I) = Replace(Mas(I), "а", "о", , 1) Mas(I) = Replace(Mas(I), "а", "") Next S = Join(Mas) MsgBox (S)`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Строковый тип данных	kuy	Паскаль, Turbo Pascal, PascalABC.NET	1	30.10.2011 15:01
Строковый тип данных	Ehha1234	Паскаль, Turbo Pascal, PascalABC.NET	0	08.06.2010 10:43
Строковый тип данных	Froost	Помощь студентам	7	11.11.2009 10:49
Строковый тип данных	Mihael-Vlz	Паскаль, Turbo Pascal, PascalABC.NET	7	23.04.2009 17:01
Строковый тип данных.	Paul Oakenfold	Паскаль, Turbo Pascal, PascalABC.NET	2	11.04.2009 21:05

23.04.2012, 20:56	#3
zenid Пользователь Регистрация: 25.12.2011 Сообщений: 47	спасибо, напишите код целиком, просто не очень понимаю и пожалуйста если можно распишите объяснение: