Seminar/Franzi

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
= Testüberschrift =
Testtext auf Testseite in einem Testwiki zum Testen

Eine Datei wurde hochgeladen:
<document>J schuster_LP_GY_Informatik.pdf</document>

<code id="4f2007395fd58">
var e: integer;
var ausgabe: double;

function fak(e: integer): double;
begin
  if e = 0 then result := 1
  else
  begin
    result := e * fak(e-1);
  end;
end;
</code>

<run id="4f2007395fdc7">
  writeln('Programm zur Berechnung der n-ten Fakultät');
  writeln('------------------------------------------');
  writeln('');
  write('Die Fakultaet welcher Zahl ist gesucht? '); readln(e);
  writeln('');
  ausgabe := fak(e);
  writeln(Inttostr(e)+'! = '+Floattostr(ausgabe));
</run>