Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Дан массив X(N,M).Найти номера столбцов массива,все элементы которых четны https://www.cyberforum.ru/ pascalabc/ thread1119753.html
Дан массив X(N,M).Найти номера столбцов массива,все элементы которых четны. Из полученных значений сформировать одномерный массив. Юрий48, называйте темы информативно const nmax=50; mmax=50; var x:array of integer; b:array of integer; n,m,i,j,ki,f: integer; begin write('Ââåäèòå ðàçìåðíîñòü ìàòðèöû: '); readln(n,m); writeln('Ââåäèòå ýëåìåíòû...
Pascal ABC Составьте программу, которая строит графики зависимости силы тока от времени i(t) на промежутке [0,20]
1. В электрическую цепь переменного тока включен резистор сопротивлением 10 Ом. Составьте программу, которая строит графики зависимости силы тока от времени i(t) на промежутке , если напряжение... uses graphABC; const r=10; function i(t:real):real; begin i:=200*sin(10*t)/r; end; var x0,y0,j:integer; t,y,mx,my:real; begin
Pascal ABC Гадалка
Вася пришёл к гадалке, чтобы узнать, сколько хороших дел он должен сделать в этом году, чтобы год прошёл удачно. Гадалка дала ему список из N чисел и сказала, что количество хороших дел, которые он...
Pascal ABC Составьте программу, которая строит графики зависимости напряжения от времени u(t) на промежутке [0,20] https://www.cyberforum.ru/ pascalabc/ thread1119775.html
2. В электрическую цепь переменного тока включен резистор сопротивлением 80 Ом. Составьте программу, которая строит графики зависимости напряжения от времени u(t) на промежутке , если сила тока... uses graphABC; const r=80; function u(t:real):real; begin u:=3*r*sin(5*t); end; var x0,y0,j:integer; t,y,mx,my:real; begin
Pascal ABC Дано множество А. Проверить входят ли элементы множества А в множество, состоящее из элементов объединения букв от «f» до «q» и цифр https://www.cyberforum.ru/ pascalabc/ thread1119871.html
Дано множество А. Проверить входят ли элементы множества А в множество, состоящее из элементов объединения букв от «f» до «q» и цифр.
Pascal ABC Дана строка, содержащая только цифры. Создать множество из цифр, которых нет в строке https://www.cyberforum.ru/ pascalabc/ thread1119902.html
Помогите пожалуйста!:wall: var s:string; m:set of char; i:byte; c:char; begin m:=; writeln('Введите строку из цифр'); read(s); for i:=1 to length(s) do m:=m-];
Pascal ABC По матрице А получить массив В, присвоив его k-му элементу значение true, если элементы k-й строки матрицы А упорядочены по убыванию, и false если нет
Дана прямоугольная матрица А размера mхn и массив В логических переменных размера m. По матрице А получить массив В, присвоив его k-му элементу значение true, если элементы k-й строки матрицы А...
Pascal ABC Дано множество R С MxM. Задать списком и матрицей отношение ММ, если: R = { (а, b) : (а + 1) делитель (а + b)} https://www.cyberforum.ru/ pascalabc/ thread1119870.html
Задание на фото:
Pascal ABC Дан целочисленный массив X(N,M).среди элементов нечетных столбцов массива найти количество четных чисел https://www.cyberforum.ru/ pascalabc/ thread1119748.html
Дан целочисленный массив X(N,M).среди элементов нечетных столбцов массива найти количество четных чисел. const nmax=50; mmax=50; var x:array of integer; n,m,i,j,ki: integer; begin write('Введите размерность матрицы: '); readln(n,m); writeln('Введите элементы матрицы: '); for...
Pascal ABC Простые числа, которые могут быть представлены в виде (2^p)-1
Дано натуральное число n. Найти все меньшие n простые числа, которые могут быть представлены в виде Дано натуральное число n. Найти все меньшие n простые числа, которые могут быть представлены в виде...
Pascal ABC Получить все шестизначные числа, в диапазоне от 0 до 999999, у которых сумма первых трех цифр равна сумме последних трех цифр. Если в числе меньше шес Получить все шестизначные числа, в диапазоне от 0 до 999999, у которых сумма первых трех цифр равна сумме последних трех цифр. Если в числе меньше шести цифр, то оно слева дополняется нулями. https://www.cyberforum.ru/ pascalabc/ thread1119743.html Pascal ABC Игра "Танки" Вот получил код, рабочий. Не все там гладко, нужно подправлять кое что. Например танк которым управляем нужно что бы он стрелял, поворачивал корпус. К тому же мы просто проезжаем сквозь танк... https://www.cyberforum.ru/ pascalabc/ thread1119905.html
 Аватар для FedorBoom
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
15.03.2014, 23:51 0

Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ - Pascal ABC - Ответ 5905102

15.03.2014, 23:51. Показов 1972. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено printer как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var s, slog: string;  sym: char;
    i: integer;
 begin
  write('Ââåäèòå ñòðîêó --> '); readln(s);
  write('Ââåäèòå èñêîìûé ñëîã --> '); readln(slog);
  write('Ââåäèòå íóæíûé ñèìâîë --> '); readln(sym);
 
  i:= length(s);
  while i<>0 do begin
    i:=i-1;
    if (s[i]=slog[1]) and (s[i+1]=slog[2]) then begin
      delete(s,i,2);
      insert(sym,s,i);
     end;
   end;
 
  writeln(s);
  readln;
 end.


Вернуться к обсуждению:
Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ Pascal ABC
1
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.03.2014, 23:51
Готовые ответы и решения:

Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ.
Помогите пожалуйста с задачкой: Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ.(Задача...

Заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ
Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ.(Задача должна содержать два модуля: модуль 1...

В символьном массиве заменить все вхождения первого заданного символа на второй заданный символ
Друзья, помогите пожалуйста с решением данной задачи, плохо разбираюсь в C++, по этому пожалуйста объясните мне что как работает, буду...

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.03.2014, 23:51
Помогаю со студенческими работами здесь

Найти все вхождения в предложение заданного слога из двух символов
Дано предложение. Составить программу, которая выводит все вхождения в предложение заданного слога из двух символов. Вывести строку в...

Если в строке имеется сочетание символов "la", то заменить каждый символ, встречающийся после первого вхождения этого сочетания, на символ "!"
Дана строка из символов. Если в строке имеется сочетание символов &quot;la&quot;, то заменить каждый символ, встречающийся после первого вхождения...

Заменить в каждой строке один заданный символ на другой заданный символ. Описать отдельной функцией замену символов
Следующие ошибки: sym, symChange необъявленные идентификаторы(26, 29; 28, 29 соответсвенно), тип char не требуется(10, 21 строка) ...

В исходной строке b$ после каждого вхождения заданного сочетания символов x$ ввести сочетание символов y$
В исходной строке b$ после каждого вхождения заданного сочетания символов x$ ввести сочетание символов y$.

В исходной строке а$ после каждого вхождения заданного сочетания символов х$ ввести сочетание символов у$
В исходной строке а$ после каждого вхождения заданного сочетания символов х$ ввести сочетание символов у$. Вывести исходную и полученную...

0
Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией через Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru