dimitriy7:
neizvestnyj375
Ну так и передать -- как указатель.
Вот как-то так:
Код:
Добавлено:
kvitan
Цитата:
Чем так возиться, можно ж в 2 строчки:
Код:
neizvestnyj375
Ну так и передать -- как указатель.
Вот как-то так:
Код:
| var a:^longint; procedure proc1(p: pointer); begin writeln(longint(p^)); {явно указываем тип переменной, на которую указывает p} end; begin new(a); a^:=1023; proc1(a); {передаем только указатель, а не переменную} dispose(a); end. |
Добавлено:
kvitan
Цитата:
| while(n>0) do begin o:=n mod 2; n:=n div 2; s:=IntTostr(o)+s; end; |
Чем так возиться, можно ж в 2 строчки:
Код:
| s:=''; len:=sizeof(n)*8; for i:=1 to len do if (n)and(1 shl (len-i))=0 then s:=s+'0' else s:=s+'1'; |