Compound data type: Difference between revisions
Content added Content deleted
(→{{header|Go}}: simplify) |
(Added solution for Action!) |
||
Line 59: | Line 59: | ||
point_x equ point_ram |
point_x equ point_ram |
||
point_y equ point_ram+MAX_POINT_OBJECTS</lang> |
point_y equ point_ram+MAX_POINT_OBJECTS</lang> |
||
=={{header|Action!}}== |
|||
{{libheader|Action! Tool Kit}} |
|||
<lang Action!>INCLUDE "D2:REAL.ACT" ;from the Action! Tool Kit |
|||
TYPE PointI=[INT x,y] |
|||
TYPE PointR=[CARD rx,ry] |
|||
PROC Main() |
|||
PointI p1 |
|||
PointR p2 |
|||
REAL realx,realy |
|||
Put(125) PutE() ;clear screen |
|||
p1.x=123 |
|||
p1.y=4567 |
|||
ValR("12.34",realx) |
|||
ValR("5.6789",realy) |
|||
p2.rx=realx |
|||
p2.ry=realy |
|||
PrintF("Integer point p1=(%I,%I)%E",p1.x,p1.y) |
|||
Print("Real point p2=(") |
|||
PrintR(p2.rx) Print(",") |
|||
PrintR(p2.ry) Print(")") |
|||
RETURN</lang> |
|||
{{out}} |
|||
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Compound_data_type.png Screenshot from Atari 8-bit computer] |
|||
<pre> |
|||
Integer point p1=(123,4567) |
|||
Real point p2=(12.34,5.6789) |
|||
</pre> |
|||
=={{header|ActionScript}}== |
=={{header|ActionScript}}== |