syntax flexibility (programming) of xcas on HP-Prime

[compsystems]

Hello, HP-Prime users, the syntax flexibility of xcas makes you like it a lot, some users according to the context they like, at the beginning and at the end of the blocks with symbols {...}, others in a more explicit way is to say for example to define a function with words, Func..EndFunc

According to the following set of definitions, Xcas supports 8 different ways to define a function, it is not governed by a particular style, of course the compilation is done in ~ c++

PHP Code:

/// c++ style
f1( x ) := 
{ 
  local k;
  k := 5;
  return x * k; 
}; 

f2( x ) :=
begin  
  local k;
  k := 5;
  return x * k; 
end;

function f3( x )
begin  
  local k;
  k := 5;
  return x * k; 
end;

function f4( x )
  local k;
  k := 5;
  return x * k; 
ffunction; 

function f4a( x )
  local k;
  k := 5;
  return x * k; 
end; 

f5 := function( x ) 
  local k;
  k := 5;
  return x * k; 
end; 

// Pascal style
function f6( x )
begin  
  var k;
  k := 5;
  return x * k; 
end;

// TI68k (ti89 tiv200) style
:f7( x )
:Func
:  Local k
:  5 → k
:  Return x * k
:EndFunc

// python style
// ... 


result of compilation

PHP Code:

nameFunction 
(x)-> 
{ local k; 
k:=5;  
return(x*k);  
} 


test
f1(3); f2(3); f3(3); f4(3); f5(3); f6(3); ClrIO [enter] returns 15, 15, 15, 15, 15, 15

test online
Different ways to define a function.

[compsystems]

Another example for IF-THEN-ELSE-END

PHP Code:

function AgeVote( )
begin 
    local Age; 
    assume( Age, integer );

    DispG; ClrIO; ClrGraph; 

    printf( "How old are you?" );
    input( Age );

    if Age ≥ 18 then
        printf(  "Go vote!" );
    else
        printf( "Sorry, not yet" );
    end_if

    return Done;

end:;

AgeVote( ) :=
{ 

    local Age; 
    assume( Age, integer );

    DispG; ClrIO; ClrGraph; 

    printf( "How old are you?" );
    input( Age );

    if (Age>=18) printf("Go vote!");   
    else printf("Sorry, not yet");  

    return Done;

}:;


AgeVote( ) :=
{ 
    local Age; 
    assume( Age, integer );

    DispG; ClrIO; ClrGraph; 

    printf( "How old are you?" );
    input( Age );

    if (Age >= 18) 
    {
        printf(  "Go vote!" );
    }
    else
    {
        printf( "Sorry, not yet" );
    }
    
    return Done;
}:;


function AgeVote1( )
begin 
    local Age; 
    assume( Age, integer );

    DispG; ClrIO; ClrGraph; 

    printf( "How old are you?" );
    input( Age );

    if (Age >= 18) 
        begin
            printf(  "Go vote!" );
        end  
    else
        begin
            printf( "Sorry, not yet" );
        end

    return Done;

end