Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
6 / 5 / 4
Регистрация: 06.03.2012
Сообщений: 61
1

Заменить в третьем по счёту слове первую букву на последнюю букву Заменить в третьем по счёту слове первую букву на последнюю букву этого же слова.

07.03.2012, 02:02. Показов 1103. Ответов 1
Метки нет (Все метки)

Заменить в третьем по счёту слове первую букву на последнюю букву этого же слова.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.03.2012, 02:02
Ответы с готовыми решениями:

Заменить в третьем по счёту слове первую букву на последнюю букву этого же слова
помогите выбивает ошибки сдать до завтра надо!!!!!!! var s,pr:string; i,sv,k:longint;...

Заменить в каждом слове первую букву на последнюю букву в этом слове
Подскажите пожалуйста :cry: Задание звучит так: Вывести на экран все слова, преобразовав их...

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

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

1
71 / 71 / 72
Регистрация: 18.01.2012
Сообщений: 132
07.03.2012, 22:35 2
Лучший ответ Сообщение было отмечено Santi111 как решение

Решение

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
28
29
30
31
32
33
34
var
     s,pr:string;
     i,sv,k:longint;
begin
     readln(s);{ввод строки}
     i:=1;
     k:=0;
     while(i<=ord(s[0])) do
     begin
          pr:='';
          z:=true;
          while(z)and(i<=ord(s[0]))do{пропуск лишних символов}
          begin
               case s[i] of
                    'a'..'z','A'..'Z','а'..'я','А'..'Я':z:=false;
               end;
               i:=i+1;
          end;
          z:=true;
          if(i<=ord(s[0])) then i:=i-1;{если буква, то на шаг назад}
          sv:=i;{запомнили место первой буквы}
          while(z)and(i<=ord(s[0]))do{запоминаем слово}
          begin
               z:=false;
               case s[i] of
                    'a'..'z','A'..'Z','а'..'я','А'..'Я':z:=true;
               end;
               if(z) then pr:=pr+s[i];
               i:=i+1;
          end;
          k:=k+1;
          if(k=3) then s[sv]:=pr[ord(pr[0])];{если слово третье, то меняем букву}
     end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2012, 22:35

Заменить в каждом слове длиной М букв первую букву на букву, задаваемую пользователем
Дан текст, состоящий из нескольких слов. Заменить в каждом слове длиной М букв первую букву на...

Во всех словах заменить первую букву на последнюю, а последнюю на первую. Как считывать каждое слово?
Ребята, написал программу, выполняла свое предназначение, но меня преподаватель попросил записать в...

Ввести строку символов и заменить в каждом слове первую букву на букву "В"
Ввести строку символов и заменить в каждом слове первую букву, на букву В. (Делфи)

Во всех словах заменить первую букву на последнюю, а последнюю на первую
Ребят, помогите, нету никаких догадок как вообще. Даже начать не с чего, ибо не понимаю как...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru