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:
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