Снова на тему Паскаля.
Что выведет эта программа?
var
p: pointer;
b: byte;
begin
b:= 1;
p:= @b;
writeln(byte(p^),byte(^)));
end.
Posted via RSDN NNTP Server 1.9
Здравствуйте, dikun, Вы писали:
D>Снова на тему Паскаля.
D>Что выведет эта программа?
D>D>var
D> p: pointer;
D> b: byte;
D>begin
D> b:= 1;
D> p:= @b;
D> writeln(byte(p^),byte(^)));
D>end.
D>
Я надеюсь ничего, скобки как-то.. без этого — хочется верить,что тоже ничего — (^) обрабатываться не обязано.. Но сейчас попробую...
Здравствуйте, Аноним, Вы писали:
А>Я надеюсь ничего, скобки как-то..
Дык со скобками всё пучком
Здравствуйте, dikun, Вы писали:
D>Снова на тему Паскаля.
D>Что выведет эта программа?
D>D>var
D> p: pointer;
D> b: byte;
D>begin
D> b:= 1;
D> p:= @b;
D> writeln(byte(p^),byte(^)));
D>end.
D>
1 и символ, равный коду символа ^) (какое именно значение — не помню, с паскаля ушёл давно).
В своё время эту задачку мне давали в несколько ином вариание:
Var
M : ^Char;
Begin
M^ := ^M;
Write(M^);
End.
... << RSDN@Work 1.1.3 stable >>