Teilermengen und Primzahlen

Aufgabe:

Code:

a:12 /* EINGABE EINER NATUERLICHEN ZAHL */;
T[a]:[];
for i:1 thru a do if mod(a,i)=0 then T[a]:append(T[a],[i]);
TM:setify(T[a]);
disp(TM,"ist die Teilermenge von",a);
if cardinality(TM)=2
then disp(a,"ist eine Primzahl")
else disp(a,"ist keine Primzahl");

Definitionen aus der Vorlesung als Grundlage für das Programm:

wxMaxima:

Vroomlab:

Programm-Aternative:

Zahl:17 /* das ist die gegebene Zahl */;;
Teiler:divisors(Zahl) /* das ist die Menge der Teiler */;
is(cardinality(Teiler)=2) /* eine Primzahl hat genau zwei Teiler */;