Narysx

Ant tiek bandom pasirodyt protingais, bet niekaip nesigauna. :)))

O aš, tarkim, nesuprantu, kodėl turi būti teisinamas kažkoks svetimas aplaidumas? Paaiškinkit man. Todėl, kad jūs net negalėjot apie kažką pagalvot, pasvajot ir atseit buvot neišpindėję kaip mes, tai reiškia, kad gali būti bet kas ir gerai čia? NEC veikla šiemet išvis yra totalus nesusipratimas. Pradedant kriteriniu vertinimu ir baigiant skelbimo datomis. Kodėl kažkieno kompetencijos stoka apskaičiuoti laiką, reikalingą darbui atlikti, turi būti kažkaip teisinama? Kaip tik turi būti visi griežtai už tai peikiami. Ir taip lietuviai nėra reiklūs, sukandę dantis viską iškenčia. Kad žinotumėt kas, kaip kitose šalyse tas egzaminų centras dėl savo nesąmonių jau būtų sumindžiotas. Mes ir taip labai tolerantiški esam visų aplaidumui. :)

Arba jie zydai

Jau paskelbti anglų k. egzamino rezultatai :)

Aha. Bet taip pat parašytas apribojimas: Bendras nuvažiuotų kilometrų skaičius negali viršyti dienos kilometrų limito.
Tai gal galima praleisti sąraše tas įmones, kurias aptarnavus bus viršytas kilometrų limitas? :lol:
 
Anyway, čia visi, kaip matau, suprato taip, kaip aš ir parašiau per egzą. Tik be reikalo čia nervinuos, kad tipo neteisingai. :D

Dariau panašiai kaip ir tu, tik aš spręsdamas suabejojau ar galima naudoti f-ją Abs(), tai dėjau if x < 0 then x := x * -1 sąlygą.

manau gausi, gal net 13, ne 9 :)

Testo atsakymus parašiau:
1)C
2)D
 
Kas dėl antro, internete radau:
 
Todėl A, B, C kaip ir atkrenta :unsure:
Šiaip esu 95proc. įsitikinęs, kad antro atsakymas D.

Kas tas strmcp?

Kad dar nebuvo to vbe :lol: Įdomu ką sprendei...

Kokia prasmė sukti tuos ciklus(*), jei gali tiesiog nurodyti skaičiaus formatą pvz. sk:5 :unsure:

//--------------------------rasymo-procedura------------------------------------ procedure rasyk; var i : integer; rez : text; begin assign(rez, 'U3rez.txt'); rewrite(rez); for i:=1 to n do Writeln(rez, zvej[i].vardas, zvej[i].karosu:5, zvej[i].karpiu:5, zvej[i].kuoju:5); Writeln(rez, zvej[daugiausiai].vardas, zvej[daugiausiai].viso :5); //-MATAI 5?? close(rez); end;
štai apie ką jis kalba, nereikia jokių ciklų sukti, kad skirti 5 vietas kintamajam :rolleyes:

My code, irgi šian rašiau ~20min

program zvejyba; const Cmax = 100; type zvejai = record vardas : string[10]; karosu, karpiu, kuoju, viso : integer; end; zvejys=array[1..Cmax] of zvejai; //------------------------------------------------------------------------------ var zvej : zvejys; n : integer; //-------------------skaitymo-procedura----------------------------------------- procedure skaityk; var i, j, d, kar, karp, kuoj : integer; f : text; begin assign(f,'U3.txt'); reset(f); readln(f, n); for i:=1 to n do begin zvej[i].karosu:=0; zvej[i].karpiu:=0; zvej[i].kuoju:=0; zvej[i].viso:=0; readln(f, zvej[i].vardas, d); for j:=1 to d do begin Readln(f, kar, karp, kuoj); zvej[i].karosu+=kar; zvej[i].karpiu+=karp; zvej[i].kuoju+=kuoj; end; zvej[i].viso:=zvej[i].karosu+zvej[i].karpiu+zvej[i].kuoju; end; close(f); end; //------------------randa-daugiausiai-zuvu-pagavusio-indeksa-------------------- function daugiausiai : integer; var i, max, index : integer; begin max:=zvej[1].viso; for i:=2 to n do if zvej[i].viso>max then begin max:=zvej[i].viso; index:=i; end; daugiausiai:=index; end; //--------------------------rasymo-procedura------------------------------------ procedure rasyk; var i : integer; rez : text; begin assign(rez, 'U3rez.txt'); rewrite(rez); for i:=1 to n do Writeln(rez, zvej[i].vardas, zvej[i].karosu:5, zvej[i].karpiu:5, zvej[i].kuoju:5); Writeln(rez, zvej[daugiausiai].vardas, zvej[daugiausiai].viso :5); close(rez); end; //-------------------------pagrindine-programa---------------------------------- begin skaityk; rasyk; end.

