Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 17.04.2012
Сообщений: 10
1

Отредактировать текст, удаляя из него все слова, которые стоят на четной позиции

15.06.2012, 16:07. Просмотров 1337. Ответов 2
Метки нет (Все метки)


отредактировать предложение удаляя из него все которые стоят на четной позиции
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2012, 16:07
Ответы с готовыми решениями:

Отредактировать текст,удаляя из него слова,которые встречаются в предложении заданное число раз
Осталось пара заданий в практике,сам не могу разобраться как сделать,времени совсем нету,прощу...

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

Отредактировать заданное предложение, удаляя из него слова, которые уже встречались
Дана символьная строка. Слово- последовательность символов между пробелами, не содержащая пробелы...

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

2
Лучи добра
173 / 171 / 191
Регистрация: 08.06.2012
Сообщений: 292
15.06.2012, 17:30 2
Лучший ответ Сообщение было отмечено сергейн как решение

Решение

Сделал без учета пробелов и с учетом смещения текста.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program z;
var s:string; k,i,f:integer;
begin
     write('Введите текст: ');
     readln(s);
     f:=0;
     for i:=1 to length(s) do
         begin
              if f=0
                 then
                     if (odd(i)=false) and (copy(s,i,1)<>' ')
                        then
                            begin
                                 delete(s,i,1);
                                 f:=1;
                            end;
              if f=1
                   then
                       if (odd(i)=true) and (copy(s,i,1)<>' ')
                        then
                            begin
                                 delete(s,i,1);
                                 f:=0;
                            end
         end;
     writeln('Полученный текст: ',s);
end.
0
0 / 0 / 0
Регистрация: 17.04.2012
Сообщений: 10
15.06.2012, 17:41  [ТС] 3
извеняюсь, я условие не правильно написал. нужно удалить слова которые стоят на четных позициях
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2012, 17:41

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

Отредактировать заданное предложение, удаляя из него все слова с четными номерами и переворачивая слова с нечетными
Отредактировать заданное предложение, удаляя из него все слова с четными номерами и переворачивая...

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

Отредактировать текст, удаляя те слова, которые уже встречались раньше
Отредактировать текст, удаляя те слова, которые уже встречались раньше.

Отредактировать заданное предложение, удаляя из него все слова с нечетными номерами
Задание 2. Отредактировать заданное предложение, удаляя из него все слова с нечетными номерами и...


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

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

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