1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

program skalar;


function Skal_Prod(n:Integer; x:array of Real; y:array of Real):Real;
 var
        i: Integer;

 begin
        i:=1;
        Skal_Prod:=0.0;

        repeat
         Skal_Prod:=Skal_Prod + (x[i]*y[i]);
         i:=i+1;
        until i > n;
 end;

begin
 // ab hier nun das Hauptprogramm
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function Skal_Prod(n:Integer; x:array of Real; y:array of Real):Real;
var
    i: Integer;
begin
    i:=1;
    Result:=0.0;
    repeat
     Result:=Result + (x[i]*y[i]);
     i:=i+1;
    until i > n;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

program skalar;
var
        i: Integer;
        n: Integer;
        v,w: array of Real;


{die eigentliche Funktion}
function Skal_Prod(n:Integer; x:array of Real; y:array of Real):Real;
 var
        i: Integer;
        result: Real;

 begin
        i:=1;
        result:=0.0;

        repeat
         result:=result + (x[i]*y[i]);
         i:=i+1;
        until i > n;
        return result;
 end;

{ eigentliches Hauptprogramm }
begin
 writeln('Das Skalarprodukt:');
// s:=Skal_Prod(......)
end.					

1:
2:
3:
4:
5:
6:

TYPE
    pRealList = ^tRealList;
    tRealList = PACKED RECORD
      Value : Real;
      Next : pRealList;
    END; // tRealList					

1:
2:

VAR
    v, w : pRealList;					

1:
2:

  v := NIL;
  w := NIL;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:

  procedure Appent2RealList(Value : Real; aList : pRealList);
    VAR
      Runner, NewEle : pRealList;
  BEGIN
    NEW(NewEle);
    NewEle^.Value := Value;
    NewEle.Next := NIL;
    Runner := aList;
    IF (Runner = NIL) THEN // Sonderfall Liste ist leer
      aList := NewEle
    ELSE BEGIN // Eintrag anhängen
      WHILE (Runner^.Next <> NIL) DO
        Runner := Runner^.Next;
      Runner^.Next := NewEle;
    END; // Eintrag anhängen
  END; // Appent To RealList

  function RealListLength(aList : pRealList) : LongInt;
    VAR
      Runner : pRealList;
  BEGIN
    Result := 0;
    Runner := aList;
    WHILE (Runner <> NIL) DO BEGIN
      INC(Result);
      Runner := Runner^.Next;
    END;
  END; // RealListLength

  function GetRealValue(aIndex : LongInt; aList : pRealList) : Real;
    VAR
      Runner : pRealList;
      i : LongInt;
  BEGIN
    Result := 0;
    IF (aIndex < RealListLength(aList)) THEN BEGIN // Legitimer Index
      Runner := aList;
      FOR i := 1 TO aIndex DO
        Runner := Runner^.Next;
      Result := Runner^.Value;
    END; // LEgitimer Index
  END; // Get Real Value

  procedure RemoveRealValue(aIndex : LongInt; aList : pRealList);
    VAR
      Runner, tmp : pRealList;
      i : LongInt;
  BEGIN
    IF (aIndex < RealListLength(aList)) THEN BEGIN // Legitimer Index
      Runner := aList;
      IF (aIndex = 1) THEN BEGIN // Sonderfall das erste Element löschen
        tmp := Runner;
        aList := aList^.Next;
      END // Sonderfall das erste Element löschen
      ELSE BEGIN // anderes Element löschen
        FOR i := 1 TO aIndex - 1 DO
          Runner := Runner^.Next;
        tmp := Runner^.Next;
        Runner^.Next := Runner^.Next^.Next;
      END; // Belibiges Element außer das erste löschen
      Dispose(tmp);
    END; // Legitimer Index
  END; // Remove Value

  procedure ClearRealList(aList : pRealList);
    VAR
      tmp : pRealList;
  BEGIN
    WHILE (aList <> NIL) DO BEGIN
      tmp := aList;
      aList := aList.Next;
      Dispose(tmp);
    END; // Mit allen Einträgen
  END; // ClearRealList