Schleifen-Problem

[DeddyH]

Eine kleine Anmerkung noch: wenn Du den Durchmesser initial auf 300 setzt, ist das Programm auch für Außenstehende leichter zu verstehen.

Delphi-Quellcode:

  Durchmesser:=300;
{ unnötig
  Radius:=0;
  Seite:=0;
  Alpha:=0;
  Manteldurchmesser:=0;}

  repeat
      Radius:=Durchmesser/2;
      Seite:=sqrt(Hoehe*Hoehe+Radius*Radius);
      Alpha:=360*Radius/Seite;
      Manteldurchmesser:=2*Seite;

      writeln(' ',Durchmesser:5:2,' mm          ',Alpha:5:2,' grd      ',Manteldurchmesser:5:2,' mm');
      Durchmesser:=Durchmesser+10; //erst jetzt erhöhen

  until Durchmesser > 500;//nun muss natürlich auf größer abgefragt werden

[edit] Noch eine Anmerkung: Die Zuweisungen vor der Schleife (bis auf Durchmesser) kannst Du Dir sparen, da diese ja in der Schleife bei jedem Durchlauf gesetzt werden. [/edit]