Составить таблицу слов данного предложения, начинающихся на букву, проверте пожалуйста Опции

[artem66rus]

Составить таблицу слов данного предложения, начинающихся на букву "Ж" // "ж", с указанием числа повторений каждого такого слова. (прогамма считает как большую букву Ж так и маленькую ж) - паскаль АБС

Не могу разобратся с регистром (считает либо Ж или ж )
Может Вы поможете в дополнении программы

program slova;
Uses Crt;
var
  stroka, slovo : string;
  i,k             : integer;
begin
  ClrScr;
  WriteLn('Введите строку  ');
  TextColor(Cyan);
  ReadLn(stroka);
  stroka:=stroka + '.';
  i:= 1;  TextColor(LightGreen);
  while Length(stroka) <> 0 do
  begin
    if pos(copy(stroka,i,1),' ,.?!-:;') <> 0
        then begin
               slovo := copy(stroka,1,i-1);
                if slovo[1]='ж' then
 writeln(slovo);
               delete(stroka,1,i);
               i := 1;
 
             end
        else  i := i+1;
  end;
end.

[Lapp]

Составить таблицу слов данного предложения, начинающихся на букву "Ж" // "ж", с указанием числа повторений каждого такого слова. (прогамма считает как большую букву Ж так и маленькую ж) - паскаль АБС

Не могу разобратся с регистром (считает либо Ж или ж )
Может Вы поможете в дополнении программы

program slova;
Uses Crt;
var
  stroka, slovo : string;
  i,k             : integer;
begin
  ClrScr;
  WriteLn('Введите строку  ');
  TextColor(Cyan);
  ReadLn(stroka);
  stroka:=stroka + '.';
  i:= 1;  TextColor(LightGreen);
  while Length(stroka) <> 0 do
  begin
    if pos(copy(stroka,i,1),' ,.?!-:;') <> 0
        then begin
               slovo := copy(stroka,1,i-1);
                if slovo[1]='ж' then
 writeln(slovo);
               delete(stroka,1,i);
               i := 1;
 
             end
        else  i := i+1;
  end;
end.

Ты работай с множествами. Оно же тут напрашивается..

 if slovo[1] in ['Ж','ж'] then .. 

А применять Pos для определения является ли символ разделителем - это вообще крайне нецелесообразно.. И copy зачем?? Странно, дальше ты вроде не стесняешься непосредственно брать символ из слова..

    if stroka[i] in [' ', ',', '.', '?', '!', '-', ':', ';'] then ...

Но все равно неплохо )).
А до частотной таблицы пока дело не дошло?

[artem66rus]

А применять Pos для определения является ли символ разделителем - это вообще крайне нецелесообразно.. И copy зачем?? Странно, дальше ты вроде не стесняешься непосредственно брать символ из слова..

    if stroka[i] in [' ', ',', '.', '?', '!', '-', ':', ';'] then ...

Но все равно неплохо )).
А до частотной таблицы пока дело не дошло?

частотная таблица - что это?? объясни дураку ))

Pos для определения является ли символ разделителем - это вообще крайне нецелесообразно

А как лучше???

[Lapp]

частотная таблица - что это?? объясни дураку ))

Это то, что спрашивается в задании ))
вывод слов с количеством повторений

А как лучше???

Ну я же написал, как.