test27, Pascal - rextester

Language: Layout:

//fpc 3.0.4
{record with variable part "case"}
program test27;
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
         sled:=Nil;
         f:=circle;
         r:=10;
         b:= 3;
         writeln(r:2:1);
         writeln(b:2:1);            
       end;
   writeln(square(m):2:1) ;
   writeln;
   New(q);
with q^ do
      begin
         sled:=m;
         f:=quadra;
         r:=2;
          {a:=1;}{"a" gets the space of "r"}
         b:= 3;
         writeln(r:2:1);
         writeln(b:2:1);      
      end;
   writeln(square(q):2:1) ; 
   writeln(square(q^.sled):2:1);
   Dispose(q); 
   Dispose(m); 
end.

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