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

@Rezvanov · Регистрация: 22.10.2011

Author24 — интернет-сервис помощи студентам

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

Добавлено через 14 часов 20 минут
тоже Паскаль

@N-e-O · 19.09.2014, 15:17

Pascal

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 "

@Puporev · 19.09.2014, 15:56

Pascal

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;

@Rezvanov 1 / 1 / 2 Регистрация: 22.10.2011 Сообщений: 77
		1
	В заданном тексте заменить последовательность символов “ОЗУ” на “ОП” и подсчитать число произведенных замен 19.09.2014, 12:38. Показов 2012. Ответов 2 Метки нет (Все метки) В заданном тексте заменить последовательность символов “ОЗУ” на “ОП” и подсчитать число произведенных замен. Составьте блок-схему и программу Добавлено через 14 часов 20 минут тоже Паскаль 0

	19.09.2014, 15:56

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

Решение