zelionke

tai da nematei seriju juk jau viskas 4 baiges

prajuokino 5 sezonas is kur istrauket? 4 paskutinis, nes penktam nebebus pagrindinia herojaus nes ketvirtam jis mire

program skaitymas; uses Crt; var Dm : Text; Le : integer; Eil, K : String; Begin Assign(Dm, 'txt.txt'); Reset(Dm); While not Eof (Dm) do Begin ReadLn(Dm, Eil); Le := Length(Eil); K := Copy(Eil, Le, 1); If K = '1' Then WriteLn('labas') else WriteLn('viso gero'); End; Close(Dm); ReadLn; End.
 
if ten pats pasikeisi kaip tau reik

ikelk ta exe faila pabandysiu

Kintamieji:
TextAttr : byte; - Laikomos aktyvios spalvos.
WindMin : word; - Aktyvaus lango minimalios koordinates.
WindMax : word; - Aktyvaus lango maksimalios koordinates.
Konstantos:
Konstanta - Reiksme - Spalva
Black - 0 - Juoda
Blue - 1 - Melyna
Green - 2 - Zalia
Cyan - 3 - Melsvai zalsva
Red - 4 - Raudona
Magenta - 5 - Violetine
Brown - 6 - Ruda
LightGray - 7 - Sviesiai pilka
DarkGray - 8 - Tamsiai pilka
LightBlue - 9 - Sviesiai melyna
LightGreen - 10 - Sviesiai zalia
LightCyan - 11 - Sviesiai melsvai zalsva
LightRed - 12 - Sviesiai raudona
LightMagenta - 13 - Sviesiai violetine
Yellow - 14 - Geltona
White - 15 - Balta
Proceduros:
ClrScr; - Isvalo ir nudazo aktyvu langa TextAttr nurodyta fono spalva.
TextBackground(spalva: byte); - Uzraso i TextAttr simboliu fono spalva.
TextColor(spalva: byte); - Uzraso i TextAttr simboliu spalva.
Window(x1, y1, x2, y2: byte); - Uzraso i WindMin ir WindMax aktyviojo lango koordinates.
GoToXY(x, y: byte); - Perkelia zymekli i aktyviojo lango pozicija (x,y).
Delay(laikas: word); - Stabdo veiksmus nurodyta laiko tarpa milisekundemis.
Funkcijos:
WhereX: byte; - Pranesa zymeklio stulpelio numeri aktyviajame lange.
WhereY: byte; - Pranesa zymeklio eilutes numeri aktyviajame lange.
KeyPressed: boolean; - Reiksme False tol, kol nepaspaudziamas koks nors klavisas.
ReadKey: char; - Paspausto klaviso simbolis.
Lo(Kint: word): word; - Grazina zodzio Kint jaunesniojo baito reiksme.
Hi(Kint: word): word; - Grazina zodzio Kint vyresniojo baito reiksme.

Kintamieji:
TextAttr : byte; - Laikomos aktyvios spalvos.
WindMin : word; - Aktyvaus lango minimalios koordinates.
WindMax : word; - Aktyvaus lango maksimalios koordinates.
Konstantos:
Konstanta - Reiksme - Spalva
Black - 0 - Juoda
Blue - 1 - Melyna
Green - 2 - Zalia
Cyan - 3 - Melsvai zalsva
Red - 4 - Raudona
Magenta - 5 - Violetine
Brown - 6 - Ruda
LightGray - 7 - Sviesiai pilka
DarkGray - 8 - Tamsiai pilka
LightBlue - 9 - Sviesiai melyna
LightGreen - 10 - Sviesiai zalia
LightCyan - 11 - Sviesiai melsvai zalsva
LightRed - 12 - Sviesiai raudona
LightMagenta - 13 - Sviesiai violetine
Yellow - 14 - Geltona
White - 15 - Balta
Proceduros:
ClrScr; - Isvalo ir nudazo aktyvu langa TextAttr nurodyta fono spalva.
TextBackground(spalva: byte); - Uzraso i TextAttr simboliu fono spalva.
TextColor(spalva: byte); - Uzraso i TextAttr simboliu spalva.
Window(x1, y1, x2, y2: byte); - Uzraso i WindMin ir WindMax aktyviojo lango koordinates.
GoToXY(x, y: byte); - Perkelia zymekli i aktyviojo lango pozicija (x,y).
Delay(laikas: word); - Stabdo veiksmus nurodyta laiko tarpa milisekundemis.
Funkcijos:
WhereX: byte; - Pranesa zymeklio stulpelio numeri aktyviajame lange.
WhereY: byte; - Pranesa zymeklio eilutes numeri aktyviajame lange.
KeyPressed: boolean; - Reiksme False tol, kol nepaspaudziamas koks nors klavisas.
ReadKey: char; - Paspausto klaviso simbolis.
Lo(Kint: word): word; - Grazina zodzio Kint jaunesniojo baito reiksme.
Hi(Kint: word): word; - Grazina zodzio Kint vyresniojo baito reiksme.

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.

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.

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.

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.

