zum einen sorry für doppelpost aber es stellt sich erneut ein kleines problem^^
mag sein das ich schon ne bissle blind bin aber ich finde den fehler net
hab das ganze mal in ein mini prog gepackt aber das liefert mir bei einer strecke von düsseldorf nach berlin eine die distanz 140km
was nicht sein kann
hier mal so
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var lange1,lange2,breit1,breit2,strecke :extended;
begin
lange1 := Strtofloat(edit1.Text);
lange2 := Strtofloat(edit3.Text);
breit1 := Strtofloat(edit2.Text);
breit2 := Strtofloat(edit4.Text);
strecke := arccos((sin(breit1)*sin(breit2))+(cos(breit1)*cos(breit2)*cos(lange2-lange1)))/360*40000 ;
edit5.Text := floattostr(strecke);
end;
ed:mit dem taschenrechner funzt das 1a
