Hallo ihr lieben Programmierfreunde. Also ich habe vor 2 Monaten angefangen mit mich mit Delphi (spez. Delphi 2005) zu beschäftigen. Bin grade dabei mir einen Taschenrechner zusammenzubasteln. Die Grundfunkitonen wie Addition, Subtraktion, Multiplikation und Division kann er schon. Nun hänge ich allerdings bei Sinus, Cosinus und Tangens fest. Also der Pc soll wenn ich bsw. auf den Button 'Sinus' klicke, und davor eine Zahl im Edit Fenster eingegeben habe, den Sinus davon ausgeben.
Könnt ihr mir vielleicht einen Befehl dafür geben? Habe wirklich schon viel ausprobiert, aber es hat keinen Sinn
Liebe Grüße, die Mausi

Hi,

Cos() und Sin() heißen die Funktionen. Reicht das?

Danke, aber eigentlich reicht das nicht, ich weiss nicht in welchem Zusammenhang ich das eingeben muss. Bin halt noch Anfängerin:)

Wie hast du denn bisher z.B. das Addieren gemacht? So ähnlich geht das dann auch mit Sinus. Zeig mal den Quellcode, den du bisher hast.

Also für die Addition hab ich folgendes hingeschrieben:



Moderiert von Kha: Delphi-Tags hinzugefügt

Zitat:

summe := zahl1-zahl2;

Das ist aber nicht die Summe

Die neuen Funktionen gehen so ähnlich:

tach,
um z.B. den Kosinus zu berechnen kannst du die Funktion "Cos()" benutzen.
Wenn du darauf F1 drückst bekommst du weitere Info´s zur Benutzung.
z.B.:
- die Unit math muss eingebunden sein
- Gibt einen Float Wert zürück
- Parameter
- etc
Was jedoch etwas verwirrend ist, sind die Funktionen wie RadToDeg(). Delphi hat intern irgendwelche anderen Werte.
(da musst du einfach mal rumtesten, mach ich da auch immer )

Ansonsten empfehle ich ein paar Tutorials auf dsdt.info für den Anfang.

Edit: *schnell verbuddel, sowas passiert wenn man kein Delphi zur Hand hat*

Nein! Ich schreib es heute zum zweiten Mal: Sin() und Cos() sind beide in der System definiert!

Und zum Thema RadToDeg: Delphi arbeitet mit dem Bogenmaß (Rad wie Radians). Wir wollen aber eventuell ein Ergebnis im Gradmaß (Deg wie Degrees). Delphi erwartet als Argument einen Wert im Bogenmaß, wenn der User aber Gradmaß eingibt, muss es also heißen:



Übrigens: Tan() ist in der Math definiert. Zur Not kann man den aber auch mit sin / cos berechnen.

edit: de.wikipedia.org/wiki/Bogenma%C3%9F
edit2: Man braucht DegToRad() eigentlich nichtmal. Man könnte auch schreiben:

hab das jetzt soweit, aber es funktioniert nicht. könnt ihr mir sagen wo der fehler liegt?

Moderiert von Kha: Delphi-Tags hinzugefügt

Zitat:

markieren Delphi-Quelltext     1: sinus :=sin(sin(a / 180 * Pi));

schau doch mal genau, was du hier machst.
Du bestimmst den Sinus von Sinus...
Doppelt gemoppelt

delphimaus hat folgendes geschrieben :

procedure TForm1.Button16Click(Sender: TObject); var a,sinus:integer; begin a:=strtoint(edit1.Text); sinus :=sin(sin(a / 180 * Pi)); label1.Caption:=inttostr(sinus);

Ein Sinus liegt zwischen -1 und 1. Deswegen hat Sin() auch einen Rückgabewert vom Typ Extended. Du weist das Ergebnis aber einer Integer-Variable zu. Das sollte Delphi nicht mal kompilieren, sondern eine Fehlermeldung bringen (Inkompatible Typen...)

Den doppelten Aufruf von Sin() hat ja Horschdware schon erwähnt.

Doch, das compiliert Delphi. Nehmen wir mal an, a sei 0, dann wäre sin(a) auch 0, und damit wäre es nicht inkompatibel.

Jakob_Ullmann hat folgendes geschrieben :

Doch, das compiliert Delphi. Nehmen wir mal an, a sei 0,

Das kann Delphi aber schlecht annehmen beim Kompilieren.

Und deshalb kompiliert das nicht erfolgreich. Sin gibt nun einmal keinen Integerwert zurück.

Hmm, ich dachte, der hätte das schonmal so compiliert.

delphimaus hat folgendes geschrieben :

Also für die Addition hab ich folgendes hingeschrieben: markieren Delphi-Quelltext     1: 2: 3: 4: 5: 6: 7: 8: procedure TForm1.Button2Click(Sender: TObject); var zahl1, zahl2, summe : real; begin   zahl1 := StrTofloat(edit1.text);   zahl2 := StrTofloat(edit2.text);   summe := zahl1-zahl2;   label1.caption := floattostrF(summe,ffFixed,8,3); end; Moderiert von Kha: Delphi-Tags hinzugefügt

Sorry , aber die Summe gibt es bei der Addition und nicht der Subtraktion.

Achja und die Funktionen gehen glaube ich so:

Beides wurde bereits geklärt.

dumme frage: was ist daran immernoch falsch?
ich blick einfach nicht durch!

function sin(a:extended):extended;
begin
end;

procedure TForm1.Button16Click(Sender: TObject);
var a,sinus:integer;
begin
a:=strtoint(edit1.Text);
sinus :=sin(a / 180 * Pi);
label1.Caption:=inttostr(sinus);
end;

Wofür erstellst du denn eine eigene leere Funktion sin?

Hast du die Unit Math nicht oben in die uses Liste eingetragen, so dass die richtige Funktion Sin nicht gefunden wurde?

Und außerdem: Statt Integer Real oder Extended, und statt StrToInt und IntToStr FloatToInt und FloatToStr. Schließlich geben die trigonometrischen Funktionen in der Regel keine Ganzzahlen zurück.
Lies dir bitte mal ein Grundlagentutorial durch, sonst wird das nix...

danke, es funktioniert, auch bei cosinus und tangens. wie toll.