Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Erstellung einer Schleife mit drei Überprüfungen

   
    by Delphi.Narium, 24. Mai 2021
  {edit]
  Diese Aussage ist so falsch, da hab' ich mich ganz gewaltig geirrt :-(
  Es ist ja noch viel schlimmer:
  
  Wenn man Primzahl am Anfang der For-Schleife mit 0 belegt, wird keine Primzahl mehr gefunden.
  
  Die Repeat-Schleife wird beendet, wenn uebrig = 0. Teiler hat dann "irgendeinen" Wert. Ist dieser zufällig = zahl, so wird Primzahl = zahl und bleibt solange unverändert, bis "irgendwann"...
• Forum: Object-Pascal / Delphi-Language

  AW: Erstellung einer Schleife mit drei Überprüfungen

   
    by Delphi.Narium, 24. Mai 2021
  Irgendwie konnte ich es nicht lassen:
  
  Da es ja vorwiegend um die korrekte Nutzung von Schleifen gehen soll und die Verwendung einer For-, eine Repeat-Until und einer While-Schleife gefordert ist, dachte ich mir. "Die Fibonacci-Folge kann man doch auch per Schleife berechnen (statt durch 'hötere Mattetik'." ;-)
  
  Dabei rausgekommen ist dann folgendes:
  program ueb04;
  
  {$APPTYPE CONSOLE}...
• Forum: Object-Pascal / Delphi-Language

  AW: Erstellung einer Schleife mit drei Überprüfungen

   
    by Delphi.Narium, 23. Mai 2021
  Dashier führt zu einer Endlosschleife, wenn zahl = Primzahl.
  // Überprüfung ob Primzahlzwilling
  if zahl >= 1 then
  begin
  while zahl = Primzahl do
  twinprim := (zahl + 2 or zahl - 2 = Primzahl);
  end;
  
  In der Schleife werden weder Zahl noch Primzahl verändert, so dass hier nie ein Schleifenabbruch geschehen wird.