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
1
Zad 3 b
9 „C”
For5
practica 9 ejercicio 11
practica 3 ejercicio 8
Вычисление площади фигуры, ограниченной осью абцисс и функцией
проверка числа на отсутствие возрастающих и убывающих четвёрок
lecturas
tarea1