Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Удалить повторяющиеся символы из массива., Элементарная задача, помогите, пожалуста |
| LoveУшка |
Сообщение
#1
|
|
Гость  |
Вот задачка, чувствую, что элементарная, но с паскалем у меня война((((
Напечатать заданный текст длиной от 1 до 100 символов, удалив из него повторные вхождения каждого символа. Заранее спасибо. Если можно, побыстрее))) |
 
|
|
LoveУшка Удалить повторяющиеся символы из массива. 20.10.2004 22:38
volvo
var
s: string;
i: byte;
chars: set of char… 20.10.2004 23:09 GoodWind volvo, молодец ! Слово в слово то, что я собир… 20.10.2004 23:20 LoveУшка Большое спасибо! Спасибо! Спасибо! Даж… 20.10.2004 23:32 volvo Вот... Но она менее красива, чем первая... :)
v… 21.10.2004 0:01 LoveУшка Ну а что делать, не все что красивое нужно((((.. С… 21.10.2004 0:11 Altair хех. 21.10.2004 0:27 Shaddix Люди тут добрые:) Это я уже давно понял. Всем помо… 21.10.2004 1:46 Ш. Нелль А вот может быть такая же задача, но используя тол… 21.10.2004 22:41 volvo Что значит без строк? имеется в виду отсутствие ст… 21.10.2004 22:55 Ш. Нелль Да... то есть строка вобще не используется... Масс… 21.10.2004 23:20 volvo Тогда можно сделать так:
uses crt;
var
i… 21.10.2004 23:36 Ш. Нелль Спасибо.. А вот что значит это #10#13
writeln(#10… 21.10.2004 23:53 Altair #10#13
перевыод курсора на новую строку
Inc();
… 22.10.2004 0:00 Ш.Нелль А вот почему я не могла найти увеление номера.. :u… 22.10.2004 0:53 GoodWind а уменьшение - dec(n); 22.10.2004 22:26 zx1024 У inc и dec (иногда) может быть второй аргумент. И… 23.10.2004 7:01 GoodWind
просто inc - сокращение от increment (повышение),… 23.10.2004 10:50
Atos
Да... Дедушка Вирт&парни из Borland, наверное… 23.10.2004 15:58  |
|
Текстовая версия | 18.12.2025 6:50 |
