Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
exVariant
Program exVariant; uses variants; type color=(red,black,white); var v:variant; i:integer; r:real; c:color; as:ansistring; Begin i:=100; v:=i; writeln('Variant as Integer: ',v); r:=234.345; v:=r; writeln('Variant as real: ',v); c:=red; v:=c; writeln('Variant as Enumerated data: ',v); as:= 'I am an Ansistring'; v:=as; writeln('Variant as AnsiString:',v); end.
run
|
edit
|
history
|
help
0
test27
x=2;n=3
1 2 9
AgentMaxence
P170808E
Tinh tong
two number sum
Homework 10
Geometric and aritmetic average of array
lecturas