Schleifen-Problem

**coly546**

Guten Tag,
ich habe ein Problem mit folgender Aufgabe:

Zitat:

Schreiben Sie ein Programm, jenes das Gehäuse eines kegelförmigen Körpers berechnen kann.
Der User muss dazu nur die Höhe des kegelförmigen Körpers eingeben. Lassen Sie eine Liste
mit folgenden Bestandteilen ausgeben:
den Durchmesser von 300-500mm in 10er-Schritten
den dazu gehörigen Winkel des Mantels in Grad
Manteldurchmesser in mm

Tipp:

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

Das habe ich bis jetzt programmiert und komme leider nicht weiter:

zusammenfalten · markieren

Delphi-Quellcode:

			program Kegel;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  Durchmesser, Radius, Seite, Alpha, Manteldurchmesser, Hoehe:real;

begin

  writeln;

  writeln;

  writeln('  Programm zum Berechnen des Materialzuschnittes fuer Kegel-Koerper ');

  writeln('  ******************************************************************');

  writeln;

  writeln;

  writeln('       Geben Sie die Hoehe des Kegels in mm ein: ');

  read(Hoehe);

  writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;

  writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;

  writeln(' Durchmesser      Winkel des Mantels      Manteldurchmesser');

  writeln(' __________________________________________________________');

  Durchmesser:=290;

  Radius:=0;

  Seite:=0;

  Alpha:=0;

  Manteldurchmesser:=0;

  repeat

      Durchmesser:=Durchmesser+10;

      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');

      readln;  //dieses 'readln' muss weg!!!

  until Durchmesser=500;

  readln;  //dieses 'readln' hinzugefügt werden!!!

  readln;

end.

Für die Aufgabe dürfen wir allerdings nur Repeat-Until-Schleifen, case-of und if-then-else-Abfragen verwenden. Ach so, dabei handelt es sich um eine Konsolen-Anwendung.

Es wäre toll, wenn ihr mir helfen könntet.

mfG coly546

Schleifen-Problem

Schleifen-Problem

Forumregeln