Но кстати FPC {$MODE TP} проходит без проблем. регистрация... дата. |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
  |
| klem4 |
Сообщение
#21
|
 Perl. Just code it!  Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация:  44   |
Ладно-ладно, верю
Но кстати FPC {$MODE TP} проходит без проблем.-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
   |
 
|
| Shura |
Сообщение
#22
|
 Пионер Группа: Пользователи Сообщений: 136 Пол: Мужской Реальное имя: Александр Репутация: -2 |
Ну и ну, всегда делали ch:=chr(...), а тут... Зачем присваивать возвращаемому значению (функции) ещё какое-то значение? В чём тогда смысл "функции"?.. Это похоже на что-то вроде "0:=10"....
-------------------- Старайтесь восполнять пробелы в области незнания! ;-D
|
|
|
|
| klem4 |
Сообщение
#23
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата(Shura @ 13.10.2005 15:13) Ну и ну, всегда делали ch:=chr(...), а тут... Зачем присваивать возвращаемому значению (функции) ещё какое-то значение? В чём тогда смысл "функции"?.. Это похоже на что-то вроде "0:=10".... ну все же вроде обсудили уже ... зачем повторяться и тем не менее в отличии от "0 := 10" , ord(s[0]) := 10 в некоторых случаях компилируется и работает без ошибок. :p2: -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Altair |
Сообщение
#24
|
 Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
да все обсудили.... 5 литров кефира... как подумаю плохо становиться...
Скорее бы 2 ноября... -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| klem4 |
Сообщение
#25
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
мдя ... мне еще Volvo бандеролью отправлять ... вот только боюсь прокиснет
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 10.01.2025 6:00 |
Связь с администрацией: bu_gen в домене octagram.name