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

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

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


Дан символ С и строки S, So. После каждого вхождения символа С в строку S вставить строку So
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
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.

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

2
102 / 89 / 75
Регистрация: 04.11.2011
Сообщений: 1,811
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
Модератор
62894 / 46926 / 32342
Регистрация: 18.05.2008
Сообщений: 113,710
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.02.2014, 08:26

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

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

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

Дан двумерный массив вставить в него строку из чисел 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 - 2021, vBulletin Solutions, Inc.