Matematik i Delphi 2

I denne artikel vil jeg fortælle om lidt mere matematik i Delphi (sjovt nok). Vi vil bla. komme ind på Sinous, Cosinous, Tanges og andre. Jeg vil også vise et par begreber til hvordan man kan opsætte forskellige former og udregninger til forskellige beregninger. Jeg vil uddybe brugen af variabler (da der i forrige artikel var nogen som ikke helt forstod det) og samtidig konvertering af tal og resultater til fx. string. Lad os ligge ud med variabler.

I Delphi er der mange forskellige former for variabler-typer. Til heltal bruges typisk "Integer" og til decimal-tal bruges typisk "Float" eller "Double". En variabel kan defineres sådan :

ResultInt : Integer;
Result : Float;

PÅ fx. formens OnCreate form kan vi så lagre nogle tal i disse to variabler. Vi sætter bare dem begge til 0.

ResultInt := 0;
Result := 0;

Nu for at sikre at der er lagret værdien 0 i begge variabler, vil vi få en besked til at poppe frem. For at konvertere tal til string (tekst) og omvendt bruger vi nogle indbygget funktioner i Delphi. Det kan gøres sådan :

ShowMessage('Værdien i variablen ResultInt er : ' IntToStr(ResultInt));

På samme måde bruges FloatToStr til at konvertere alle former for decimal-tal. Men lad os så komme igang med det nye indhold!

Jeg vil lige kort forklare og vise to små til tider nyttige funktioner. Hvordan man danner et tilfældigt tal og hvordan man afrunder tal. Herunder vil jeg vise hvordan vi kan danne et tilfældigt tal mellem 0 og 100 :

Randomize;
Result := Random(100);

Hvis du har et pænt voldeligt komma-tal kan det på ingen tid afrundes til noget mere overskueligt. Herunder viser jeg hvordan vi kan afrunde :

Round(67.8378493827002348032);

Man kan checke værdier på mange måder. Her vil jeg lige kort vise hvordan man checker om et tal henholdsvis er lige med, større end, mindre end eller ikke lige med! Man bruger de berømte "næb". Herunder vises et eksempel til hvordan man checker hvordan variablen Result's indhold er i forhold til 1024.

if (Result = 1024) then ShowMessage('Tallet er lige med 1024.');
if (Result > 1024) then ShowMessage('Tallet er over 1024.');
if (Result < 1024) then ShowMessage('Tallet er under 1024.');
if Result <> 1024) then ShowMessage('Taller er ikke 1024.');

Man kan også checke om tallet er 1024 eller over, sådan:

if (Result >= 1024) then ShowMessage('Tallet er 1024 eller mere!');

Og selvfølgelig lige med eller under ved hjælp at <= .

Nu kommer vi så over i den lidt mere avanceret del af matematikken selv - Sinous, Cosinous og Tangens. Sinous og Cosinous bruges til at finde punkter (fx på grafer). Det er ganske simpelt at bruge disse begreber i Delphi. Sinous og Cosinous laves på denne måde

Result := Sin(24);
Result := Cos(77);

Tanges udregnes ved at dividere Sin og Cos. Af andre lidt større funktioner kan også nævnes EXP. Den kan udregnes sådan :

Result := Exp(2000);

Der er mange forskellige måder at udregne renter på. Men den helt rigtie er dog
kn = k(1 + x)ⁿ . k er antal penge der skal betales, x er rentesats (i 0, et eller andet. Hvis man regner direkte med 1, et eller andet skal der kun stå x i parentesen) og n er antal år. Formlen laves i Delphi sådan :

Result := K * power(1 + x, n);

I forrige artikel fik jeg lavet et par småfejl (dumme-slag til mig). Jeg skrev at Int64 var et decimal-tal, det passer selvfølgelig ikke, da det er en forkortelse for Integer 64-bit. Jeg lavede også en fejl i udregningen af Pythagoras, den laves rigtigt sådan:

Result := Sqrt(power(a, 2) + power(b, 2));

Jeg beklager mange gange!