Teilermengen und Primzahlen

Aufgabe:

Man bestimme die Teilermenge einer natürlichen Zahl und entscheide, ob sie eine Primzahl ist.

 

Die Vorlesung von Prof. Dr. Christian Spannagel von der PH Heidelberg auf Youtube http://www.youtube.com/watch?v=ITLjfRiAc10 hat mich zum folgenden Maxima-Programm angeregt.


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:

Teiler1

primzahl

wxMaxima:

teilprimwx.PNG

Vroomlab:

teilerprim.PNG

Maxima Online:

http://maxima-online.org/?inc=r-139854853
http://maxima-online.org/?inc=r798024800

Sicherung als PDF:

Teilermengen und Primzahlen

Größter gemeinsamer Teiler:

http://maxima-online.org/?inc=r-692232855

Euklidischer Algorithmus:

http://maxima-online.org/?inc=r1619630560

2 Comments

Kommentare sind geschlossen.