mantasurnieza

a ir b išvis yra procedūros argumentai, nemanau ar juos kas skirsto į globalius ir lokalius. O šiaip kintamieji į šiuos tipus skirstomi pagal jų galiojimo sritį. Jei kintamasis galioja tik pagrindinėje programoje ar (tik) kitoje programos dalyje (procedūroje ar funkcijoje), jis vadinamas lokaliuoju. O jei kintamasis galioja visoje programoje (ir funkcijose bei procedūrose), jis vadinamas globaliu. Ar globalus, ar lokalus kintamasis priklauso nuo to kurioje vietoje jis aprašomas: program var g; function var l; begin end; var l; begin end; kur l, tan lokalūs, kur g - globalūs.

Ir tikimybes galėtų užmiršti įdėti :(

Patarčiau vengti globalių kintamųjų :)

Visiškai pritariu :)

Skelk :)

Būtent :) aš juodraštyje buvau pasirašęs pakeisti koduotę į Windows-1257, tik abejojau dėl paskutinių dviejų skaitmenų, kad nesumaišyčiau :D tai palikau tik kad pakeisti koduotę, jos neįvardinau :D

--

Man visiškai tas pats :D nemėgstu geometrinių įrodymų :D dar truputi bijau dėl trigonometrinių lygčių ir redukcijos :D o šiaip eisiu pasiimti šimto arba bent jau kažko artimo :D

Nebijokit, net jei ir nepraeis testų, dar galima surinkti tuos 20 balų http://nec.lt/failai/1602_IT-pagr-2010.pdf Tik vienas balas duodamas už tai kad teisingai apsirašai masyvus ir kintamuosius, vat šito galit netekti.

Aš tai sudėjau longint daug kur :D

Aš lyg ir nepalikau klaidų :D tikiuosi bus 100

Padedu su matematikos ir informatikos namų darbais ir kitomis užduotimis. Kainos mažos. Skype: Mantas72 e-mail: [email protected]

Klaidingą nuomonę susidarėt. Žmogus patikimas, atsiskaitė tvarkingai.

up

nauja_eilute:=copy(eilute,1,pos(' ',eilute)); // čia nukopijuosim pirmą žodį nauja_eilute2:=copy(eilute,pos(' ',eilute) + 1, length(eilute));

type Rekordas = record pirmas, antras : integer; vardas, pareigos : string; end; Masyvas = array[1..6] of Rekordas; procedure input (var data : Masyvas); var fin : text; nr, id, i : integer; curr, line : string; begin assign (fin, 'data.in'); reset (fin); nr := 0; while not eof(fin) do begin inc (nr); ReadLn (fin, line); id := 1; curr := ''; for i := 1 to length(line) do if line[i] <> ' ' then curr += line[i] else case id of 1 : begin val (curr, data[nr].pirmas); curr := ''; inc (id); end; 2 : begin val (curr, da

type Rekordas = record pirmas:integer; antras:integer; vardas:string; pareigos:string; end; tik su nuskaitymu turėsi problemų ;)

[email protected]

>a atskirų funkcijų kiekvienam laipsniu tai nėra, bet galima panaudoti kėlimo laipsniu funkciją power().

x*x*x

kvadratinė šaknis - sqrt() kėlimas kvadratu - sqr() arba tiesiog x*x

Bent jau Vistoje yra funkcija Lock, kuri neatjungia vartotojo, bet prašo įvesti slaptažodį, visos programos tęsia darbą. Taip pat esu nusistatęs, kad uždarius laptopą, jis nieko nedarytų, o tik išjungtų monitorių.

program uzarbislt; function dal_sk (arg : integer) : integer; var j : integer; begin dal_sk := 0; for j := 1 to arg do if arg mod j = 0 then inc (dal_sk); end; var i, n, m, k : integer; begin ReadLn (n, m, k); for i := n to m do if dal_sk(i) = k then WriteLn (i); Readln; end.

...

Sveiki, olimpiadose ir konkursuose susimoviau, tai nebebuvo nė didelio noro programuoti :devil: Šiandien peržiūrėjau nepasisekusio Kazicko informatikų forumo užduotį ir supratau kodėl tik 4 taškelius už ją tegavau :devil: Yra žinomos dviejų sveikųjų skaičių k ir s reikšmės (1 ≤ k ≤ 10, 1 ≤ s ≤ 100). Raskite didžiausią ir mažiausią skaičius, kurių kiekvienas būtų sudarytas iš skirtingų skaitmenų, kiekvienas turėtų k skaitmenų ir tų skaitmenų suma būtų lygi s. Šitas irgi man atrodo dinaminio programavimo uždavinys :devil: gal gerbiamas Rimas ar kas kitas padės man su šituo uždaviniu. Neat