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

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

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

Пожалуйста помогите!!!!! Заменить в тексте все сдвоенные буквы на одну????
http://www.cyberforum.ru/turbo-pascal/thread265397.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2010, 11:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Заменить в тексте все сдвоенные буквы на одну (Turbo Pascal):

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

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

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

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

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

7
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
14.06.2010, 11:07 #2
Ну и в чём проблема? идёшь с конца до 2 буквы, сравниваешь со следующей, если они одинаковые, текущий символ удаляешь
0
Китя
0 / 0 / 4
Регистрация: 14.06.2010
Сообщений: 82
14.06.2010, 11:13  [ТС] #3
А написать можете??
0
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
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
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
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
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
14.06.2010, 13:07 #8
такая же задача, только про гласные буквы:
http://www.cyberforum.ru/pascal/thread145135.html
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