Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Wagamama
0 / 0 / 0
Регистрация: 14.02.2013
Сообщений: 6
1

Удалить из текста все слова с нечетным количеством символов и перевернуть слова с четным количеством символов

16.02.2013, 18:03. Просмотров 1029. Ответов 4
Метки нет (Все метки)

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

Создать 2 файла, один из которых содержит слова с четным количеством букв, другой — с нечетным
Дан текстовый файл в котором записаны слова. Создать 2 текстовых файла один из...

Подсчитать количество посторяющихся символов в группах с нечетным количеством символов
Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от...

Заменить слова количеством символов в них
Дана строка, слова разделены пробелами или знаками препинаниния, заменить слова...

Найти во всех строках первые по порядку слова с максимальным количеством символов
На диск записывается массив строк как один компонент. Считать из файла каждую...

Дополнить программу так, чтобы отдельно дополнительно печатались: слова с нечетным количеством букв
Дополнить программу так, чтобы отдельно дополнительно печатались: слова с...

4
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,722
Записей в блоге: 1
17.02.2013, 08:13 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Const mn=[' ',',','.','!','?'];
Var s,s1,pr,s2:string;
    i,j:byte;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';
    For i:=1 to Length(s) do
     if not(s[i] in mn) then s1:=s1+s[i]
     else
     Begin
       if (Length(s1) mod 2 = 0)and(s1<>'') then
       Begin
         pr:='';
         For j:=1 to Length(s1) do
          pr:=s1[j]+pr;
         s2:=s2+pr+s[i];
       End;
       s1:='';
     End;
    writeln('Полученная строка = ',s2);
    readln;
End.
0
Soniyagfto
60 / 67 / 37
Регистрация: 29.01.2013
Сообщений: 374
Записей в блоге: 1
17.02.2013, 21:17 3
Дорабатываю...
1
Wagamama
0 / 0 / 0
Регистрация: 14.02.2013
Сообщений: 6
17.02.2013, 23:22  [ТС] 4
Хорошо,жду.
0
Soniyagfto
60 / 67 / 37
Регистрация: 29.01.2013
Сообщений: 374
Записей в блоге: 1
18.02.2013, 20:33 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Wagamama Посмотреть сообщение
Хорошо,жду.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program n_1;
var s,s1,s2:string;
i,j:integer;
begin
j:=1;
s2:=''; s1:='';
writeln ('введите строку');
readln (s);
for i:=1 to length(s) do
IF s[i]=' ' then
IF (i-j) mod 2=0 then begin
s1:=s1+copy(s,j,i-j)+' ';
j:=i+1;
end {Внимание, тут не опечатка, точку с запятой ставить не нужно}
else
j:=i+1;
s1:=s1+copy(s,j,length(s)-j+1);
for i:=length(s1) downto 1 do
s2:=s2+s1[i];
writeln ('исходная строка-',s2);
readln;
end.
Спасибо за ожидание))
1
18.02.2013, 20:33
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2013, 20:33

Найти все слова с нечетным количеством буквы "о"
Дан массив из слов У(к). Найти все слова с нечетным количеством буквы &quot;о&quot;.

Дан массив из слов У(к). Найти все слова с нечетным количеством буквы "о".
помогите пожалуйста написать программу... Дан массив из слов У(к). Найти все...

Удалить из строчки S1 длиной до 40 символов все слова
Помогите пжл с решением задачи: Удалить из строчки S1 длиной до 40 символов...


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

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

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