String. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
String. |
Santrex |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 32 Пол: Мужской Репутация: 0 |
Народ.Помогите прогрмисту 1 курса.Вот проги не получаються а сдать их надо уже через 2 дня.Помогите чем можете и чем скорей тем лучше.Заранее спасибо.
А вот и условие прог: :p2: 1)Задана строка символов.Напечать повторяющийся символ. 2)Задан текс.Выполнить Сортировку по алфавиту слов,имеющих четное количесто букв. 3)Задан текст.Удалить одинаковые слова. :p2: В этих прогах нам запрещенно использовать Функции,Процедуры и Фаелы. Я надеюсь вы сможете помочь мне написать хотяб пару прог. Сообщение отредактировано: Santrex - |
Digitalator |
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 247 Пол: Мужской Репутация: 1 |
3. здесь нужно сравнивать каждое слово с каждым и помечать одинаковые...
примерно так Код for i:=1 to count-1 do for j:=i+1 to count do if words[i] = words[j] then begin equal_words[i]:=1; equal_words[j]:=1; end; После этого в массиве equal_words будут стоять единички в ячейках соответствующим одинаковым словам в массиве words. Далее надо собрать остальные слова в новый массив Код for i:=1 to count do if equal_words[i]<>1 then begin new_count:=new_count+1; new_words[new_count]:=words[i]; end; вот.... вопросья? -------------------- |
Текстовая версия | 18.05.2024 10:19 |