|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.12.2010, 21:16 | #1 |
Пользователь
Регистрация: 25.12.2010
Сообщений: 16
|
Нужно доработать программку ...(Pascal)
Задание:
Задана строка, что состоит из слов, разделенная одним или несколькими пропусками.Подсчитать количество слов которые содержат пары соседних одинаковых букв. нужно сделать из сырой полностью готовую программку (от program до end.) {Обьявление переменных и т.д} {Потом ваша функция} function isDubleLettrers(OneWord : string) : boolean; var i:integer; isFound : boolean; begin isFound := false; {вначале считаем, что таких букв нет} i := 1; {начиная с первой буквы} while (i<Length(OneWord)) and (Not isFound) do begin {если текущая буква равна следующей, значит нашли такую пару!} if OneWord[i] = OneWord[i+1] then isFound := true; inc(i); end; isDubleLettrers := isFound; end; {Потом где-то в теле программы} count := 0; j := 1; for i := 1 to length(s) do begin if (s[i] <> ' ') and (i <> length(s)) then begin ts[j] := s[i]; j++; end else begin if i = length(s) then ts[j] := s[i]; if isDubleLettrers(ts) = true then Inc(count); ts := ''; j := 1; end; end; Writeln ('Количество слов равно ', count); |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужно доработать программку ... | bot0 | Помощь студентам | 0 | 28.12.2010 20:47 |
еще не студент, но надо научиться. разобраться и доработать нужно. | alexey1990 | Помощь студентам | 5 | 23.05.2010 23:08 |
Нужно создать программку на С++.. | henshot | Помощь студентам | 0 | 20.04.2010 19:31 |
Нужно доработать прогу в ПАСКАЛЕ | Nubik | Помощь студентам | 2 | 21.12.2009 00:09 |