Pereiti prie turinio

zelionke

Nariai
 Profilis  Nario turinys ir veikla

  • Pranešimai

    87

  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%

 Turinio tipas 

zelionke Pranešimai

    FPS skaitymas is failu

    Programuotojų kampas

    Atrašyta · Redagavo zelionke 

    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

    [Pamoka]Pagrindines Crt bibliotekos priemones

    Programuotojų kampas

    Sukurta

    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.

    [Pamoka]Standartines Paskalio proceduros ir funkcijos

    Programuotojų kampas

    Sukurta · Redagavo zelionke

    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.

    Darbai pagal uzsakymus

    Programuotojų kampas

    Atrašyta · Redagavo zelionke

    Olimpiadines užduotis padarytum? Turi kažkokius savo darbo pavyzdžius?

     

    Olimpiadines užduotis padarytum? Turi kažkokius savo darbo pavyzdžius?

     

    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.

    Help

    Tinklaraščiai (blogai)

    Sukurta · Redagavo zelionke

    kodel wp bloge pagrindiniame puslapyje desineje rodo ta dali kur turetu but apacioje (copyriht ir tt) o apacioje tuos dalykus kur desinej turetu rodyt. O iewjus i koki posta viskas nrml. Anksciau buvo viskas nrml bet kai ikeliau nauja posta pasidare taip.

     

    EDIT: Ikeliau da viena posta tas copyright atsigavo ir jau savo vietoj

     

    EDIT: Kaip istint ta uncategored categorija?

    kaip uzsidirbti?

    Tinklaraščiai (blogai)

    Atrašyta

    Ne tik AdSense. Gali pardavinėti reklaminius skydelius, atgalines nuorodas (backlinks) ir pan. Jeigu rašai tinklaraštį tarkim apie mobiliuosius telefonus, fizinis ar juridinis asmuo, kuris prekiauja telefonais gali paprašyti parašyti įrašą apie jo teikiamas paslaugas ar pan. Būdų yra daug, pasinaudojęs Uždarbis.lt arba Google paieška tikrai rasi nemažai informacijos.

     

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

×
×
  • Pasirinkite naujai kuriamo turinio tipą...