Найти в исходном символьном массиые слово РАК ... Опции

[klem4]

Да и вообще с pos, delete ... плохо знакома. И поэтому сама программа не так понятна

goto FAQ : Строки.

[klem4]

вот так лучше ?

uses crt;
const
   fish : array [0..3] of char = ('щ','у','к','а');
   limits = [#0..#32,'.',',','!','?',':','"'];

var

   s : array[1..80] of char;
   n,i,j : byte;

begin

   clrscr;

   write('n='); readln(n); // количество элементов в массиве

   FillChar(s, sizeof(s),0); 

   for i := 1 to n do readln(s[i]); // посимвольный ввод строки

   writeln;

   for i := 1 to n do write(s[i]); // вывод строки на экран

   {$r-} // отключение проверки выхода за границы массива
   i := 1;

   while(i<=length(s)-2) do begin (* внешний цикл до момента достижения
   i = length(s) -2, так как это последнй шанс когда там может находиться                 слово РАК *)  
      while(i<=length(s)-2) and (s[i] in limits)
       do inc(i); // проходим по массиву пока не найдем букву

    if (i<=length(s)-2) and (s[i] = 'р') and (s[i+1]='а') and (s[i+2]='к') and (s[i+3] in limits) then begin 
(* Если начиная с найденной буквы следует слово РАК и за ним следует НЕ буква или оно стоит в конце массива, 
то сдвигаем все символы на один элемент вправо и 
начиная с символа хранащего букву Р слова РАК вставляем слово ЩУКА
*)
       for j := n + 1 downto i do s[j] := s[j-1];
       for j := 0 to 3 do
        s[i+j] := fish[j];
        inc(i,4); // проскакивае далее по массиву через добавленое слово ЩУКА
        inc(n); (* длина массива увеличилась на единицу, так как щука длинее рака на один символ )
*)
    end
(* Если найденная группа букв НЕ слово рак с пробелом до и после него или
стоящее в конце строки, то идем по массиву дальше пока не закончится этот набор букв или строка
*)
     else repeat
        inc(i);
     until (s[i] in limits) or (i=length(s)-2);
   end;

   writeln;

   for i := 1 to n do write(s[i]); // выводм результат на экран.

   readln
end.

[Altair]

const
  r='rak';
  h='hyka';
var

  s: string;
begin
     writeln('Enter string: ');
     readln(s);
     while pos(r,s)<>0 do begin
           insert(h,s,pos(r,s));
           delete(s,pos(r,s),3);
     end;
     writeln(s);     readln
end.

[klem4]

Олег !!! Ухаха, надо символьный массив использовать !!! Задание читал ?

[Altair]

To: klem4 , ты меня начинаешь выводить из себя... своим гонором и неоправданным самомнением...
перевести символьный массив в строку ....

у меня скомпилилось и сработало так:

Program Kursovik;
{$R+}
const
  r='rak';
  h='hyka';
var

   s: string;
   c:array[1..5] of char;
begin
     c[1]:='r';
     c[2]:='a';
     c[3]:='k';
     c[4]:='1';
     c[5]:='2';
     s:=c;
     writeln('Enter string: ');
{     readln(s);}
     while pos(r,s)<>0 do begin
           insert(h,s,pos(r,s));
           delete(s,pos(r,s),3);
     end;
     writeln(s);     readln
end.

[klem4]

из строки rak12 должна получиться строка rak12

[Altair]

Найти в исходном символьном массиые слово РАК и заменить его в результирующем массиве словом ЩУКА без потери символов

из строки rak12 должна получиться строка rak12

исходя из условия должно быть hyka12
ибо нигде не сказанно что слова долдны чем то разделятся (ты на это типа намекнул )

вобщем если каша в теме будет продолжаться, она будет закрыта, из-за отсутствия темы обсуждения как таковой!

[klem4]

Э-эх, ну ладно, понеслась!
это что : http://forum.pascal.net.ru/index.php?showt...indpost&p=51619

+

Не учёл условия, что если к примеру вводить "ракрак", то результатом должно быть "ракрак". Нужно СЛОВО (отдельностоящее) заменить (т.е. нужно чтобы слева и справа от слова небыло букв, а были только либо знаки, либо пробел)
Вот в той программе это учитывается, при вводе "ракрак" или "ракапавпк" результатом эти строки и остаются.

Сообщение отредактировано: klem4 - 24.11.2005 22:49

[volvo]

Сколько еще вариантов решения надо предложить, чтобы это НАКОНЕЦ-ТО устроило автора темы???

[Altair]

Сколько еще вариантов решения надо предложить, чтобы это НАКОНЕЦ-ТО устроило автора темы???

Уже предложенно порядочно что бы удовлетворить всех и все...

[Анна]

Давайте не будем ругаться. Я вообще не просила писать мне программу, я выложила свою программу и алгоритм на ваш суд.

А тему закрывать не надо. Ещё может будет обсуждение самого алгоритма.

Сообщение отредактировано: Анна - 25.11.2005 1:33

[volvo]

Ещё может будет обсуждение самого алгоритма.

Правда? А зачем? Чтобы тебе написали еще 3-4 версии, а ты сказала, "Я не просила мне ничего писать, я хотела только пообсуждать"? Спасибо, второй раз такой вариант не проходит...

Кроме этого, я бы порекомендовал разобраться с терминологией. Что есть Алгоритм? Этот твой рисунок? Ха... Тогда что есть блок-схема этого самого алгоритма? Так вот в этом и есть вся проблема: сначала надо было придумать АЛГОРИТМ (словесное описание процесса решения задачи), и пообсуждать его, если тебе очень этого хотелось. А теперь обсуждать нечего, ты всем навязала свой способ решения. Ну, так пользуйся.