arithmetik.pas

In der arithmetik.pas definiere ich grundlegende Funktionen, um diese später immer wieder schnell nutzen zu können.

arithmetik.pas
unit arithmetik; interface function ggt(a, b : integer) : integer; function kgv(a,b : integer) : integer; function max(n,m : integer) : integer; function min(n,m : integer) : integer; function teilersuche(a,n : integer) : integer; implementation function ggt(a, b : integer) : integer; begin while (a <> b) do begin if (a < b) then b:=b-a else a:=a-b; end; ggt:=a; end; { ggt } function kgv(a,b : integer) : integer; begin kgv:=(a*b) div ggt(a,b); end; { kgv } function max(n,m : integer) : integer; begin if (n > m) then max:=n else max:=m; end; { max } function min(n,m : integer) : integer; begin if (n < m) then min:=n else min:=m; end; { min } function teilersuche(a,n : integer) : integer; var i : integer; begin i:=n; while (a mod i <> 0) do begin i:=i-1; end; teilersuche:=i; end; { teilersuche } end.

unit arithmetik; interface function ggt(a, b : integer) : integer; function kgv(a,b : integer) : integer; function max(n,m : integer) : integer; function min(n,m : integer) : integer; function teilersuche(a,n : integer) : integer; implementation function ggt(a, b : integer) : integer; begin while (a <> b) do begin if (a < b) then b:=b-a else a:=a-b; end; ggt:=a; end; { ggt } function kgv(a,b : integer) : integer; begin kgv:=(a*b) div ggt(a,b); end; { kgv } function max(n,m : integer) : integer; begin if (n > m) then max:=n else max:=m; end; { max } function min(n,m : integer) : integer; begin if (n < m) then min:=n else min:=m; end; { min } function teilersuche(a,n : integer) : integer; var i : integer; begin i:=n; while (a mod i <> 0) do begin i:=i-1; end; teilersuche:=i; end; { teilersuche } end.

Letzte Änderung: 26.04.2012: 17:24:03 von X. Rendtel

Dieses Werk bzw. Inhalt steht unter einer Creative Commons Namensnennung-Weitergabe unter gleichen Bedingungen 3.0 Unported Lizenz.
Beruht auf einem Inhalt unter www.rendtel.de.