[Pamoka]Standartines Paskalio proceduros ir funkcijos

Aritmetines funkcijos:

function Abs (X): argumento tipas; - Rezultatas yra argumento X absoliutine reiksme. Rezultato tipas sutampa su argumento tipu (integer arba real).

function ArcTan (X: real): real; - Skaiciuoja duoto argumento X arktangena.

function Cos (X: real): real; - Skaiciuoja duoto argumento X kosinusa.

function Exp (X: real): real; - Skaiciuoja duoto argumento X eksponente.

function Frac (X: real): real; - Grazina duoto argumento X trupmenine dali.

function Int (X: real): real; - Grazina duoto argumento X sveikaja dali.

function Ln (X: real): real; - Skaiciuoja duoto argumento X naturaluji logaritma.

function Pi: real; - Grazina reiksme 3.1415926535897932385.

function Sin (X: real): real; - Skaiciuoja duoto argumento X sinusa.

function Sqr (X): < toks pat tipas, kaip parametro X >; - Skaiciuoja duoto argumento X sakni.

function Sqrt (X: real): real; - Skaiciuoja duoto argumento X kvadratine sakni.

Atminties dinamisko paskirstymo paprogrames:

procedure Dispose (var P: pointer [, destructor]); - Islaisvina dinamiskai isskirta atminti.

procedure FreeMem (var P: pointer; kiekis: word); - Islaisvina nurodyto dydzio dinamiskai isskirta atminti.

procedure GetMem (var P: pointer; kiekis: word); - Isskiria nurodyto dydzio dinamine atminti.

procedure New (var P: pointer [, Pradzia: constructor]); - Isskiria dinamine atminti.

function MaxAvail: longint; - Nustato didziausio vientiso dinamineje atmintyje esancio bloko apimti.

function MemAvail: longint; - Suskaiciuoja visu neuzimtu dinamineje atmintyje bloku apimti.

Vykdymo valdymo proceduros:

procedure Exit; - Nutraukia aktyvaus programinio bloko darba.

procedure Halt [(Kodas: word)]; - Nutraukia programos vykdyma.

procedure RunError [(KlaidosKodas: byte)]; - Nutraukia programos vykdyma ir formuoja klaidos koda.

Duomenu mainu paprogrames:

procedure Assign (var BylosKintamasis; BylosVardas); - Prijungia isorine byla.

function Assigned (var P): boolean; - Analizuoja, ar rodykles tipo kintamasis apibreztas Nil.

procedure ChDir (KatalogoVardas: string); - Pakeicia aktyvuji kataloga naujai nurodytu.

procedure Close (var BylosKintamasis); - uzdaro atverta byla.

function Eof [(var BylosKintamasis: text)]: boolean; - Analizuoja tekstines bylos pabaiga.

function Eof [(var BylosKintamasis)]: boolean; - Analizuoja tipines arba betipes bylos pabaiga.

procedure Erase (var BylosKintamasis); - Naikina isorine byla.

function FilePos (var BylosKintamasis): longint; - Randama bylos aktyvaus elemento pozicija.

function FileSize (var BylosKintamasis): longint; - Randamas bylos elementu skaicius.

procedure GetDir (TvarkyklesNumeris: byte; var Eilute: string); - Grazina aktyviojo katalogo varda nurodytoje tvarkykleje.

function IOResult: integer; - Grazina paskutines ivedimo ar isvedimo operacijos pabaigos koda. Jeigu nebuvo klaidu, funkcijos reiksme lygi nuliui.

procedure MkDir (Eilute: string); - Sukuria kataloga.

procedure Rename (var BylosKintamasis; NaujasVardas); - pakeicia isorines bylos varda.

procedure Reset (var BylosKintamasis [: file; Buferis: word]); - Atidaro byla skaitymui.

procedure Rewrite (var BylosKintamasis [: file; Buferis: word]); - Atidaro byla rasymui.

procedure RmDir (Eilute: string); - Pasalina tuscia kataloga. Jeigu netuscias - vadinasi, klaida.

procedure Seek (var BylosKintamasis; N: longint); - Padaro aktyvu N-aji bylos elementa.

procedure Truncate (var BylosKintamasis); - Pasalina bylos elementus nuo aktyvaus iki bylos galo.

Ivairios paprogrames:

procedure Exclude (var Aibe: set of Tipas; Elementas: Tipas); - Is aibes pasalina elementa.

procedure FillChar (var X; Kiekis: word; Reiksme); - Nurodyta reiksmiu skaiciu suraso i atminti, pradedant baitu, kurio adresa nurodo kintamasis X.

function Hi (X): byte; - Grazina kintamojo X vyriausiojo baito reiksme.

function High (X); - Grazina didziausia reiksme is kintamojo X reiksmiu.

procedure Include (var Aibe: set of Timas; Elementas: Tipas); - Prie aibes prijungia nauja elementa.

function Lo (X): byte; - Grazina kintamojo X jauniausiojo baito reiksme.

function Low (X); - Grazina maziausia reiksme is kintamojo X reiksmiu.

procedure Move (var K1, K2; Kiek: word); - Kopijuoja nurodyta skaiciu baitu is kintamojo K1 i K2.

function ParamCount: word; - grazina parametru skaiciu, esanti programos komandu eiluteje.

function ParamStr (Indeksas): string; - Grazina komandu eiluteje nurodyto indekso parametro reiksme.

function Random [(Riba: word)]: Sutampa_su_kintamojo_tipu; - Grazina atsitiktini skaiciu, ne didesni uz nurodyta riba. Jei riba nenurodoma, tai reiksme bus intervale [0..1].

procedure Randomize; - Paruosia darbui atsitiktiniu skaiciu generatoriu su pradine atsitiktine reiksme.

