Здравствуйте, Zensor! Посмотрите: http://pascal.sources.ru/tmt/faq.htm#L1 http://www.sporaw.ru/ftn/tmail/russian/tmt.htm http://nefor-vl.narod.ru/ProgSoft/tmtpascal.html http://www.mageal.net/~valery/pascal.html Ответ отправлен: 04.12.2003, 17:46 Отправитель: Boriss Отвечает sir henry
Приветствую Вас, Zensor! TMT для Windows только за денюжки :). Свободная версия (кстати, изрядно устаревшая) только для ДОС. А почему бы Вам не воспользоваться FreePascal? Он свободно распространяется для всех операционок и скачивается без проблем: www.freepascal.com. Единственная незадача - в его составе оболочка только под ДОС, но есть на www.bloodshed.net/devpascal.html оболочка для FreePascal под Windows. Называется DevPascal. Вполне приличная надо сказать. Я ей сам пользуюсь. Ответ отправлен: 05.12.2003, 04:09 Отправитель: sir henry
Вопрос № 355
Уважаемые эксперты! Как сделать так, чтоб печатались симметричные слова? Например: авва, ааваа и т.д. Заранее спасибо.
Здравствуйте, Ludik! Я понимаю твой вопрос так: - по каким либо путь мы получаем некое слово, проверяем его на симетричности и выводим слово и сообщение - " слово симетричное", если оно такое и "слово НЕсиметричное" в противном случае. Поетому и моя примерная прога так действуеть. Я генерирую слово не больше 10 символов случайным образом, проверяю его на симетричности и прогу выводить соответствующую сообщение.Смотри приложение!
Приложение: Ответ отправлен: 05.12.2003, 15:26 Отправитель: Tancho Отвечает Vitally
Приветствую Вас, Ludik! Может не самое лучшее, но самое простое: var a:string; b:string; Begin a:='basab'; b:=a; For i:=1 to Length(a) do b[i]:=a[Length(a)-i+1]; if a=b then Writeln(a); End.
Ответ отправлен: 05.12.2003, 10:55 Отправитель: Vitally Отвечает sir henry
Приветствую Вас, Ludik! Ну и вопросец :). Может быть Вы его сформулируете как-то по другому? А то он сбивает с толку своей простотой :). А Write/WriteLn уже при печати этих слов не помогают? Или я чего-то непонял? Ответ отправлен: 05.12.2003, 04:24 Отправитель: sir henry Отвечает Phenix
Добрый день, Ludik! Ест строковая переменная - генеришь любые (я так понял из примера, что любые) символы (генератор случайных чисел еще никто не отменял) - выводишь наэкран строку без перевода курсора на новую, а затем поциклу (посимвольно) в обратном порядке выводишь либо все символы (и получаешь как в первом примере), либо начиная с предпоследнего (и получишь как во втором примере). Эту операцию можешь повторять поциклу сколько душе угодно. Ответ отправлен: 05.12.2003, 01:05 Отправитель: Phenix Отвечает vitya
Здравствуйте, Ludik! печатаешь любое слово, а потом его же обратном порядке. Генерировать слова надо через генерацию всех перестановок определенных символов, их будет n!. Ответ отправлен: 05.12.2003, 08:35 Отправитель: vitya Отвечает Boriss
Доброе время суток, Ludik! Надо печатать их симметрично, например, абба, аабаа, и т.д. :)) А если серьзено, то неясен алгоритм составления. Фантазии на эту тему в приложении
Приложение: Ответ отправлен: 05.12.2003, 14:29 Отправитель: Boriss
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.