Реализовать в виде модуля набор набор подпрограмм для следующих операций со строками : 1) Процедура подсчёта кол-ва букв к в пер

[Richik123]

Реализовать в виде модуля набор набор подпрограмм для следующих операций со строками :
1) Процедура подсчёта кол-ва букв к в первом слове;
2) Процедура вывода на экран слов строки, начинающихся и заканчивающихся одной и той же буквой;
3) Функция подсчета количества символов строки до точки с запятой и после нее.
Разработать программу не пользующую программы данного модуля.

[Poma][a]

Ваши наработки? Черновики? Хоть что-то..
Процедура № 1

procedure CntOfChar (s : string; var r : Integer);// CounterOfChar
var
        s1, s2, i : Integer; // space1, space2

begin
        i := 1;
        while (i < Length(s)) and (s[i] = ' ') do
                Delete (s, 1, 1);
        s2 := 0;

        for i := 1 to Length(s) do
                if s[i] = ' ' then begin
                        s2 := i;
                        Break
                end;
        if s2 <> 0 then
                r := s2-1
        else
                r := Length(s)
end;

[Richik123]

наработок нету, а как в модуль оформить?

[Poma][a]

тыц
но для начала надо написать функции, процудерки

procedure EqualLetters (const c : string; var r : string);
var
          s1, s2, i : Integer;
          s : string;

begin
         s := ' ' + c + ' ';
         s1 := 1; s2 := 0;
         r := '';

         for i := 2 to Length(s) do begin
                   if s[i] = ' ' then begin
                          if s1 < s2 then
                                 s1 := i
                          else
                                 s2 := i;
                          if s[s1+1] = s[s2-1] then
                            r := r + Copy(s,s1+1, s2-s1-1) + ' ';
                            s1 := s2;
                  end;
        end;
end;

var
        s : string;
        r : string;

begin
        ReadLn (s);
        EqualLetters (s, r);
        WriteLn (r);

P.S. хорошо думается на паре по литературе

[TinMan]

Мне вот это особенно понравилось:

Сообщение от Richik123

Разработать программу не пользующую программы данного модуля.

- сделать модуль и выкинуть его на фик!.. )))

[Richik123]

блин, ошибся:D
использующую

interface
 
 procedure output(s: string);
 
 
 
 
 implementation
 
 
 procedure output(s: string);
 begin
 
 if s[1]=s[length(s)] then
 writeln(s);
 end;
 
 end.

так? если нет , то ошибки объясните. это ко второму пункту.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Sciv]

Сообщение от Richik123

так? если нет , то ошибки объясните. это ко второму пункту.

Слов строки, а не одного слова. Но направление верное

[Serge_Bliznykov]

к верному замечанию Sciv // Вам нужно разбивать строчку на отдельные слова и в них уже сравнивать первую и последнюю букву //
я бы ещё добавил.
1-е. не рекомендую использовать ключевые слова для своих идентификаторов (я имею в виду output). В данном случае, конечно, ошибки не будет. Но неужели имя PrintWordWithEqualsLetters выглядит хуже? Ну, или, на худой конец, если Вам так нравится слово output - назовите процедуру OutputOneWord или OutputW - и то будет безопаснее (надёжнее).

2-е. Когда вы проверяете первую и последнюю букву слова Вы не учитываете, что в процедуру могут передать вообще пустую строчку. Это глюк и возможные рантайм ошибки. и этого легко избежать:

procedure PrintOneWord(s: string);
begin
 if Length(s)>0 then 
    if s[1]=s[length(s)] then
          writeln(s);
end;

p.s. разбор строки на отдельные слова поищите на форуме, тут таких примеров было много.
навскидку,
разбор строки на отдельные слова (с) Stilet
только вам их сохранять не нужно, поэтому и массив не нужен...

[Poma][a]

дык я ж писал выше! и работает и хорошо...

procedure EqualLetters (const c : string; var r : string);
var
          s1, s2, i : Integer;
          s : string;

begin
         s := ' ' + c + ' ';
         s1 := 1; s2 := 0;
         r := '';

         for i := 2 to Length(s) do begin
                   if s[i] = ' ' then begin
                          if s1 < s2 then
                                 s1 := i
                          else
                                 s2 := i;
                          if s[s1+1] = s[s2-1] then
                            r := r + Copy(s,s1+1, s2-s1-1) + ' ';
                            s1 := s2;
                  end;
        end;
end;

var
        s : string;
        r : string;

begin
        ReadLn (s);
        EqualLetters (s, r);
        WriteLn (r)
end.

[Richik123]

но в модуль никак что-то(