Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Конвертор |
| nik.bstu |
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация:  0   |
Есть мной написанный конвертор числа в двоичный код... Как его можно ускорить... Нужно для ускорения полнопереборных лгоритмов...
const n=15;
type t_kod=array[1..n] of 0..1;
procedure convertor(var a:t_kod; y:longint );
var t:longint;
x,q: longint;
begin
t:=n;
x:=y;
if x<0 then a[1]:= 1;
x:=abs(x);
repeat
q:=x mod 2;
a[t]:=q;
x:= x div 2;
t:=t-1;
until (x=0) or (t = 1);
end;
Тегами пользуйся... Сообщение отредактировано: volvo - |
   |
 
|
| klem4 |
Сообщение
#2
|
 Perl. Just code it!  Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| nik.bstu |
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: 0 |
Цитата(klem4 @ 2.03.2006 21:02)  Да мне нужен числовой массив. а что там за команда "digit[(n mod radix)+1]" ... что то типа взврата символа? |
|
|
|
| volvo |
Сообщение
#4
|
|
Гость |
klem4, а ты приведенную программу ВНИМАТЕЛЬНО смотрел? Уверен, что в FAQ-е есть аналог?
nik.bstu, заменять div 2 на shr 1 (будет быстрее), t := t-1 на dec(t) (тоже быстрее), избавляемся от лишней переменной... Вот результат: procedure convertor(var a:t_kod; y:longint );
var
t: longint;
x: longint;
begin
t := n; x := y;
if x<0 then a[1]:= 1;
x := abs(x);
repeat
a[t] := x and $1;
x := x shr 1;
dec(t);
until (x = 0) or (t = 1);
end;
Ну, и естественно, НЕ переусердствуй заранее, решай проблемы по мере появления, ибо "Premature optimization is the root of all evil..." © |
|
|
|
| klem4 |
Сообщение
#5
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Volvo,
Цитата Есть мной написанный конвертор числа в двоичный код Где тут слово массив ? А привиденную программу я смотрел и как раз подумал, что автору надо показать как это делается без массива. Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| volvo |
Сообщение
#6
|
|
Гость |
Цитата(klem4 @ 3.03.2006 9:19) Где тут слово массив ? Здесь: Цитата type t_kod=array[1..n] of 0..1; Значит, так смотрел программу! |
|
|
|
| klem4 |
Сообщение
#7
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
/ offtop
Не буду естественно с тобой спорить,я видел этот массив  , но подумал что автор сделал конвертор каким-то не изученным наукой методом, поэтому и дал ссылку на FAQ, чисто теоретически его массив 1 и 0 можно перевести в string и и использовать процедуру из нашего FAQ, но так как это не требуется, прошу прощения.ps И всетаки в самом задании не сказано, что для представления числа в двоичной сс надо использовать массив ;) Дополнительный код Все понял, виноват, исправлюсь ;) Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| volvo |
Сообщение
#8
|
|
Гость |
Понимаешь, в чем дело... Если человек описывает отдельный тип для числового массива, а потом еще в программе делает:
if x<0 then a[1]:= 1; { <-- Вот это !!! }
, значит, ему нужно нечто отличное от просто строки... |
|
|
|
|
|
Текстовая версия | 22.04.2025 9:43 |
