Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
test20
//fpc 3.0.4 {dynamic variable p^ is determined nowhere (!)} program test20; {pointer to variable} type t=1..2 ;{new ordinal type} Pt=^t ;{pointer type} var p:Pt;{pointer variable is static (!) variable} a:t;{static variable "a"} begin a:=2; p:=@a; {pointer var is static (!) variable} writeln('direct access',a+1:2);{direct access through static variable "a"} writeln; writeln('non direct access',p^+4:2);{non direct access through dynamic (nondirect) variable} end.
run
|
edit
|
history
|
help
0
practica 2 ejercicio 8
Удвоенное число с одинаковыми цифрами
1
1
test28
Kupovina Auta
TID_Calculator
solar sysmtem 6 (with random mass m1)
Overflow error
Test