Задачи на строки и множества паскаль

[GamBitFRK]

Доброе утро! Есть не большое зависание в плане написания программы на Pascal

1) В каждом слове, имеющем не четную длину, сделать все нечетные буквы заглавными

В принципе знаю, что во вложенном цикле буду просматриваться слова, там же будут изменяться в зависимости от длины, но реализовать это не получается, запрещено пользоваться всеми процедурами строк кроме lenght

2) Найдите все слова первой строки, которые встречаются во второй и выведи их в алфавитном порядке.

Тут знаю что надо делать через массив строк, но с телом мучаюсь

3) Задача про множества - знаю что легкая, торможу полностью

Дана строка, вывести на экран знаки препинания, которые встречаются хотя бы 2 раза

Заранее спасибо

[_Alerter_]

1) В каждом слове, имеющем не четную длину, сделать все нечетные буквы заглавными

сделать цикл while do, ввести переменную-счётчик i и пока не достигнут конец строки заменять i-тый символ, если он не заглавная буква, на символ, отстоящий на 32 позиции левее текущего(используя Chr и Ord). i увеличивать на 2 в конце каждой итерации.

2) Найдите все слова первой строки, которые встречаются во второй и выведи их в алфавитном порядке.

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

Дана строка, вывести на экран знаки препинания, которые встречаются хотя бы 2 раза

Просматривать строку, если встретили знак препинания и его нет в множестве, то добавить его в множество и просмотреть строку до конца на наличие повтора этого знака. Повторять пока не достигнем последнего символа строки.

[GamBitFRK]

Спасибо огромное)

[GamBitFRK]

Только не понятно, зачем сдвигать на 32 позиции при просмотре?

[Mad_Cat]

зачем сдвигать на 32 позиции

[GamBitFRK]

Спасибо, да если не трудно, пожалуйста, реализуйте 1 и 3 программу в коде, просто что то не выходит

[_Alerter_]

Покажите, что не выходит

[GamBitFRK]

Ну в 1 задаче не понятно, как записать, в зависимости от длины слова замену на большую букву, давже думаю третью не надо, там легко, а вот первую, если не трудно, напишите, пожалуйста

[GamBitFRK]

Со 2 задачей, тоже глючки, с массивами и просмотром слов

[_Alerter_]

для первой задачи

i := 1;
while i <= length(str) do
begin
   if (Ord(str[i]) >= Ord('a')) and (Ord(str[i]) <= Ord('z')) then
       str[i] := Chr(Ord(str[i]) - 32);
   i := i + 2;
end;

Для второй задачи сделал перевод первой строки в массив строк, состоящий из слов первой строки, если разберёшься с этим, сможешь сделать и остальную часть:

var
   str1, str2 : string;
   strs : array [1 .. 100] of string;
   i, j, k : integer;

procedure DeleteSpace(var str : string);
var
   i : integer;
begin
   i := 1;
   while i < length(str) do
   begin
      if (str[i] = ' ') and (str[i + 1] = ' ') then
         Delete(str, i + 1, 1)
      else
         i := i + 1;
   end;
end;

begin
readln(str1);
DeleteSpace(str1);
DeleteSpace(str2);
i := 1;
j := 1;
k := 1;
while i <= length(str1) do
begin
  if (str1[i] <> ' ') and (str1[i] <> ',') and (str1[i] <> '.') then
  begin
     strs[j, k] := str1[i];
     k := k + 1;
  end
  else
  begin
     strs[j, 0] := Chr(k - 1);
     j := j + 1;
     k := 1;
  end;
  i := i + 1;
end;
strs[j, 0] := chr(k - 1);
for i := 1 to j do
writeln(strs[i]);
readln
end.