AhTheseArrays v1.3, Pascal

Language: Layout:

// this code is public domain

program AhTheseArrays;

function theF( theX: real ): real ;
(* y = cos( abs( 2*x ) ) / 1.2 - cos( 3*x - 2 ) + 6.15 *)

var (* local variables *)
    result: real;

begin
    result := cos( abs( 2 * theX ) );
    result := result / 1.2;
    result := result - cos( 3 * theX - 2 );
    result := result + 6.15;

theF := result; (* return result *)
end;

const
    sizeOfMyArray = 7;

type
    myArray = array [ 1..sizeOfMyArray ] of real ;

procedure printArray( arrgh: myArray ) ;
var
    position: integer;
begin
    for position := 1 to length( arrgh ) do
    begin
        write( arrgh[ position ] );
        write( ' @', position );
        writeln( );
    end;
end;

(* procedure main *)

var
    theArray: myArray;
    index: integer;

begin
    writeln( 'AhTheseArrays v1.3' );
    writeln( 'Hola' );
    for index := 1 to length( theArray ) do
    (* fill array with values *)
    begin
      theArray[ index ] := theF( index );
    end;
    printArray( theArray );
    writeln( 'Bye' );
end.

Show compiler warnings [ + ] Show input
Compilation time: 0.12 sec, absolute running time: 0.13 sec, cpu time: 0 sec, memory peak: 3 Mb, absolute service time: 0,35 sec