Funkcje matematyczne

Strona g│≤wna

 

Funkcje matematyczne 

 

W tym kr≤tkim artykuliku postaram siΩ wam przybli┐yµ podstawowe funkcje matematyczne u┐ywane w Delphi. Oto one:

Abs(x) - Zwraca warto╢µ bezwzglΩdn▒ z x
ArcTan(x) - Zwraca wyra┐on▒ w radianach miarΩ k▒ta kt≤rego tangensem jest x
Cos(x) - Zwraca warto╢µ cosinus x , przy czym argument jest wyra┐any w radianach.
Sin(x) - Zwraca warto╢µ sinus x , przy czym argument jest wyra┐any w radianach.
Pi - Zwraca warto╢µ liczby pi
Sqr(x)- Zwraca warto╢µ x podniesionego do kwadratu .
Sqrt(x) - Zwraca warto╢µ pierwiastka z x .
Frac(x) - CzΩ╢µ dziesiΩtna z x
Round(x) - x zaokr▒glone
Trunc(x) - x bez czΩ╢ci po przecinku

Matematyk zemnie nie jest zbyt dobry ale postaram podaµ wam przyk│ady kt≤re w miarΩ prosto poka┐▒ dzia│anie tych funkcji.

Za│≤┐my ┐e chcemy obliczyµ pole kwadratu . Jest to bardzo proste wystarczy znaµ jeden bok i podnie╢µ go do kwadratu. Tak wiΩc umie╢µ na formularzu jedno pole edycji do wprowadzania wymiaru boku oraz przycisk . Teraz w zdarzeniu onclick przycisku umie╢µ kod :

procedure TForm1.Button1Click(Sender: TObject); var bok,pole:single); // Zmienne typu single 
begin 
  bok:=StrToFloat(Edit1.Text); // Zmienna bok zawiera wymiar boku kwadratu   
  pole:=Sqr(bok); //Zmienna pole zawiera podniesion▒ do kwadratu zmienn▒ bok dziΩki funkcji Sqr
  ShowMessage('Pole kwadratu wynosi '+FloatToStr(pole)); // Wy╢wietlenie okna z wynikiem 
end;

Nic trudnego wszystko zosta│o wyja╢nione w komentarzach. Teraz inny przyk│ad. Napiszemy program kt≤ry bΩdzie obliczaµ czy mo┐na zbudowaµ tr≤jk▒t prostok▒tny z trzech bok≤w znaj▒c ich wymiary. Zgodnie z twierdzenia pitagorasa najwiΩkszy bok czyli przeciwprostok▒tna jest r≤wny pierwiastkowi z sumy kwadrat≤w pozosta│ych bok≤w. Tak wiΩc umieszczamy trzy pola edycji do wprowadzania wymiar≤w bok≤w i jeden przycisk . Ca│y kod bΩdzie wygl▒da│ tak :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  przypjeden,przypdwa,przeciwprost,sprawdz:single; // Zmienne typu single
begin
 przypjeden:=StrToFloat(Edit1.Text); // Wymiar pierwszego boku
 przypdwa:=StrToFloat(Edit2.Text); // Wymiar drugiego boku
 przeciwprost:=StrToFloat(Edit3.Text); // Wymiar przeciwprostok▒tnej
// Obliczenie pierwiastka z sumy kwadrat≤w przyprostok▒tnych
 sprawdz:=Sqrt(Sqr(przypjeden)+Sqr(przypdwa)); 

 if przeciwprost=sprawdz then  // Por≤wnanie dw≤ch zmiennych je╢li s▒ r≤wne to
   ShowMessage( ' Mo┐na zbudowaµ tr≤jk▒t z tych bok≤w' ) // Mo┐na zbudowaµ tr≤jk▒t 
 else // W przeciwnym razie 
   ShowMessage( ' Nie mo┐na zbudowaµ tr≤jk▒ta z tych bok≤w ' ) ; // Nie mo┐na zbudowaµ tr≤jk▒ta
 end;
end.

 

 

To by by│o na tyle . Naraa !!!

uszyniak21@poczta.onet.pl