4. Anhang

4.1. Quellcode für TP_prog

Das Programm TP_prog erzeugt die Summenformel für arithmetische Zahlenfolgen p-ter Ordnung mit einen allgemeinem Glied a_n = n^p. (p = 1, 2, 3, 4, 5, 6, 7).

program partialsumme;
uses crt;
var a,b,p: longint;
function difffolge(p,r,s: integer): integer;
begin
 if r=0
  then difffolge:=hoch(s,p)
  else difffolge:=difffolge(p,r-1,s+1)-difffolge(p,r-1,s);
end;
function anzstellen(a: integer): integer;
begin
 if a<10
  then anzstellen:=1
  else anzstellen:=1+anzstellen(a div 10);
end;
begin
 clrscr;
 writeln('Dieses Programm erstellt die Summenformel von Partialsummen der Form');
 writeln('S = 1^p + 2^p + ... + n^p (p = 0, 1, 2, 3, 4, 5, 6, 7)');
 write('Für welches m soll die Summenformel gebildet werden? - ');
 readln(p);
 clrscr;
 writeln('S = 1^',p,' + 2^',p,' + ... + n^',p,' =');
 write(' ');
 for a:=0 to p-1 do write(difffolge(p,a,1),'|n| + ');
 writeln(difffolge(p,p,1),'|n|');
 write(' ');
 for a:=1 to p+1 do begin
  for b:=1 to anzstellen(difffolge(p,a-1,1)) do write(' ');
   write('|',a,'|');
 end;
end.

Inhalt
Schlusswort
Literaturverzeichnis