Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Object Pascal
//fpc 3.0.0 program HelloWorld; type PMyObj =^TMyObj; TMyObj = object A : Integer; B : Integer; procedure SetA(pA:integer); procedure SetB(pB:integer); end; PMyRec = ^TMyRec; TMyRec = Record A : Integer; B : Integer; end; procedure TMyObj.SetA(pA:integer); begin A:= pA; end; procedure TMyObj.SetB(pB:integer); begin B:= pB; end; var lObj:PMyObj; var lRec:PMyRec ; begin lObj:= New(PMyObj); lObj^.SetA(5); lObj^.SetB(10); lRec:= PMyRec(lObj); writeln('Hello, world!'); writeln(lRec^.A); writeln(lRec^.B); end.
run
|
edit
|
history
|
help
0
solar_system_n_(20)_planets_an_time
TID_Calculator
practica 3 ejercicio 10
bilete
nomer1
Исправленный NOD без массивов и алгоритма Евклида
BubbleSort (standaard)
сумма чётных и нечётных чисел
P170808B
VIGENERECIJFER