Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
ШОКУЕВА РУЗАНА
3 / 3 / 2
Регистрация: 14.06.2011
Сообщений: 34
#1

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

09.06.2012, 20:24. Просмотров 1352. Ответов 3
Метки нет (Все метки)

отредактировать заданное предложение, удаляя из него все слова с нечетными номерами и переворачивая слова с четными номерами. пример HOW DO YOU->OD OD. напишите пожалуйста программу с комментариями. заранее спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.06.2012, 20:24
Ответы с готовыми решениями:

Выбросить из массива А все элементы с четными номерами, а из массива В - с нечетными номерами
Выбросить из массива А все элементы с четными номерами, а из массива В - с...

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

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

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

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

3
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,687
Записей в блоге: 1
10.06.2012, 10:18 #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
Var s,s1,s2:string;
    i,j:integer;
Begin
    write('Введите строку: ');readln(s);
    i:=0;s1:='';
    While Pos(' ',s)<>0 do {Если есть пробел заходим в цикл}
     Begin
      inc(i);{Увелииваем счетчик для того чтобы определить четные слова}
      if i mod 2 = 0 then {Если слово четное то делаем следующее}
       Begin 
        s2:=Copy(s,1,Pos(' ',s));{В строку s2 копируем из строки s слово до пробела}
        For j:=Length(s2) downto 1 do {Потом в строку s1 записываем слово из строки s2 в обратном порядке}
         s1:=s1+s2[j];
       End;
      Delete(s,1,Pos(' ',s)); {Удаляем слово из строки s вместе с пробелом}
     End;
    inc(i); {Увеличиваем счетчик так как в строке s осталось ещё слово}
    s1:=s1+' '; {Добавляем в строку s1 пробел}
    if i mod 2 = 0 then {Если слово которое осталось в строке s четное то}
     For j:=Length(s) downto 1 do {Записываем его в обратном порядке в строку s1}
      s1:=s1+s[j];
    writeln('S: ',s1);{Выводим строку s1}
    readln;
End.
1
PERCHINKA21
0 / 0 / 0
Регистрация: 07.06.2012
Сообщений: 27
21.06.2012, 21:04 #3
а в делфи можно, если вам не сложно
0
Puporev
Модератор
54361 / 41950 / 28980
Регистрация: 18.05.2008
Сообщений: 98,815
21.06.2012, 21:22 #4
Цитата Сообщение от PERCHINKA21 Посмотреть сообщение
а в делфи можно
Все точно тоже, просто положите на форму 2 Эдита и кнопку, в первый Эдит вводите строку, во второй выводите результат. Код вставите в событие кнопки OnClick
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.06.2012, 21:22

В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1.
В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными...

Дан массив из N элементов. Нужно найти сумму элементов с четными номерами и отдельно-с нечетными номерами
Помогите сделать

Все элементы массива с нечетными номерами удвоить, с четными - уменьшить на 1
Дан массив из 15 элементов. Все элементы с нечетными номерами удвоить, с...


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

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

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