Primzahlen-Prüfer II Turbo Pascal
aus Paswiki Turbo Pascal, der freien Wissensdatenbank
Für Wikipedia...
Beschreibung
Dies ist ein in der Programmiersprache Turbo Pascal geschriebenes Programm, das mit Hilfe der so genannten Brute-Force-Methode prüft, ob es sich bei einer eingegebene Zahl um eine Primzahl handelt.
Programm
program primzahlen;
{$N+} {Laesst den Koprozessor mitrechnen,=> geht schneller}
uses crt,dos;
var treffer:longint;
zahl,n:longint;
s,teiler,teiler_n:string;
begin
writeln('Welche Zahl soll geprueft werden ?');
readln(zahl);
if odd (zahl) then
begin
for n:=3 to round(sqrt(zahl)) do
begin
if (zahl mod n =0) then begin
treffer:=1;break;
end;
end;
end
else treffer :=1;
if treffer >=1 then begin writeln(zahl,' ist keine Primezahl !!! ');
end
else write(zahl,' ist eine Primzahl !!!');
readln;
end.
--Gastarbeiter 12:39, 18. Mär 2006 (CET)
Kategorie:Primzahlen
