Rekisteröidy

Ilmoitukset

Ladataan…

    Näytä kaikki

    funktio parametrinä

    Pascalissa on mahdollista antaa esim. funktiolle parametrinä funktio.
    Olisi kiinnostavaa tietää mihin näitä oikeasti käytetään?


    Alla jonkunlainen toimiva testikoodi

    -----8<-----


    unit Unit1;

    {$mode objfpc}{$H }

    interface

    uses
    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    ExtCtrls, ComCtrls;

    type

    { TForm1 }

    TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    RadioGroup1: TRadioGroup;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    procedure Button1Click(Sender: TObject);
    private
    { private declarations }
    public
    { public declarations }
    end;

    type

    TFuncTwoArgsDouble = function(x,y: double): double;

    var
    Form1: TForm1;

    implementation

    {$R *.lfm}

    function summa(x,y:double):double;
    begin
    result := x y;
    end;

    function kerto(x,y:double):double;
    begin
    result := x * y;
    end;

    function lasku(x,y:double; funktio:TFuncTwoArgsDouble):double;
    begin
    result := funktio(x,y);
    end;

    { TForm1 }

    procedure TForm1.Button1Click(Sender: TObject);
    var
    tulos:double;
    begin
    if RadioGroup1.ItemIndex = 1 then
    tulos := lasku( Strtoint(Edit1.text), StrtoInt(edit2.text),@kerto )
    else tulos := lasku( Strtoint(Edit1.text), StrtoInt(edit2.text),@summa );
    Memo1.Lines.Add(FloatToStr(tulos));
    end;

    end.
    6182
    Äänestä

    Muut lukivat myös

    Vastaukset 6

    Vanhimmat

    Eikös tuo ole ihan normi olio-ohjelmointia ilman olio-ominaisuuksien käyttöä? Jos haluat todellista funktionaalista ohjelmointia, niin tutustu lisp:iin.
    Mutta vastaukseen: Ihan oikeasti noita voi käyttää vaikkapa käyttöjärjestelmäkutsujen luomiseen - olettaen että system-kirjasto ei jotain ominaisuutta tue. Tällöin kutsuttu funktio voi olla vaikkapa 2 kpl eri tavalla määriteltyä kirjoitinporttia, moodit, EPP/ECP/SPP, sarjaporttitoiminta, tila, jne. tiedostava pätkä. Eli esimerkki embed. maailmasta.

    Äänestä

    • Jos tarvii korvata olio-ohjelmointia niin lisään tavalliseen aliohjelmakutsuun
      yhden parametrin lisää joka kertoo mikä "olio" on kyseessä.

      Äänestä

    Itse aloitin Delphi 2 versiolla Windows koodailut aikoinaan, harrastuksena. Sitten työkseni koodailin Delphi 2006 versiolla 5,5 vuotta. Nykyisin Windowsista luovuttua uusi suosikkikieleni on Vala, tämä siis harrastuksena, työkseni koodailen webbihommeleita Linux-pohjaisella palvelimella.

    Valassa on anonyymi funktio, tässä on erona se että esittelet vain funktion, mahdollisen paluutyypin ja argumentit, mutta funktion toiminnallisuuden voit toteuttaa (osoittaa) tapauskohtaisesti.

    public delegate double TFuncTwoArgsDouble(double x, double y);

    public class TForm {
    ....public unowned TFuncTwoArgsDouble summa { public get; private set; }
    ....public unowned TFuncTwoArgsDouble kerto { public get; private set; }
    ....public unowned TFuncTwoArgsDouble jako { public get; private set; }

    ....public TForm() {
    ........this.summa = (x, y) => {
    ............return x y;
    ........};
    ........this.kerto = (x, y) => {
    ............return x * y;
    ........};

    ........this.jako = null; // toteutetaan jossain muualla
    ....}

    ....public double testi_summa(double x, double y) {
    ........return this.summa(x, y);
    ....}

    ....public double testi_kerto(double x, double y) {
    ........return this.kerto(x, y);
    ....}
    }

    Äänestä

    Ettekö te saatana osaa vasta kysymykseen, kaikki ketjun vastaukset on perseestä. Miksi ne on tänne kirjoitettu. Kukaan vastaajista ei näköjään osaa DELPHIllä yhtään mitään.

    Kaveri kysyy: Mihin funktioita käytetään?

    M-Kar on tainnut kirjoitella kaikki tyhjän päiväiset vastaukset, yleissivistävän tieto tasollaan. Vastauksista näkee ettei vastaajat tunne DELHI ohjelmointi käytännössä ollenkaan.

    Kysymys jo sinäänsä kielii että kysyjän ohjelmointi tuntemus jo ihan yleisellä tasollakin on alkeista lähtien epäselvää. Ymmärrettävän vastauksen antaminen venyisi pitkäksi ja lyhyt tiivistys ei paikkaa kysyjän tieto taitoa siinä määrin että siitä olisi ohjelmoinin kannalta merkitystä.

    Funktioita, voidaan käyttää tietojen analysoimiseen saate parametrien, staattisten ja klobaalien ehtojen perusteella. Ei, ei onnistu tuo tiivis -vastaus, tuommosena ihan turha, joten veikkaan että kaveri ei tule saamaan tyhjentävää vastausta.

    Äänestä

    • Delphissä yleisempiä:

      procedure Button1Click(Sender: TObject);

      TNotifyEvent = procedure(Sender: TObject) of object;

      mutta tosiaan, sama ilman objekteja/luokkia:

      TPlainEvent = procedure(Sender: TObject);

      proseduuri/funtioparametrit ovat joskus hyödyllisiä: niiden avulla voi sama koodi kutsua eri aliohjelmaa eri tilanteissa, kun aliohjelmaviite onkin muuttuja (ns. proseduraalinen / funktionaalinen tyyppi).

      tuo "4 eri laskutoimitusta" on hyvä esimerkki, käytännön sovellukset toki riippuvat siitä, mitä tarkalleen halutaan saada aikaan.

      Äänestä

    Odottaa vastausta

    Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.

    Luetuimmat keskustelut

    Kommentoi aloitusta

    funktiokysyjä kirjoitti:

    Pascalissa on mahdollista antaa esim. funktiolle parametrinä funktio.
    Olisi kiinnostavaa tietää mihin näitä oikeasti käytetään?


    Alla jonkunlainen toimiva testikoodi

    -----8<-----


    unit Unit1;

    {$mode objfpc}{$H }

    interface

    uses
    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    ExtCtrls, ComCtrls;

    type

    { TForm1 }

    TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    RadioGroup1: TRadioGroup;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    procedure Button1Click(Sender: TObject);
    private
    { private declarations }
    public
    { public declarations }
    end;

    type

    TFuncTwoArgsDouble = function(x,y: double): double;

    var
    Form1: TForm1;

    implementation

    {$R *.lfm}

    function summa(x,y:double):double;
    begin
    result := x y;
    end;

    function kerto(x,y:double):double;
    begin
    result := x * y;
    end;

    function lasku(x,y:double; funktio:TFuncTwoArgsDouble):double;
    begin
    result := funktio(x,y);
    end;

    { TForm1 }

    procedure TForm1.Button1Click(Sender: TObject);
    var
    tulos:double;
    begin
    if RadioGroup1.ItemIndex = 1 then
    tulos := lasku( Strtoint(Edit1.text), StrtoInt(edit2.text),@kerto )
    else tulos := lasku( Strtoint(Edit1.text), StrtoInt(edit2.text),@summa );
    Memo1.Lines.Add(FloatToStr(tulos));
    end;

    end.

    Anonyymi
    5000

    Ilmoita asiaton sisältö

    • Sisältää materiaalia, joka on loukkaavaa, herjaavaa, rasistista, uhkailevaa tai ahdistelevaa.

    • Materiaali sisältää nimiä, yhteystietoja tai muita henkilökohtaisia tietoja. Julkisuuden henkilöistä, julkisissa viroissa toimivista ihmisistä sekä yritysten vastuuhenkilöistä saa keskustella työhön liittyen. Myös yksityiselämään liittyvistä asioista voi keskustella siltä osin, kuin niistä on julkisesti kerrottu.

    • Sisältää lapsille haitallista tai heiltä kiellettyä materiaalia. Seksuaalinen sisältö on sallittua aiheeseen tarkoitetuilla palstoilla, joiden ikäraja on 18 vuotta.

    • Lainvastaista sisältöä voi olla mm. yksityiselämää loukkaavan tiedon levitys, kiihottaminen kansanryhmää vastaan, laiton uhkaaminen, alaikäisiin liittyvä seksuaalinen sisältö/grooming, petokset, identiteettivarkaudet, kunnianloukkaukset ja tekijänoikeusrikkomukset.

    • Sisältö ei liity palstan tai keskusteluketjun aiheeseen.

    • Viesti ei ole suomea tai ruotsia (pl. International Forums), se sisältää mainontaa, se sisältää tekijänoikeuksin suojattua materiaalia, se on massapostitus tai jokin muu syy.

    Jaa keskustelu