und ich würde mir den Code so formatieren, ich bevorzuge den Style von Satty allerdings mit 4er Einrückung. Man möge die Übersichtlichkeit im Vergleich zu Muhkuh selber vergleichen
Macht sich sehr übersichtlich bei längeren Blöcken. Die Einrückung ist immer wunderbar zu sehen.
Delphi-Quellcode:
if k = kMax
then
A[k] := A[k-1] / A[k];
if a = 0
then begin
Result := 0
end else begin
if a > 0
then
Result := 1
else
Result := -1;
end;
if Sender = mnPrintGraphOben
then
h := ro
else
h := rm;
for k := 0
to kMax
do
A[k]:= 0;
for i := 1
to iMax
do begin
temp := A[i];
A[i] := B[i];
B[i] := temp
end;
for i := 2
to m
do begin
for k := 1
to i - 1
do
B[i] := B[i] - A[r(i,k)] * B[k];
B[i] := B[i] / Abs(A[r(i,i)])
end;
with Image1.Canvas
do begin
MoveTo(
DL, D0 - Round(sy * (F(xMin) - yMin)));
for i := 0
to 320
do begin
x := xMin + i * dx;
LineTo(
DL + 2 * i, D0 - Round(sy * (F(x) - yMin)))
end;
end;