Developing.ru

Народ хелп!!!!! К четвергу надо здать следующие задачи,а я с паскалем досихпор не разобрался.

1.Дана символьная строка.Определить длину самой длинной подстроки из подряд стоящих букв "a".

2.Дана символьная строка.Определить сколько в ней слов,начинающихся и кончающихся на одну и ту же букву.

3.Дана символьная строка.Удалить из неё последний знак препинания.

4.Дана символьная строка.Удалить из неё каждое слово слово нечётной длины.Слова друг от друга отделяются одним пробелом.

5.Дана символьная строка.Удалить из неё каждое слово нечётной длины.Слова друг от друга отделяются группой пробелов.

6.Дана символьная строка.Определить длину самого длинного и самого короткого слова.

7.Даны два упорядоченных одномерных массива целых чисел M1 и M2.Слить их в один упорядоченный массив.Рассмотреть случаи,когда массивы М1 и М2 упорядоченны одинаково и когда поразному.

Столько задач, аж не знаю с чего начать. Совет: лучше прочитай лишний раз о строках, сам разберёшся, поймёшь. К тому же задачки-то очень простые.

http://forum.developing.ru/showthread.php?t=7995
Помогает с задачами 2, 4, 5, 6

fly2007 писал(а): 1.Дана символьная строка.Определить длину самой длинной подстроки из подряд стоящих букв "a".

Код: Выделить всё

var stExample : string;
      stSearchSubstr : string;
begin
 // stExample - исследуемая  строка.
 // Ищем последовательно подстроки, начиная с состоящей из одной буквы 'a' и
 // добавляя на каждом шаге еще по одной букве.
  stSearchSubstr := '';
  repeat
     stSearchSubstr := stSearchSubstr + 'a';
  until  (Pos (stSearchSubstr, stExample) = 0);

  writelen ('Длина самой длинной подстроки из подряд стоящих букв "a": ',
                Length (stSearchSubstr) - 1);

end.

Developing.ru

Помогите с Паскалем

Помогите с Паскалем

Re: Помогите с Паскалем

Re: Помогите с Паскалем

#1