Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
test19
//fpc 3.0.4 {dynamic variable p^ is determined nowhere (!)} program test19; {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:2);{direct access through static variable "a"} writeln; writeln('non direct access',p^:2);{non direct access through dynamic (nondirect) variable} end.
run
|
edit
|
history
|
help
0
ор
Opdracht_1
JESSICA GOMES DE SOUZA FERREIRA 600621634
444555666
x-div-2-x-3+1
рекурсия двух функций
0 1 0 0 0 1 1 1
mulitp
Find the greatest integers - v1
123