Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Katia777
0 / 0 / 0
Регистрация: 03.05.2012
Сообщений: 60
1

Дан символ С и строки S, So. После каждого вхождения символа С в строку S вставить строку So

10.02.2014, 00:50. Просмотров 790. Ответов 2
Метки нет (Все метки)

Дан символ С и строки S, So. После каждого вхождения символа С в строку S вставить строку So
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.02.2014, 00:50
Ответы с готовыми решениями:

Дан символ C и строки S, S0. Перед каждым вхождением символа C в строку S вставить строку S0
Выполните следующие задания на тему «Обработка строк с помощью стандартных функций. Поиск и...

Строка: Вставить во введенную строку на место каждого символа, кратного n, заданный символ
Вставить во введенную строку на место каждого символа, кратного n, за-данный символ, при этом...

Дан символ C и строки S, S0. После каждого вхождения символа C в строку S вставить строку S0
Дан символ C и строки S, S0. После каждого вхождения символа C в строку S вставить строку S0.

Вставить символ х после каждого вхождения символа у
Вставляет символ х после каждого вхождения в символ у

Ввод строки S и символа С. Результат: число повторений символа С и порядковые позиции вхождения этого символа в строку
Нужно составить программу, в которой пользователь вводит вручную строку S и символ C. Результатом...

2
Xo6ut
101 / 88 / 75
Регистрация: 04.11.2011
Сообщений: 1,787
10.02.2014, 03:02 2
Лучший ответ Сообщение было отмечено Katia777 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
otvet:String; 
i:integer; 
S0,S:String;
C:char;
begin
Writeln('Введите строкy S');
readln(S);
Writeln('Введите строкy S0');
readln(S0);
Writeln('Введите символ C');
readln(C);
for i:=1 to length(S) do
begin
if S[i]=C then Otvet:=otvet+C+S0
else Otvet:=otvet+S[i];
end;
 
Writeln('Ответ:', otvet);
end.
0
Puporev
Модератор
56630 / 43307 / 29938
Регистрация: 18.05.2008
Сообщений: 103,036
10.02.2014, 08:26 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
i:integer;
S0,S:String;
C:char;
begin
Writeln('Ââåäèòå ñòðîêy S');
readln(S);
Writeln('Ââåäèòå ñòðîêy S0');
readln(S0);
Writeln('Ââåäèòå ñèìâîë C');
readln(C);
for i:=length(S)downto 1 do
if S[i]=C then insert(s0,s,i+1);
write(s)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.02.2014, 08:26

Определить процент вхождения каждого символа в строку
Дана строка символов. Определить процент вхождения каждого символа в строку.

Дан двумерный массив вставить в него строку из чисел 100 после строки с номером s
Дан двумерный массив вставить в него строку из чисел 100 после строки с номером s

Дан двумерный массив вставить в него строку из чисел 100 после строки с номером s
uses crt; var a:array of integer; s,n,m,i,j:byte; begin writeln('Êîëè÷åòñâî ñòðîê'); read(n);...


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

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

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