test26, Pascal - rextester

Language: Layout:

//fpc 3.0.4
{record with variable part "case"}
program test26;
type  fig=(circle,quadra);
          Pfig=^Figure;
           Figure=record 
                        sled: ^Pfig;
                          case f:fig of
                              circle:(r:real);
                               quadra:(a,b:real) {"a" gets the space of "r"}
                        end;
 var m,q:Pfig;     
function square(x:Pfig):real;
begin
    with x^ do
         case f of
            circle: square:=3.14*sqr(r);
            quadra:square:=a*b ;        
         end;    
end;
begin
New(m);
with m^ do
      begin
         f:=circle;
          r:=10;
          b:= 3;
          writeln(r:2:1);
          writeln(b:2:1);
           writeln(square(m):2:1) ;          
        end;
Dispose(m);
New(q);
with q^ do
      begin
         f:=quadra;
         r:=2;
          {a:=1;}{"a" gets the space of "r"}
          b:= 3;
          writeln(r:2:1);
          writeln(b:2:1);
           writeln(square(q):2:1) ;          
        end;
   Dispose(q);     
end.

Show compiler warnings [ + ] Show input
Compilation time: 0.24 sec, absolute running time: 0.24 sec, cpu time: 0.02 sec, memory peak: 3 Mb, absolute service time: 0,66 sec