Moduły » Math

SameValue

  • 2010-10-31 18:27
  • 1 komentarz
  • 641 odsłon
  • Oceń ten tekst jako pierwszy
SameValue
Moduł: Math

function SameValue(const A, B: Extended; Epsilon: Extended = 0): Boolean; overload;

Funkcja SameValue porównuje 2 wartości (A, B), o maksymalnej różnicy podanej w parametrze Epsilon oraz zwraca wartość typu boolean (true jeśli A >= (B-Epsilon) a fakse jeżeli A < (B-Epsilon))

Na przykład:

 if SameValue(5, 10, 2) Then ShowMessage('Ok !');

Nie wyświetli wiadomości, ponieważ:
5 < (10 - 2)
Teraz:
 if SameValue(5, 10, 5) Then ShowMessage('Ok !');

Wyświetli wiadomość, ponieważ:
5 = (10 - 5)

A oto przykład programu pytającego się o 3 liczby (A, B, Epsilon)

{$APPTYPE CONSOLE}
Program SameValueExample;
Uses Math;
Var
    A, B, R: Integer;
Begin
 WriteLn('SameValue');
 WriteLn;
 Write('Podaj wartosc A -->');
 ReadLn(A);
 WriteLn;
 Write('Podaj wartosc B -->');
 ReadLn(B);
 WriteLn;
 Write('Podaj maksymalna roznice (epsilon) -->');
 ReadLn(R);
 WriteLn;
 WriteLn;
 if Not SameValue(A, B, R) Then
  WriteLn('Cyfry wedlug wpisanej roznicy sie roznia !') Else
  WriteLn('Cyfry wedlug wpisanej roznicy sa podobne !');
 ReadLn;
End.


Skompilowanie kodu pokaże taką konsolę (przyjmijmy że A = 30 ; B = 50 ; M.roznica = 20).

SameValue
 
Podaj wartosc A --> 30
Podaj wartosc B --> 50
Podaj maksymalna roznice (epsilon) --> 20
 
Cyfry werdlug wpisanej roznicy sa podobne !

1 komentarz

Adam Boduch 2009-09-23 10:24

To nie sa "typy funkcji". To sa funkcje przeciazone/przeladowane.
Dodatkowo: http://4p[...]/Pomoc/Zasady_redagowania_artykułów#id-Zasady-redagowania---Delphi