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

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

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

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

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

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

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

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

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

4
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,650
Записей в блоге: 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
Привет! Вот еще темы с решениями:

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

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

Удалить все слова с нечетными порядковыми номерами и перевернуть все слова с четными номерами.
Помогите пожалуйста! Дана строка символов. Будем рассматривать слова,...

Удалить из строки S1 длиной до 40 символов все слова, начинающиеся с цифры
Помогите решить пожалуйста! :) 1) Удалить из строки S1 длиной до 40 символов...


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

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

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