AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Vorzeichen eines Parameters übergenben

Ein Thema von PomBär · begonnen am 26. Nov 2003 · letzter Beitrag vom 26. Nov 2003
Antwort Antwort
PomBär

Registriert seit: 28. Sep 2003
Ort: MV
57 Beiträge
 
Delphi 6 Professional
 
#1

Vorzeichen eines Parameters übergenben

  Alt 26. Nov 2003, 12:34
hi leute ich hab von meinem lehrer ne schöne aufgabe bekommen und sehe da irgendwie gar nicht durch könnt ihr mir helfen?
Aufgabe: ändern sie die beispiele:
die funktion quadrat soll dem ergebnis das vorzeichen des parameters mitgeben

Delphi-Quellcode:
function Quadrat(x:double):double;
begin
  result := x*x;
  //oder: Quadrat :=x*X;
end;
...

begin //Hauptprogramm
...
if Quadrat(k) kleiner 10 then //erlaubt,
   //wenn k Fuktion, Konstante oder
   //Variable eines Gleitkomma-Typs
...
Quadrat('Hi'), //Fehler weil string
               //übergeben
ich hoffe irgendjemand kann mir helfen.
danke im vorraus


[edit=Admin]Code in Delphi-Tags eingebettet. Künftig bitte selber machen. Mfg, Daniel[/edit]
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#2

Re: Vorzeichen eines Parameters übergenben

  Alt 26. Nov 2003, 12:49
Ist doch nicht so schwer.

Das Ergebnis der Funktion soll das Vorzeichen von X enthalten.
Da X * X immer positiv ist, braucht man, wenn X negativ ist, doch nur das Vorzeichen des Ergebnisses ändern.

Code:
[b]Function[/b] Quadrat(X: Double): Double;
  [b]Begin[/b]
    [b]If[/b] [color=darkred]X >= 0[/color] [b]Then[/b]
      Result := X * X     { X ist positiv / X >= 0 }
    [b]Else[/b]
      Result := [color=red]-([/color]X * X[color=red])[/color]; { X ist negativ / X < 0 }
  [b]End[/b];

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:23 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz