docs1

1) Sort(arrau moditifed in place)

program myprog(input, output);

type

  dataset = array[1..3] of integer; 

var

  mydata: dataset;

  i: integer;

procedure sortArray(var srcdata: dataset); 

var

  i, j: integer;

  temp: integer;

begin

  for i := 1 to 2 do  

    for j := 1 to 3 - i do

      if srcdata[j] > srcdata[j + 1] then

      begin

        temp := srcdata[j];

        srcdata[j] := srcdata[j + 1];

        srcdata[j + 1] := temp;

      end;

end;

begin

  mydata[1] := 49;

  mydata[2] := 8;

  mydata[3] := 45;

  sortArray(mydata);

  writeln('Sorted Array:');

  for i := 1 to 3 do

    write(mydata[i], ' ');

  writeln;

end.

Output:

Target OS: Linux for x86-64

Compiling main.pas

Linking a.out

41 lines compiled, 0.0 sec

Sorted Array:

8 45 49 

...Program finished with exit code 0

Press ENTER to exit console.

2) FindLargestEven (array -> real

program myprog(input, output);

type

  dataset = array[1..4] of real; 

var

  mydata: dataset;

  largestEven: real;

function FindLargestEven(srcdata: dataset): real; 

var

  index: integer;

  largestEven: real;

begin

  largestEven := -1; 

  for index := 1 to 4 do begin

    if (trunc(srcdata[index]) mod 2 = 0) then begin 

      if (srcdata[index] > largestEven) then

        largestEven := srcdata[index]; 

    end;

  end;

  FindLargestEven := largestEven; 

end;

begin

  mydata[1] := 2.5;

  mydata[2] := 7.0;

  mydata[3] := 6.0;

  mydata[4] := 5.8;

  largestEven := FindLargestEven(mydata);

  if largestEven = -1 then

    writeln('No even number.')

  else

    writeln('largest even number: ', largestEven, ' '); 

end.

Output: 

Copyright (c) 1993-2021 by Florian Klaempfl and others

Target OS: Linux for x86-64

Compiling main.pas

Linking a.out

44 lines compiled, 0.0 sec

largest even number:  6.0000000000000000E+000 

...Program finished with exit code 0

Press ENTER to exit console.

3) Distance (array -> real)

program myprog(input, output);

type

  dataset = array[1..2] of real;

var

  mydata: dataset;

  mydistance: real;

function Distanceformula(srcdata: dataset): real;

var

  distance: real;

begin

  distance := sqrt(sqr(srcdata[1]) + sqr(srcdata[2]));

  Distanceformula := distance;

end;

begin

  mydata[1] := 400.0;

  mydata[2] := 750.0;

  mydistance := Distanceformula(mydata);

  writeln('distance from start (0.0,0.0) to (', mydata[1], ',', mydata[2], ') is: ', mydistance, ' ');

end.

 

      

  Output:

Free Pascal Compiler version 3.2.2+dfsg-9ubuntu1 [2022/04/11] for x86_64

Copyright (c) 1993-2021 by Florian Klaempfl and others

Target OS: Linux for x86-64

Compiling main.pas

Linking a.out

29 lines compiled, 0.0 sec

distance from start (0.0,0.0) to ( 4.0000000000000000E+002, 7.5000000000000000E+002) is:  8.5000000000000000E+002 

...Program finished with exit code 0

Press ENTER to exit console.

4) Multiply (array num, var array)

program myprog(input, output);

type

  dataset = array[1..4] of integer;

var

  mydata: dataset;

  i: integer;

procedure Multiply(srcdata: array of integer; var ans: array of integer);

var

  i: integer;

begin

  for i := 1 to 4 do

    ans[i] := srcdata[i] * 70;

end;

begin

  mydata[1] := 2;

  mydata[2] := 78;

  mydata[3] := 22;

  mydata[4] := 45;

  Multiply(mydata, mydata);

  for i := 1 to 4 do

    writeln('mydata[', i, '] = ', mydata[i], ' ');

end.

Output:

Free Pascal Compiler version 3.2.2+dfsg-9ubuntu1 [2022/04/11] for x86_64

Copyright (c) 1993-2021 by Florian Klaempfl and others

Target OS: Linux for x86-64

Compiling main.pas

Linking a.out

33 lines compiled, 0.0 sec

mydata[1] = 2 

mydata[2] = 5460 

mydata[3] = 1540 

mydata[4] = 3150 

...Program finished with exit code 0

Press ENTER to exit console.

5) AddElements (array array, var array)

program myprog(input, output);

type

  dataset = array[1..3] of integer;

var

  array1, array2, resultArray: dataset;

  i: integer;

procedure AddElements(srcdata1, srcdata2: dataset; var result: dataset);

var

  i: integer;

begin

  for i := 1 to 3 do

    result[i] := srcdata1[i] + srcdata2[i];

end;

begin

  array1[1] := 50;

  array1[2] := 26;

  array1[3] := 24;

  array2[1] := 1022;

  array2[2] := 472;

  array2[3] := 334;

  AddElements(array1, array2, resultArray);

  for i := 1 to 3 do

    writeln('resultArray[', i, '] = ', resultArray[i]);

End.

Output:

Free Pascal Compiler version 3.2.2+dfsg-9ubuntu1 [2022/04/11] for x86_64

Copyright (c) 1993-2021 by Florian Klaempfl and others

Target OS: Linux for x86-64

Compiling main.pas

Linking a.out

37 lines compiled, 0.0 sec

resultArray[1] = 1072

resultArray[2] = 498

resultArray[3] = 358