Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Китя
0 / 0 / 4
Регистрация: 14.06.2010
Сообщений: 82
1

Заменить в тексте все сдвоенные буквы на одну

14.06.2010, 11:05. Просмотров 911. Ответов 7
Метки нет (Все метки)

Пожалуйста помогите!!!!! Заменить в тексте все сдвоенные буквы на одну????
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2010, 11:05
Ответы с готовыми решениями:

Заменить в тексте все буквы «А» на буквы «О»
Создать в редакторе текстовый файл. Считать этот файл с помощью программы, вывести его ...

Во введенном тексте заменить все латинские буквы на символ *
Написать программу на языке Паскаль (можно и в среде Delphi 7.0), реализующую решение задачи с...

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

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

В тексте из нескольких предложений заменить все малые буквы одноименными большими и удалить знаки припинанания
В тексте из нескольких предложений заменить все малые буквы одноименными большими и удалить все...

7
кот Бегемот
Платежеспособный зверь
8457 / 3904 / 1519
Регистрация: 28.10.2009
Сообщений: 10,122
14.06.2010, 11:07 2
Ну и в чём проблема? идёшь с конца до 2 буквы, сравниваешь со следующей, если они одинаковые, текущий символ удаляешь
0
Китя
0 / 0 / 4
Регистрация: 14.06.2010
Сообщений: 82
14.06.2010, 11:13  [ТС] 3
А написать можете??
0
кот Бегемот
Платежеспособный зверь
8457 / 3904 / 1519
Регистрация: 28.10.2009
Сообщений: 10,122
14.06.2010, 11:14 4
а самой попробовать? а потом уже просить подправить не лучше?
0
Китя
0 / 0 / 4
Регистрация: 14.06.2010
Сообщений: 82
14.06.2010, 11:18  [ТС] 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program z2;
var f:text;
s:string; n,i:integer;g:boolean;
Begin
assign(f,'FAIL-0.PAS');
reset(f);
n:=0;
readln(f,s);
for i:=1 to Length(s) do begin
g:=(s[i]='l')and(s[i+1]='l')or(s[i]='o')and(s[i+1]='o')or(s[i]='s')and
(s[i+1]='s')or(s[i]='p')and(s[i+1]='p')or(s[i]='i')and(s[i+1]='i')or
(s[i]='r')and(s[i+1]='r')or(s[i]='d')and(s[i+1]='d');
if g=true then n:=n+1;end;
0
кот Бегемот
Платежеспособный зверь
8457 / 3904 / 1519
Регистрация: 28.10.2009
Сообщений: 10,122
14.06.2010, 11:24 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Да проще всё гораздо
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program z2;
var f:text;
s:string;
i:integer;
Begin
assign(f,'FAIL-0.PAS');
reset(f);
 
readln(f,s);
for i:= Length(s) downto 2 do
if s[i]=s[i-1] then delete (st,i,1);
writeln(s);
readln;
end.
1
Китя
0 / 0 / 4
Регистрация: 14.06.2010
Сообщений: 82
14.06.2010, 12:31  [ТС] 7
Пожалуста помоги еще..... Подсчитать сколько раз в текстовом файле встречается слово,состоящее изсогласных букв????
0
кот Бегемот
Платежеспособный зверь
8457 / 3904 / 1519
Регистрация: 28.10.2009
Сообщений: 10,122
14.06.2010, 13:07 8
такая же задача, только про гласные буквы:
Подсчитать сколько раз в текстовом файле встречается слово, состоящее из гласных букв
0
14.06.2010, 13:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2010, 13:07

Строки (Выбрать в тексте по порядку слово с наибольшим числом вхождений буквы ”а”, и заменить на него все )
Выбрать в тексте по порядку слово с наибольшим числом вхождений буквы ”а”, и заменить на него все...

Подсчитать количество букв Z в тексте и все буквы J заменить на Y
Подсчитать количество букв Z в тексте. Все буквы J заменить на Y, полученный текст напечатать.

В заданном тексте заменить все буквы "а" на букву "о"
Помогите пожалуйста В заданном тексте заменить все буквы "а" на букву "о".


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru