Betrag eines Vektors

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Betrag eines Vektors

    Ein einfaches Programm um den Betrag eines Vektors auszurechnen.

    Ausschnitt

    Quellcode

    1. function TMainForm.ChkAndCutLastChar(Str2Chk: string): string;
    3. var StrLength : Byte;
    5. begin
    7. StrLength := Length(Str2Chk); //Länge bestimmen
    9. if StrLength > 0 then
    11. begin //String ist nicht leer
    13. if Str2Chk[StrLength] in ['0'..'9','.',','] then
    15. begin //letztes Zeichen ist eine Ziffer oder ein . oder ,
    19. end
    21. else
    23. begin //letztes Zeichen ist keine Ziffer ...
    25. Delete(Str2Chk,StrLength,1);//letztes Zeichen löschen
    27. end;//end_if-else
    29. end//end_if
    31. else
    33. begin //String ist leer
    35. end;//end_if-else
    37. end;
    Alles anzeigen


    Quellcode

    1. procedure TMainForm.btn_CalcClick(Sender: TObject);
    3. var X,Y,Z : real;
    5. begin
    7. //leere Felder mit Null füllen
    9. if edt_x.Text = '' then
    11. edt_x.Text := '0';
    13. if edt_y.Text = '' then
    15. edt_y.Text := '0';
    17. if edt_z.Text = '' then
    19. edt_z.Text := '0';
    23. //Text in Zahlen konvertieren
    25. try
    27. X := StrToFloat(edt_x.Text);
    29. Y := StrToFloat(edt_y.Text);
    31. Z := StrToFloat(edt_z.Text);
    33. lbl_Result.Caption := 'Der Betrag ist ' +
    35. FloatToStr(SQRT(X*X+Y*Y+Z*Z)) + '.'; //Betrag eines Vektors
    37. //Wurzel aus x² + y² + z²
    39. except
    41. //Fehlgeschlagen!!!
    43. MessageBox(Handle,'Bitte die Eingaben überprüfen.',
    45. 'Berechnung nicht möglich',
    47. mb_IconStop or mb_OK);
    49. end;
    51. end;
    Alles anzeigen
    Dateien