Das Gleichungsproblem (Nach Unbekannt auflösen)

Porter2005 · Hält's aus hier Beiträge: 1

Hi,

Das Problem:

Gegeben ist eine Gleichung mit 3 oder 4 Variabeln. Zum Beispiel: v=s/t. Nun, sollen davon 2 belibige Variabeln eingegeben werden. Die Dritte soll erechnet werden.
Ich suche eine möglichst Elegante Lösung.

Meine Ansätze:
Ich habe versucht das Problem über If zu lösen.
Also z.B:

markieren

Delphi-Quelltext

1:
2:
3:

If (v = 0) and (s != 0) and (t != 0) then v := s / t; 
If (v != 0) and (s = 0) and (t != 0) then s := v * t; 
If (v != ) and (s != 0) and (t = 0) then t := s / v;

Diese Lösung sieht mir aber zimlich dirty aus. Ähnlich wie die aus QBasic und C Tagen. Das Problem ist ja auch eher Allgemeiner Natur.

Eine Andere Möglichkeit wäre z.B eine Funktion FormelUmstellen zu schreiben.

BenBE · Verfasst: So 26.02.06 15:27

Wenn Du nicht gerade einen Formel-Parser coden willst, wirst Du mit dieser Lösung leben müssen.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme