Хто знает как работает процедура gotoxy. :low:
И еще: работает ли она при работе с файлами?
Если нет, то можна написать самому такую процедуру. :ryg:
 Процедура Gotoxy, Какой скрипт процедуры gotoxy |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Bokul |
Сообщение
#1
|
 Гуру  Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация:  11   |
-------------------- Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее. |
   |
 
|
  |
Ответов
| klem4 |
Сообщение
#2
|
 Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Да, ты правильно понял, i у тебя и так втоматически будет увеличиваться в цикле for, inc(i) - не нужно.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
Сообщений в этой теме
Bokul Процедура Gotoxy 28.09.2005 8:34
Atos Procedure GotoXY(X, Y; Byte) Перемещает курсор в н… 28.09.2005 8:46 Bokul Спасибо ATOS :thanks: , но мне как раз надо исполь… 28.09.2005 22:57 klem4 Можно самому написать если уж нак надо что-то подо… 28.09.2005 23:18 klem4 Вот написал процедурку, вроде работает, выводит на… 28.09.2005 23:54 Bokul Вообще-то я мне надо было написать аналог команды … 30.09.2005 4:02
volvo
Ты же сам идешь против правил, а потом удивляешьс… 30.09.2005 5:27 Bokul Тоесть, как я понял для нормальной работы
програм… 30.09.2005 6:02 volvo program FindText;
uses crt;
var
s, str, find: st… 30.09.2005 14:45 Bokul К klem4: если убрать inc(i), то програма все-равно… 30.09.2005 23:08 volvo Вот так должно работать (тестировалось с приведенн… 30.09.2005 23:52 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 8.09.2025 20:15 |
Связь с администрацией: bu_gen в домене octagram.name