gali.

Pakartotinė sesija tik tiems kurie negalėjo dalyvauti pagrindinėje. Kažkur skaičiau kad visi rezultatai bus aiškūs iki liepos 12d

tikraskiek:=0; for i:=1 to n do begin kiek:=0; narys:=mas[i]; for j:=1 to n do if mas[j]=narys then kiek+=1; if kiek>tikraskiek then BEGIN tikraskiek:=kiek; kuris:=i; end; end;
truputi patobulinau, BEGIN IR END rašyk tik tada, kai atlieki daugiau nei vieną veiksmą :)
 
mano atrodo, pradiniai duomenys visada be LT rašmenų būna, :ph34r:
offisas priklausys nuo to, kur laikysi, kalba metai ir t.t., Riešėje bus 2007 lietuviškas, jei kam idomu :rolleyes:

Pasidariau pats :)

tikraskiek := 0; kiek := 0; for i := 1 to 7 do begin narys := mas[i]; for j := 1 to 7 do begin if narys = mas[j] then kiek := kiek + 1; end; if kiek > tikraskiek then begin tikraskiek := kiek; kuris := i; end; kiek := 0; end; Writeln(kuris, ' ', tikraskiek);

Jei aš gerai supratau tavo užduotį, tai tarkim taip. Eilutė duomenų faile:

Eilutespavadini 14 132 8 61 18 4
Tai tuomet skaitai eilutę taip:

read(duom, pavadinimas); //pavadinimas string[15] tipo for i := 1 to 6 do read(duom, mas[i]); // mas - integer tipo masyvas

Per egzą šitų dalykų nepalik, nes prarasi 2 taškus galima sakyti dėl nieko.

Tu nesuvoki apie ką kalbi.
Dėl 15 uždavinio, tai žinome, kad skaičiai a, b, c yra natūralieji ir, kad jie yra mažesni už 11. Reikia apskaičiuoti reiškinio (a+b)/c didžiausią galima reikšmę.
Žinome, kad kuo skaitiklis didesnis ir vardiklis mažesnis, tuo trupmenos reikšmė didesnė. Vardiklio © mažiausia reikšmė yra 1, o didžiausia įmanoma skaitiklio (a+b) reikšmė yra 10+10=20 . Todėl atsakymas yra 20/1=20 . Niekur neparašyta, kad skaičiai turi būti skirtingi, todėl jie gali būti vienodi.

Tokios pievos seniai nemačiau :blink: . Tegul džiaugiasi visi dvyliktokai, kad ne tu matematikos egzaminą sudarinėjai, nes vargu ar kas būtų išlaikęs :D

Ėsmė tokia, kad maištininkai reikalingi tik tuo atveju, jei siekiama dorų tikslų, geresnės, perspektyvesnės ateities, o nereikalingi, kai būtent maištaudami jie gali pakenkt kitiems asmenims, kažkas tokio :) Žodžiu, turi ir pliusų, ir minusų

Keista, bet aš po lietuvių egzamino jaučiausi daug geriau nei po anglų (nors maniau bus atvirkščiai). Norisi tikėti, kad rezultatas bus neblogas. Bus psichologiškai lengviau po to, kai sužinosiu anglų balus :| :D

Asmeniskai,tai atrodo,kad temos nera sunkios paziurejus ir kiek is pazystamu girdejau,tai tikejos zymiai sunkiau,o viskas atvirksciai-lengviau.Tad,manau neturetu but tiek daug neislaikiusiu ,nors gazdino,kad daugelis gali neislaikyt:)

Kas tas polemizavimas iš viso? :D :D
 
Kažkaip labai mondrai jūs čia visi šnekat... Visą laiką rašydavau rašinius, kaip manė mokė mokytoja - įžanga, 3 dėstymo pastraipos ir pabaiga. Dėstymo pastraipa - teiginys, aiškinamasis sakinys, argumentas (pavyzdys, pasiremi kūriniu), apibendrinimas + siejimas su sekančia pastraipa. Negirdėjau apie jokius polemizaavimus, būtinybę remtis ne tik literatūra, bet ir poezija ar ko nors panašaus, o visuomet gaudavau 8-9 (apie 40-45 taškus).
 
Gal šiek tiek take it easy, chebra :D gerai čia kažkas sakė, jei mokat rašyt lietuviškai, esat bent minimaliai susipažinę su būtiniausiais kūriniais ir jų autoriais, viskas bus tvarkoj. :)