[Turbo Pascal] größer als befehl?

[Erny]

größer als befehl in turbo pascal?

halli hallo hallöle

ich hab mal wieder ne frage und zwar, ich möchte in tp ein programm machen wo er unterscheiden soll ob in einem 3eck seite a größer oder kleiner als seite b ist und dann in verschiedenen verfahren weiterrechnet.
wisst ihr wie ich das machen kann?

das sollte so in der art aussehen.
wenn a >b then das und das
und wenn a <= b then das und das

wäre nett wenn mir da einer weiterhelfen könnte.
bin noch der absolute anfänger in sachen programmieren aber ich brauch das für die schule...

 

[Simon]

Hmm müsste das nicht eigentlich so aussehen :

procedure ...
var a,b :real ;
 begin
  if a>b then
   begin
    Hier die Rechnung
   end
 else 
  if a<=b then
   begin
    Hier die andere Rechnung
   end;

 end;

mfg Tweaki4k

 

[Erny]

cool danke für die hilfe, ich werds gleich mal probieren


edit:
nochne frage, wie kann in tp mit sinus und winkeln rechnen, also zb dem sinus eines winkels oder halt nur mit dem winkel rechner?
also zb ich bekomm irgendwo sinus alpha raus und möchte dann mit aber nur mit alpha weiterrechnen.
wie geht überhaupt der sinus befehl in tp?

 

[MATRIX_Morpheus]

Also für sinus und cosinus rechnung gibt es in tp die befehle "sin" und "cos".
z.b.: x:=Sin(90);
Wenn du aus einem bereits berechneten Sinus den Winkel wissen willst, brauchst du die Umkehrfunktion von Sinus (das wäre dann ArcSin oder Sin^-1).
Und dafür gibt es keine "vorprogrammierten" Funktionen.
Deshalb ist es eher ein mathematisches als ein programmiertechnisches Problem.
Aber ich versuche es trotzdem:


// Umkehrfunktion von Cosinus
FUNCTION ArcCos(x:real):real;
BEGIN
IF (x=0) THEN
ArcCos:=PI/2
ELSE
ArcCos:=ArcTan(SQRT(1-SQR(x))/x)
END;

// Umkehrfunktion von Sinus
FUNCTION ArcSin(x:real):real;
BEGIN
ArcSin:=ArcCos(SQRT(1-SQR(x)));
END;


So müsste es eigentlich klappen (ausser ich habe irgendeinen Sonderfall vergessen )

 

[Simon]

Der Sinus Befehl und TP heißt ganz einfach : sin
Für Cosinus dann : cos
Man muss nur aufpassen, weil TP immer im Bogenmaß und nicht im Gradmaß rechnet.
Das lässt sich einfach umgehen : sin(Pi*Winkel/180) ;

Beispiel zum Sinus von einem Winkel ausrechnen :

procedure...
var Winkel, SinusvonWink : real ;
 begin
  Winkel:=strtofloat(EditWinkel.text) ;
  SinusvonWink:=sin(Pi*Winkel/180) ;
  EditSinus.text:=floattostr(SinusvonWink) ;
 end ;

Mit der Variablen "Winkel" kann man beliebig weiterrechnen.

mfg Tweaki4k

 

[Erny]

danke für die hilfe

ich verzweifel trotzdem gleich, mein lehrer möchte das ich nen programm schreibe das unterschedeiden kann ob ein 3 eck 1 oder 2 lösungen hat.
also der kongruenzsatz Ssw.
als beispiel hab ich da einmal mit einer lösung : a=7.5 b?5 alpha=110°
und als 3 eck mit 2 lösungen a:3.3 b:5.2 und alpha = 35°
es gibt ja in dem 2ten eck 2 lösungen weil a kleiner ist als b.
so, das nun mit dem sinussatz zu lösen is ja easy, aber sowas zu proggn, ahh hilfe.........
na ich versuchs morgen mal weiter. vielen dank nochmal