BNF / Algorithmen / Schleifen
BNF / Algorithmen / Schleifen
BNF / Algorithmen / Schleifen
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
PROGRAM fakultaet_berechnen {berechnet n! für einzugebendes n};VARfakultaet_von : 1..100;fakultaet : 1..maxint;neuBEGINwriteln('von welcher Zahl n moechten Sie n! berechnen?');readln(fakultaet_von);fakultaet := 1;(Rotkäppchen kennen Sie ja)WHILE fakultaet_von > 1 DOBEGINfakultaet := fakultaet * fakultaet_von;fakultaet_von := fakultaet_von - 1;END;writeln ('n! = ', fakultaet:1);readln;END {fakultaet_berechnen}.Prof. Dr.-Ing. Markus Rabe | Maschinenbauinformatik 1, WS 2013/14, VL 0333