Also ich soll in Delphi ein Programm schreiben wo ich die fehlende Werte vom Kreisausschnitt berechnen soll..
Ich schreibe mal die Aufgabe rein vllt ist es dann verständlicher...
Schreiben Sie ein Programm, welches aus zwei beliebigen Werten die anderen Werte ermittelt und anzeigt. Die Eingabe des Benutzers müssen auf Fehler überprüft werden und wenn nötig mit einer Meldung quittiert werden. Dabei soll es dem Benutzer überlassen bleiben, welche Werte er eingeben will und welche Werte er berechnet haben will.
Das Problem ist das ich mich in Delphi garnicht auskenne... Ich hofe ihr könnt ihr helfen.. Iwi hat es auch keine geschafft das zu programmieren.. (Also die die ich kenne) Ich habe auch schon etwas geamcht aber iwi sind da sehr viele Fehler..
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:
| procedure TForm1.Button1Click(Sender: TObject);
type
TWert =
record
IstBelegt: Boolean;
Wert: Extended;
end;
var Radius, Bogen, Sekante, Flaeche, Winkel: TWert;
begin
if (RadiusSollVerwendetWerden.Checked) then
begin
Radius.IstBelegt := True;
Radius.Wert := StrToFloat(RadiusEdit1.Text);
end
if (BogenSollVerwendetWerden.Checked) then
begin
Bogen.IstBelegt := True;
Bogen.Wert := StrToFloat(BogenEdit2.Text);
end
if (SekanteSollVerwendetWerden.Checked) then
begin
Sekante.IstBelegt := True;
Sekante.Wert := StrToFloat(SekanteEdit3.Text);
end
if (WinkelSollVerwendetWerden.Checked) then
begin
Winkel.IstBelegt := True;
Winkel.Wert := StrToFloat(WinkelEdit4.Text);
end
if (FlaecheSollVerwendetWerden.Checked) then
begin
Flaeche.IstBelegt := True;
Flaeche.Wert := StrToFloat(FlaecheEdit5.Text);
end
if (Radius.IstBelegt AND Winkel.IstBelegt) then
begin
end
else
begin
if (Radius.IstBelegt AND flaeche.IstBelegt) then
begin
end
else
begin
if (Radius.IstBelegt AND bogen.IstBelegt) then
begin
end
else
end;
end;
end. |
Moderiert von 
Kha: Delphi-Tags hinzugefügt
in der Entwickler-Ecke, 
vergessen hast. Lediglich vor einem