o kur pazet ar premier ar buisseneses ar kt? Beto kad as jokio prempier nesisakiau

Gal zinot kur lietuvoje gal pardavineja? Arba gal kas tur nupirkciau, o del kainos susitartume

Esu jau dares olimpiadines uzduotis Iftorinoj 2009 kuri buvo VDU ten galima sakyt olimpiadines. Visas padariau :)
 
Buve Uzdaviniai:
 
1.Parengti programa, kuri skaiciuotu, kiek yra tekstiniame faile skaiciu su skaitmeniu 2. Faile gali buti tiktai sveikieji skaiciai, o tikrinimui, ar skaiciuje yra skaitmuo 2, reikia parengti logine funkcija.
 
2.Parengti programa, kuri is klaviatura ivestos teksto eilutes suformuotu du masyvus: skaiciu ir kitokiu zodziu. Skaiciai gali buti tik sveikieji, o skirtukai: taskas, kablelis ir tarpas.Tikrinimui, ar is eilutes atskirtas zodis yra skaicius, parengti logine funkcija. Rezultatu masyvus parodyti ekrane ir isspausdinti.
 
3.Parengti rekursine funkcija, kuri grazintu apsukta (su priesinga tvarka irasytais simboliais) argumento eilute, ir sios funkcijos patikrinimo programa.
 
Nu jei nori pamatyt ka sugebu PM kokia uzduoti is sunkiu.

Esu jau dares olimpiadines uzduotis Iftorinoj 2009 kuri buvo VDU ten galima sakyt olimpiadines. Visas padariau :)
 
Buve Uzdaviniai:
 
1.Parengti programa, kuri skaiciuotu, kiek yra tekstiniame faile skaiciu su skaitmeniu 2. Faile gali buti tiktai sveikieji skaiciai, o tikrinimui, ar skaiciuje yra skaitmuo 2, reikia parengti logine funkcija.
 
2.Parengti programa, kuri is klaviatura ivestos teksto eilutes suformuotu du masyvus: skaiciu ir kitokiu zodziu. Skaiciai gali buti tik sveikieji, o skirtukai: taskas, kablelis ir tarpas.Tikrinimui, ar is eilutes atskirtas zodis yra skaicius, parengti logine funkcija. Rezultatu masyvus parodyti ekrane ir isspausdinti.
 
3.Parengti rekursine funkcija, kuri grazintu apsukta (su priesinga tvarka irasytais simboliais) argumento eilute, ir sios funkcijos patikrinimo programa.
 
Nu jei nori pamatyt ka sugebu PM kokia uzduoti is sunkiu.

Esu jau dares olimpiadines uzduotis Iftorinoj 2009 kuri buvo VDU ten galima sakyt olimpiadines. Visas padariau :)
 
Buve Uzdaviniai:
 
1.Parengti programa, kuri skaiciuotu, kiek yra tekstiniame faile skaiciu su skaitmeniu 2. Faile gali buti tiktai sveikieji skaiciai, o tikrinimui, ar skaiciuje yra skaitmuo 2, reikia parengti logine funkcija.
 
2.Parengti programa, kuri is klaviatura ivestos teksto eilutes suformuotu du masyvus: skaiciu ir kitokiu zodziu. Skaiciai gali buti tik sveikieji, o skirtukai: taskas, kablelis ir tarpas.Tikrinimui, ar is eilutes atskirtas zodis yra skaicius, parengti logine funkcija. Rezultatu masyvus parodyti ekrane ir isspausdinti.
 
3.Parengti rekursine funkcija, kuri grazintu apsukta (su priesinga tvarka irasytais simboliais) argumento eilute, ir sios funkcijos patikrinimo programa.
 
Nu jei nori pamatyt ka sugebu PM kokia uzduoti is sunkiu.

Kaip suprats pardavinet skydelius? as tik skaiciau kad duoda kazkiek uz unikalu paspaudima reklama skydelyje. O kas tie backlinks?

kas is tos reklamos tipo adsense?

kas is tos reklamos tipo adsense?

Paaiskinkit smulkaiu kaip uzsidirbt is blogo?

Paaiskinkit smulkaiu kaip uzsidirbt is blogo?

Paaiskinkit smulkaiu kaip uzsidirbt is blogo?

Paaiskinkit smulkaiu kaip uzsidirbt is blogo?

Paaiskinkit smulkaiu kaip uzsidirbt is blogo?

Paaiskinkit smulkaiu kaip uzsidirbt is blogo?

Paaiskinkit smulkaiu kaip uzsidirbt is blogo?