Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
1 / 1 / 2
Регистрация: 22.10.2011
Сообщений: 77

В заданном тексте заменить последовательность символов “ОЗУ” на “ОП” и подсчитать число произведенных замен

19.09.2014, 12:38. Показов 2130. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В заданном тексте заменить последовательность символов “ОЗУ” на “ОП” и подсчитать число произведенных замен. Составьте блок-схему и программу

Добавлено через 14 часов 20 минут
тоже Паскаль
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
19.09.2014, 12:38
Ответы с готовыми решениями:

В заданном тексте заменить последовательность символов x(i) на a(i) и подсчитать число произведенных замен.
Прошу помочь в Лабе. завтра сдавать... боюсь погареть!* искал в нете пободного нигде не нашел... решил обратиться к этому сайту! т.к....

В заданном тексте заменить посдледовательность символов X(I) на А(I) и подсчитать число произведенных замен
В заданном тексте заменить посдледовательность символов X(I) на А(I) и подсчитать число произведенных замен.

Pascal.заменить последовательность и подсчитать число замен.
В заданном тексте заменить последовательность xi на ai и подсчитать число произведенных замен. program Str; uses crt; var St:string;...

2
 Аватар для N-e-O
2 / 2 / 1
Регистрация: 26.07.2013
Сообщений: 49
19.09.2014, 15:17
Лучший ответ Сообщение было отмечено Rezvanov как решение

Решение

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
program str ;
 
const
  b = 'ОП' ;
 
var
  s: string; 
  i, j, r, t: integer  ;
 
begin
  readln(s); 
  r := length(s);
  //inc(r); 
  for i := 1 to r - 2 do 
  begin
    if s[i] = 'О'    then 
      if (s[i + 1] = 'З' ) and (s[i + 2] = 'У' ) then begin
        inc(t);j := i; 
          delete(s, j, 3);
  Insert(b, s, j);
        
      end;
  end; 
  writeln(s); 
  writeln(t);
end..
Вот программа , написана конечно кривовата. Но уж извиняй.
Блок-схему посмотри с помощью программы " http://ufacomputer.ru/node/7 "
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
19.09.2014, 15:56
Pascal
1
2
3
4
5
6
7
8
k:=0;
for i:=length(s)-1 downto 1 do
if copy(s,i,2)='ОП' then
 begin
  delete(s,i,2);
  insert('ОЗУ',s,i);
  inc(k)
 end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
19.09.2014, 15:56
Помогаю со студенческими работами здесь

Как подсчитать количество произведенных замен?
Как подсчитать количество произведенных замен? var a:arrayof integer; b:arrayof integer; i,n:integer; function zamena(a:arrayof...

Заменить отрицательные значения и подсчитать число замен
Здравствуйте! Кому не трудно - помогите поправить. Туплю. Нужно срочно. Заранее спасибо! В массиве из целых чисел найти и заменить все...

В заданном тексте удалить символ "," и подсчитать число удаленных символов
36. В заданном тексте удалить символ "," и подсчитать число удаленных символов.

В заданном тексте удалить символ "," и подсчитать число удаленных символов
Задание:В заданном тексте удалить символ "," и подсчитать число удаленных символов. Помогите пожалуйста! (С++)

В заданном тексте удалить символ "," и подсчитать число удаленных символов
В заданном тексте удалить символ "," и подсчитать число удаленных символов


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru