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

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

22.03.2012, 15:53. Просмотров 1652. Ответов 8
Метки нет (Все метки)

Разработать программу, которая в заданной строке удваивает символ, стоящий после первого пробела и удаляет символ, стоящий после последнего пробела.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.03.2012, 15:53
Ответы с готовыми решениями:

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

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

Строка: Вставить после каждого символа точки (.) один символ пробела ("_"), если после точки нет пробела.
Вставить после каждого символа точки (.) один символ пробела ("_"), если после точки нет пробела.

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

8
Почетный модератор
7953 / 3924 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
29.03.2012, 09:38 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var s: string;
    i: byte;
begin
write('s='); readln(s);
i:=1;
while s[i]<>' ' do inc(i);
insert(s[i+1],s,i+1);
i:=length(s);
while s[i]<>' ' do dec(i);
delete(s,i+1,1);
write('s=',s);
readln;
end.
1
Модератор
62248 / 46533 / 32081
Регистрация: 18.05.2008
Сообщений: 112,498
29.03.2012, 10:13 3

Не по теме:

Цитата Сообщение от dwijok Посмотреть сообщение
вопрос жизни и смерти=)
И правда помрешь что ли?



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
35
36
37
38
uses crt;
var s:string;
    i,i1,ip:byte;
    c:char;
begin
clrscr;
writeln('Введите строку, содержащую в том числе пробелы:');
readln(s);
i:=1;
i1:=0;
while(i<=length(s))and(i1=0) do
if s[i]=' ' then
 begin
  i1:=i;
  c:=s[i+1];
 end
else i:=i+1;
if i1=0 then writeln('В строке нет пробелов')
else if i1=length(s) then write('В строке единственный пробел')
{если пробел 1, то строка не изменится, удвоим потом удалим}
else
 begin
  i:=length(s);
  ip:=0;
  while (i>=i1)and(ip=0) do
  if s[i]=' ' then ip:=i
  else i:=i-1;
  if ip=i1 then writeln('В строке единственный пробел')
  else
   begin
    delete(s,ip+1,1);
    writeln(s);
    if i1<length(s) then insert(c,s,i+1);
    write(s);
   end;
 end;
readln
end.
1
0 / 0 / 0
Регистрация: 12.03.2012
Сообщений: 21
30.03.2012, 06:10  [ТС] 4
спасибо))
0
0 / 0 / 0
Регистрация: 16.03.2012
Сообщений: 4
01.04.2012, 20:47 5
а можете алгоритм в Visio сконструировать? заранее спасибо)
0
0 / 0 / 0
Регистрация: 27.01.2013
Сообщений: 8
27.01.2013, 12:45 6
Ребята, а можно то же самое, только чтобы тупо добавляла % после первого пробела в строке?
0
Модератор
62248 / 46533 / 32081
Регистрация: 18.05.2008
Сообщений: 112,498
27.01.2013, 12:48 7
Pascal
1
insert('%',s,pos(' ',s)+1);
0
0 / 0 / 0
Регистрация: 27.01.2013
Сообщений: 8
27.01.2013, 12:59 8
более подробная постановка вопроса: то же самое, только чтобы программа после первого вхождения пробела в строку, добавляла после него символ%?

Имеется
акламйрам бурно приветствовать,устраивать/устроить овацию
алааклиматизация акклиматизация

А нужно получить:

акламйрам %бурно приветствовать,устраивать/устроить овацию
алааклиматизация %акклиматизация

Заранее спасибо.
0
Модератор
62248 / 46533 / 32081
Регистрация: 18.05.2008
Сообщений: 112,498
27.01.2013, 13:12 9
Цитата Сообщение от _stay true_ Посмотреть сообщение
после первого вхождения пробела в строку, добавляла после него символ%?
Я это и написал, а если строк несколько, создай массив и делай это в каждой строке.
А вообще в следующий раз дуй на форум экстрасенсов.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2013, 13:12

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

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

Вставить после каждого символа «.» один символ « » (пробел), если после точки нет пробела.
Вставить после каждого символа «.» один символ « » (пробел), если после точки нет пробела. Как...

Как в каждую строку(130 000 строк) txt-файла добавить символ табуляции (TAB) после первого значимого пробела (SPACE)?
Как в каждую строку большого(130 000 строк) txt-файла добавить символ табуляции (TAB) после первого...

В заданной строке добавить в конец строки символ пробела
1.В заданной строке добавить в конец строки символ &quot; &quot;.


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

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

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