function SizeOf (X): integer; - Grazina argumento X baitu kieki.

function Swap (X): Sutampa_su_kintamojo_tipu; - Sukeicia vyriausiojo ir jauniausiojo kintamojo baitu reiksmes vietomis.

function UpCase (Simbolis: char): char; - Pakeicia raides (simbolius) didziosiomis.

Sekos paprogrames:

procedure Dec (var X [; N: longint]); - Sumazina kintamojo X reiksme dydziu N. Numatytoji reiskme - vienetas.

procedure Inc (var X [; N: longint]); - Padidina kintamojo X reiksme dydziu N. Numatytoji reiksme - vienetas.

function Odd (X: longint): boolean; - True, jeigu reiksme X yra nelygine.

function Pred (X): Argumento_tipas; - Grazina ankstesne argumento reiksme.

function Succ (X): Argumento_tipas; - Grazina tolesne argumento reiksme.

Rodykles ir adresu funkcijos:

function Addr (X): pointer; - Grazina argumento adresa.

function CSeg: word; - Grazina CS registro reiksme.

function DSeg: word; - Grazina DS registro reiksme.

function Ofs (X): word; - Grazina argumento adreso postumio reiksme.

function Ptr (Segmentas, Postumis:word): pointer; - Formuoja rodykle i nurodyta adresa, kuris nurodomas atskiromis dalimis.

function Seg (X): word; - Grazina argumento adreso segmento reiksme.

function SPtr: word; - Grazina SS registro reiksme;

function SSeg: word; - Grazina SS registro reiksme.

Darbo su eilutemis paprogrames:

function Concat (S1 [, S2, ..., Sn]: string):string; - Sujungia eilutes i viena.

function Copy (S: string; Indeksas: integer; Kiek: integer): string; - Nuo indeksu nurodytos vietos isskiria is eilutes S nurodyta simboliu skaiciu (arba iki galo).

procedure Delete (var S: string; Indeksas: integer; Kiek: integer): string; - Nuo indeksu nurodytos vietos pasalina is eilutes S nurodyta simboliu skaiciu (arba iki galo).

procedure Insert (Eilute: string; var S: string; Indeksas: integer); - Iterpia eilute i S simboliu seka nuo nurodyto indekso.

function Lenght (S: string): integer; - Grazina eilutes S ilgi.

Function Pos (Eilute: string; S: string): byte; - Iesko eilutes pasikartojimo pradzios simboliu sekoje S.

procedure STR (X [: Dydis [: Skaitmenys]]; var S: string); - Skaiciu X pavercia simboliu eilute. Galima nurodyti formata (analogija spausdinant su Write procedura).

procedure Val (S; var V; var Kodas: integer); - Simboliu seka S vercia skaiciumi V (real arba integer). Klaidingo simbolio numeris grazinamas kaip kodas.

Darbo su bylomis paprogrames:

procedure Append (var BylosKintamasis: text); - Atidaro egzistuojancia byla, kad butu galima ja papildyti gale.

function EoLn [(var BylosKintamasis: text)]: boolean; - Analizuoja bylos eilutes pabaiga.

procedure Flush (var BylosKintamasis: text); - Uzraso i byla buferyje likusius simbolius.

procedure Read (BylosKintamasis, V1 [, V2 ..., Vn]); - Is ivardytos bylos skaito kintamuju reiksmes.

procedure Read ([var BylosKintamasis: text;] V1 [, V2, ..., Vn]); - Is tekstines bylos skaito kintamuju reiksmes.

procedure ReadLn ([var BylosKintamasis: text;] V1 [, V2, ..., Vn]); - Is tekstines bylos skaito kintamuju reiksmes.

function SekkEof [(var BylosKintamasis: text)]: boolean; - Praleidzia tarpus, tabuliacijos zenklus, eilutes pabaigos simbolius ir grazina True, jeigu po to bus bylos pabaiga.

function SeekEoln [(var BylosKintamasis: text]): boolean; - Praleidzia tarpus ir tabuliacijos zenklus ir grazina True, jeigu po to bus eilutes pabaiga.

procedure SetTextBuf (var BylosKintamasis: text; var Buferis [; Dydis: word]); - Isskiria bylos kintamajam buferi, kurio dydis nurodomas baitais.

procedure Write (BylosKintamasis, V1 [, V2, ..., Vn]); - I tipine byla suraso kintamuju reiksmes.

procedure Write ([var BylosKintamasis: text;] P1 [, P2, ..., Pn]); - I tekstine byla suraso argumentu reiksmes.

procedure WriteLn ([var BylosKintamasis: text;] P1 [, P2, ..., Pn]); - I tekstine byla suraso argumentu reiksmes.

Pakeitimo (transformavimo) funkcijos:

function Chr (X: byte): char; - Grazina nurodyta kodu simboli.

function Ord (X): longint; - Grazina nurodytos sekos elemento koda.

function Round (X: real): longint; - Realuji skaiciu pavercia sveikuoju (integer) - suapvalina.

function Trunc (X: real): longint; - Realuji skaiciu pavercia sveikuoju (integer) - atmeta trupmenine dali.

Darbo su netipinemis bylomis proceduros:

procedure BlockRead (var BylosKintamasis: file; var Buferis; Kiek: word [; var Rezultatas: word]); - Skaito is netipines bylos i buferi nurodyta baitu skaiciu. Rezultatas - perskaitytu baitu skaicius.

procedure BlockWrite (var BylosKintamasis: file; var Buferis; Kiek: word [; var Rezultatas: word]); - Perraso is buferio i netipine byla nurodyta baitu skaiciu. Rezultatas yra uzrasytu baitu skaicius.