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]