Primzahlen-Programm

[frankyboy1974]

hallo,

Delphi-Quellcode:

zahl:=Strtoint(Edit1.Text);
l:=trunc(sqrt(zahl));
isPrim:=true;//boolean
for i:=2 to l do begin
  erg:=zahl mod i;
  if erg=0
  then begin
    Label2.Caption:='Das ist keine Primzahl';
    isPrim:=false;
    break;
  end;
end;
if isPrim then Label2.Caption:='Das ist eine Primzahl';

mfg

[p80286]

Das sollte die richtigen Ergebnisse liefern:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i : integer;

function IstPrimzahl(zahl:integer):boolean;
var
  i : integer;
  max : integer;
begin
  result:=true;
  max:=trunc(sqrt(zahl));
  for i:=2 to max do
    if zahl mod i = 0 then result:=false;
end;


begin
  try
    { TODO -oUser -cConsole Main : Code hier einfügen }
    for i:=1 to 128 do begin
      if IstPrimzahl(i) then  writeln(inttostr(i)+' ist eine Primzahl')
      else writeln(inttostr(i)+' ist keine Primzahl');
    end;
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Gruß
K-H

[BlackPegasus]

Danke an alle!!!
Die meisten Antworten sind schon zu fortgeschritten für mich

aber das hier, scheint mir am unkompliziertesten.
nur eine Frage, könnt ihr mir die Funktion

Code:

isPrim:=true;//boolean

in diesem Kontext erklären?
Ich versteh irgendwie nicht was es mir genau da bringt
Danke nochmal

Zitat von frankyboy1974:

hallo,

Delphi-Quellcode:

zahl:=Strtoint(Edit1.Text);
l:=trunc(sqrt(zahl));
isPrim:=true;//boolean
for i:=2 to l do begin
  erg:=zahl mod i;
  if erg=0
  then begin
    Label2.Caption:='Das ist keine Primzahl';
    isPrim:=false;
    break;
  end;
end;
if isPrim then Label2.Caption:='Das ist eine Primzahl';

mfg

[Mathematiker]

Hallo,

Zitat von BlackPegasus:

nur eine Frage, könnt ihr mir die Funktion

Code:

isPrim:=true;//boolean

in diesem Kontext erklären?

In der Variablen isPrim wird gespeichert, ob die zu untersuchende Zahl einen echten Primteiler hat.
Findest du einen Teiler, so wird isPrime auf false gesetzt.
Im abschließenden Test wird nur dann "Das ist eine Primzahl" ausgegeben, wenn isPrime nicht(!) falsch ist. Damit dies garantiert wird, muss vor der Schleife isPrime auf true gesetzt werden.

Beste Grüße
Mathematiker

[frankyboy1974]

hallo,

isPrim ist in diesem Zusammenhang keine Funktion sondern eine Variabel und zwar vom Typ 'boolean'. Da in deinem Quellcode auch kein Var Bereich angegeben war, bin ich davon ausgegangen, dass die Variablen global definiert sind.

Am Anfang wird die Variable isPrim auf true gesetzt, sofen du einen Teiler findest setzt du den Wert auf false. Sofern am Ende die Variable immer noch auf true steht, hast du also keinen Teiler gefunden und somit ist es eine Primzahl.


mfg

[BlackPegasus]

Ok, vielen Dank!

[Perlsau]

Zitat von BlackPegasus:

Ok, vielen Dank!

Jetzt haben wir dich voll erschlagen, nicht wahr?

[BlackPegasus]

Haha^^
Ja mit deiner Antwort schon bissle^^
Hab aber das nötigste denk ich mal verstanden^^
und die ausnahmen mit zahlen kleiner als 2, werde ich noch hinzufügen

[Puke]

Man kann sichs auch ganz einfach machen und das Problem im Sinne von Eratosthenes UND Perlsau lösen:

Man geht nicht strikt Brute-Force durch, sondern prüft die neue Prüfzahl, durch die bisher gefunden Primzahlen.
Eine einfache Lösung, die bis ins Unendliche funktioniert und auch gut Rechenzeit spart (allerdings nicht ganz so viel wie Eratosthenes)

Naja, dann viel Spaß
Puke