Entwickler-Ecke :: Thema anzeigen - Würfelberechnung Problem

Gausi - Sa 04.03.06 11:56

Also ich sehe das Problem so: Man soll mindestens drei Materialien zur Auswahl haben, z.B. Eisen, Blei und Quecksilber (wobei ich mir grade nen Quecksilberwürfel schwer vorstellen kann, aber so siehts im Bild aus).
Diese Materialien sind unterschiedlich schwer. Angenommen, ein cm^3 Eisen wiegt ein Kilo, und der Würfel darf maximal 1000kg wiegen, dann ist das erlaubte Volumen des Würfels 1000cm^3.
Ein Würfel mit Volumen 1000 hat Kantenlänge 10, und mit der Kantenlänge kann man die Oberfläche berechnen.

Also z.B. so:

Delphi-Quelltext

1:
2:
3:
4:

// ins OnClick des EisenButtons: 
WuerfelVolumen := maxMasse/EisenDichte;
WuerfelKante := Power(WuerfelVolumen,1/3);
WuerfelFlaeche := WuerfelKante*WuerfelKante * 6;

Die Ergebnisse muss man dann noch mit FloatToStrF in die einzelnen Labels/ Edits schreiben, und fertig.

Wo man da jetzt unbedingt ein if then else einbauen muss, ist mir zur Zeit ncoh schleierhaft...

Gausi - Sa 04.03.06 12:16

Was der Quatsch mit der konkreten Masse soll, weiss ich auch nicht. Ich berechne halt, wie groß der Würfel sein darf, damit beim gewählten Material das Ding nicht zu schwer wird. Die konkrete Masse ist also dasselbe wie die maximale Masse, die der User angegeben hat. Power ist "hoch" in Delphi. Um von dem Volumen auf die Kantenlänge zu kommen, muss man die dritte Wurzel ziehen, oder "hoch ein Drittel" rechnen.

Programm mit einer Schleife erstellen? Keine Ahnung, was das nun wieder heißen soll. Eine Schleife ist in diesem Programm nicht nötig. Es sei denn, euer Lehrer möchte sowas haben:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Kantenlaenge := 0;
repeat
  inc(Kantenlaenge);
  Volumen := Kantenlaenge * Kantenlaenge * Kantenlaenge;
  konkreteMasse := Volumen * Dichte;
until konkreteMasse > maximaleMasse;
//letzte Kantenlänge war um eins zu groß
dec(Kantenlaenge);
Volumen := Kantenlaenge * Kantenlaenge * Kantenlaenge;
konkreteMasse := Volumen * Dichte;

Hier wird der Würfel schrittweise vergrößert, bis er zu schwer wird. Mit Schleife.

dog.88 - Sa 04.03.06 13:27

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Math;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);


  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  WuerfelVolumen, WuerfelKante, WuerfelFlaeche:double;
  maxMasse: single;
  const
  EisenDichte = 7.8;
  BleiDichte = 11.4;
  AluDichte = 2.7;








implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
maxMasse:= StrToFloat(Edit1.text);
WuerfelVolumen:= maxMasse/EisenDichte;
WuerfelKante:= Power(WuerfelVolumen,1/3);
WuerfelFlaeche:= WuerfelKante*WuerfelKante*6;
Label1.Caption := FloatToStrF(WuerfelKante,ffFixed,15,2);
Label2.Caption := FloatToStrF(WuerfelVolumen,ffFixed,15,2);
Label3.Caption := FloatToStrF(WuerfelFlaeche,ffFixed,15,2);
Panel4.Caption := 'Der Würfel ist aus Eisen';

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
maxMasse := StrToFloat(Edit1.text);
WuerfelVolumen:= maxMasse/BleiDichte;
WuerfelKante:= Power(WuerfelVolumen,1/3);
WuerfelFlaeche:= WuerfelKante*WuerfelKante * 6;
Label1.Caption := FloatToStrF(WuerfelKante,ffFixed,15,2);
Label2.Caption := FloatToStrF(WuerfelVolumen,ffFixed,15,2);
Label3.Caption := FloatToStrF(WuerfelFlaeche,ffFixed,15,2);
Panel4.Caption := 'Der Würfel ist aus Blei';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
maxMasse := StrToFloat(Edit1.text);
WuerfelVolumen:= maxMasse/AluDichte;
WuerfelKante:= Power(WuerfelVolumen,1/3);
WuerfelFlaeche:= WuerfelKante*WuerfelKante * 6;
Label1.Caption := FloatToStrF(WuerfelKante,ffFixed,15,2);
Label2.Caption := FloatToStrF(WuerfelVolumen,ffFixed,15,2);
Label3.Caption := FloatToStrF(WuerfelFlaeche,ffFixed,15,2);
Panel4.Caption := 'Der Würfel ist aus Aluminium';
end;

end.

das ist mit hilfe von gausi entstanden, vielen dank nochmal dafür.

Moderiert von AXMD: Delphi-Tags hinzugefügt

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!