audrius^

Na kaip sekas, koks progresas projecteuler svetainėje? :) Gal užstrigęs ant kokios užduoties?

Sveiki, Reikalinga 20lt LABAS perlaida, moku 60% vertės, t.y. 12lt, atsiskaitau SWEDBANK, kreipkites PM, arba skype: anglas1992 Kolkas Nebereikia

KTU - taikomoji matematika, NL, vf, bus is cia gal grupioku? :)

Nelabai pats suprantu kaip tau gali veikti su EoLn, nes while not EoF(D) do - (EoF - End of File) reiškia, kad skaitys eilutes tol kol nebus failo pabaiga, o while not EoLn(A) do - (EoLn - End of Line) reiška, kad jis turi skaityti failą kol nėra eilutės pabaigos, taip, kad pas tave jis turėtų perskaityti tik vieną failo eilutę...

Su funkcija bent jau man atrodo, kad geriau yra daryti program programa; const duom = 'zodis.txt'; function KiekKartuKartojasi(a:string):integer; var D:text; b:string; kiek:integer; begin kiek := 0; assign(D, duom); reset(D); while not EoF(D) do begin readln(D, b); if a = b then kiek += 1; end; close(D); KiekKartuKartojasi := kiek; end; var a:string; Begin write('Iveskite zodi: '); readln(a); writeln('Jusu ivestas zodis kartojasi: ', KiekKartuKartojasi(a), ' kartu.'); readln; End.

93% (59t) Nusivyliau save... :/

Lietuvių: 53 Informatika: 95 Viskas pagal planą :)

Pagaliau! :) Jau buvo atsibodę laukti... :D

Atgaivinau temą, kad paklausti, gal kas turite kokių žinių kada pagaliau pasirodys rezultatai informatikos VBE?

Prašo rasti visų lyginių fibonači sekos skaičių sumos iki keturių milijonų...

The sum of the squares of the first ten natural numbers is, Kvadratų suma pirmų 10 naturaliųjų skaičių, The square of the sum of the first ten natural numbers is, Pirmų 10 naturaliųjų skaičių sumos kvadratas, Hence the difference between the sum of the squares of the first ten natural numbers and the square of the sum is 3025 385 = 2640. Skirtumas tarp pirmų 10 naturalių skaičių kvadratų sumos ir pirmų dešimt naturalių skaičių sumos kvadrato yra: 3025 - 385 = 2640 Find the difference between the sum of the squares of the first one hundred natural numbers and the square of the sum. Raskit

program programa; var x:integer; begin x := 100; while x >= 0 do begin writeln(x); x -= 4; end; readln; end.

Jei teisingai supratau tau tiesiog reikia skaičiaus liekanos? program programa; var x:integer; ats:integer; begin x := trunc(100/4); //Sveika dalis dalinant 100 is 4 ats := 100 - x*4; //Is simto atimame visus 4 end.

Be to dar kokio taško negautum už tai, kad nekomentuoji :)

record nėra vienmatis :)

ĮVERTINIMAS TAŠKAIS 70 ĮVERTINIMAS BALAIS 71

Turėtų šį penktadienį būti Anglų VBE rezultatai :)

Gal trečiame šios temos lape įkėliau kaip atrodo pirma ir antra programa. Viskas čia įeina į mokyklos kursą, tik, kad perdaug sudėtingai mąstai ;)

Kam žeminti "100%" ribą? Juk jeigu abiturientas laikantis informatikos VBE, negali iškarto suprasti, kad duoti duomenys klaidingi, ir užtrukti daug laiko prie paprastos klaidelės, tai manau čia didelė dalis kaltės yra pačio laikančiojo, nes nebuvo stipriai pasiruošta egzaminui...

Gal gali duoti pavyzdį iš praeitų egzaminų kur jos reikėjo? :)

2LT

Dėkui :), o aš jau maniau, kad kažkur klaida įvelta :D

program programa; const duom = 'U2duom.txt'; rez = 'U2rez.txt'; type taskai = array[1..10] of integer; irasas = record vardai:string[20]; Technika:taskai; Artistiskumas:taskai; end; mas = array[1..100] of irasas; var Poros:mas; Teiseju_kiek, Poru_kiek:integer; Procedure Nuskaitymas(); var D:text; i, j:integer; begin assign(D, duom); reset(D); readln(D, Poru_kiek, Teiseju_kiek); for i:=1 to Poru_kiek do begin readln(D, Poros[i].vardai); for j:=1 to Teiseju_kiek do read(D, Poros[i].Technika[j]); readln(D); for j:=1 to Teise

program programa; const duom = 'U1duom.txt'; rez = 'U1rez.txt'; type mas = array[1..100] of integer; var vyr_k, vyr_d, mot_k, mot_d:mas; Pirstiniu_kiekis:integer; Procedure Nusiskaitymas(); var D:text; i, lytis, ranka, dydis:integer; begin assign(D, duom); reset(D); readln(D, Pirstiniu_kiekis); for i:=1 to Pirstiniu_kiekis do begin readln(D, lytis, ranka, dydis); if lytis = 3 then if ranka = 1 then vyr_k[dydis] += 1 else vyr_d[dydis] += 1 else if ranka = 1 then mot_k[dydis] += 1 else mot_d[dydis] += 1; e

Na ir savo egzaminą įkelsiu :) 1. D 2. 3, 4 3. 1) Padidino lentelės plotą 2) Suliejo langelius 4. 2, 4, 7 5. D 6. 10, 0 7. 1) =max(b3:b8) 2) =min(c3:c8) 3) =average(b3:b8) 8. 1) =$b$3*$b$4*b7*c7 2) =if(b11>=b12;"Taip";"Ne") 9. Hipertekstas, Tinklalapis 10. D 11. C 12. B 13. B 14. D 15. 3, 1, 2 16. C 17. B 18. 5, 5 19. 0, 9 20. Darbas(y, x, x1, y1) 21. 1) B 2) C 22. 7, 11 23. k := 0; for i:=a to b do if x[i] mod 2 = 1 then k += 1;