IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Строки, Удвоение букв в словах
сообщение
Сообщение #1


Гость






Помогите пожалуйста решить эти задачи.Я в поиск заходил но не нашел ни одной подобной задачи.
1. Удвоить все буквы ‘о’, встречающиеся в словах.
2. Определить, имеются ли в последовательности слова, в которых все буквы различны.
3. Слова, начинающиеся с буквы ‘а’, расположить в начале последовательности, сохраняя исходный порядок следования слов.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата(Robin @ 6.01.2006 19:47)
1. Удвоить все буквы ‘о’, встречающиеся в словах.

  i := 1;
while i <= length(s) do begin
if s[i] = 'o' then insert('o', s, i)
else dec(i);

inc(i, 2);
end;


Цитата(Robin @ 6.01.2006 19:47)
3. Слова, начинающиеся с буквы ‘а’, расположить в начале последовательности, сохраняя исходный порядок следования слов.

Не понял... так изменять или не изменять порядок слов? Как ты можешь расположить какие-то слова в начале, сохраняя при этом порядок следования?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Спасибо за помощь к 1 задаче.
В 3 задаче имеется ввиду оставить те слова которые не начинаются на букву 'а' на своем месте.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Ну, тогда разбить строку на слова: Разбиение на слова. Все способы (лучше - именно тем способом, на который ведет ссылка), а потом:
  s := ''; T := '';
for i := 1 to n do
if w[i][1] = 'a' then T := T + w[i] + ' '
else s := s + w[i] + ' ';

writeln(T + s);
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Спасибо за помощь к 3 задаче.
ИСТИНА ГДЕ-ТО РЯДОМ!!!!!!!!!!!!!!!!
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 4.12.2021 6:16
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name