Narysx

Na taip, čia tiesiog neduos to vieno taško (paskutinio punkto). Bet ar tuos 9 gausiu, kur parašiau? :) 2, manau, D. Tai nulups taškų, aišku :D Jau šito testo pradino, galima sakyt, nepraeini. Neaišku, kaip su kitais duomenimis bus.

Iš tikrųjų tai lengva ta antra užduotis buvo, bet sugebėjau ir aš susimaut... Jau buvau sugalvojęs, kaip viską padaryti, bet pastrigau ties tuo, kaip išrinkti tas tris apskritis iš visų esamų. Sukau ciklus, ir taip, ir taip bandžiau, galiausiai susinervinau ir išvis nieko gero ten nepadariau toj programoj. Visgi, kaip suprantu, turėčiau 9 taškus gauti? Štai "programa": program Miestai; Type irasas = record miestas : string[20]; apskritis : string[13]; gyv : 100..600000; end; Type irasasa = record pav : string[13]; maz : integer; viso : in

Tai kiek tu gavai, tamsta, jei jau teisingai išsprendei? :D Man gaunas 2667

Kiek gavot atsakymą pavyzdinės užduoties (ten kur dalinasi iš 3)? Aš gavau 2667

Ai, čia c++. Maniau, jog pascal :)

Kas tas strmcp?

Turiu klausimą. Mokytoja sakė, jog būtina ne tik f-jas, procecūras komentuot, bet ir kintamuosius. Tarkim, aš juos užrašau taip: var duom, rez : text; n, i, x : integer; e : string; Tai kaip man juos komentuot? Kiekvieną dėt į atskirą eilutę ir šalia rašyt komentarą? var duoom : text; ///bla rez : text; ///bla n : integer; ///bla i : integer; ///bla .........

Kiek pamenu iš kursų, negalima. Turi būti tik vairuotojas

Nelabai supratau, apie ką kalbi :) Aš taip įpratęs dirbt su ciklais, man gerai :P EDIT: dabar jau supratau, apie ką kalbi. Nepagalvojau apie šį variantą, ačiū :)

Dalinuosi žvejų programa. Parašiau per maždaug 30min. Pastangos atrodo nepraėjo veltui, pats jaučiu, kad improvinau nemažai per pastarąsias dienas. :D program Bevardë22; Type irasas = record vardas : string[10]; dienos : 1..30; karosu : integer; karpiu : integer; kuoju : integer; isvis : integer; end; var duom, rez : text; n, i, j, kuris : integer; zvejai : array[1..100] of irasas; karos, karp, kuoj : 0..300; karosS, karpS, kuojS, isvisS : string; procedure skaitymas; begin assign(duom, 'C:\U2.txt'); rese

Jei noriu apsirašyti integer tipo kintamąjį (pascal), bet su min ir max reikšmėm, galiu daryti taip: kintamasis : 1..50; ?

Iš ėsmės po... ką jie ten rašo :) Svarbu padaryt programą veikiančią. Tada praeini visus testus ir gauni vos ne visus taškus (20/25). Tai nematau jokių problemų, taip ir darysiu. Svarbu, kad veiktų, o jei liks laiko, bandysiu paredaguot pagal nurodymus. :)

15lt

Kaip suprantu, iki Birželio 27d. jau bus visi rezultatai? Nes Birželio 27d. paskutinė pakartotinė sesija (gali perlaikyt tie, kas neišlaikė), tai reiškia, kad iki to laiko jau turi būti visi rezultatai žinomi?

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);

Tai kažką ne taip darai turbūt. :) Gal kas galit parašyt koduką, kaip surast dažniausiai/rečiausiai pasikartojantį įrašą masyve?

Na, jei integer darai, tai turi pakeist tą e blabla į, tarkim, e := 5; Turi kode pakeist failų pavadinimus (nurodyt tokius pat, kaip tavo sukurti)

program Bevardė20; var duom, rez : text; e : string; ///jei tavo faile failas.txt bus skaičius, tai keisk į integer tipą begin assign(duom, 'failas.txt'); reset(duom); Readln(duom, e); Writeln(e); close(duom); assign(rez, 'failas2.txt'); rewrite(rez); e := 'eilutė bla bla'; Writeln(rez, e); close(rez); end. programą išsaugok tame pačiame aplankale, kur ir failai, o tada testuok

assign(duom, 'failas.txt'); reset(duom); Readln(duom, e); Writeln(e); close(duom); assign(rez, 'failas2.txt'); rewrite(rez); e := 'eilutė bla bla'; Writeln(rez, e); close(rez);

5lt

Žinau, jau skaičiau internete. Viskas LT nustatyta...

Įsirašau tą sulietuvinimą, vis tiek anglų kalba viskas būna :/

Kur gaut lietuvišką ofisą 2007? Norėčiau pasiruošt prieš egzaminą, bet nerandu parsisiųsti :/

Mano sprendimas su maršrutais (gal kas esat darę): program Bevardė19; Type irasas = record numeris : integer; tipas : string[14]; stoteles : integer; atstumai : array[1..49] of integer; end; Type irasas2 = record skaicius : integer; ilgis : integer; end; var duom, rez : text; n, i, j, priemone, ilgis, ilgiausias, ilgiausioilgis, trumpiausias, trumpiausioilgis : integer; marsrutai : array[1..100] of irasas; tarpas : char; rezultatai : array[1..3] of irasas2; tipas, ilgiausiotipas, trumpiausiotipas : string; begin

Ačiū, bereikalo aš žaidžiau su tais tarpais visada, dabar supratau, kad galima daug paprasčiau užduotis išspręsti. :)