Informatikos VBE 2013

Tai tipo negalima naudot sort, max/min_element ir pan funkcijų? Kur taip parašyta? :|

Nu kai aš iš cplusplus.com issitraukdavau visokiu funkcijų man liepdavo perdaryt, nes tipo egze reikia ciklus sukt, miau, miau.

Čia punktas iš VBE programos, tai reiškia, kad reikia tiesiog mokėti naudoti parametrus, tačiau nemanau, jog neturėtų atimti taškų, kai tam tikrose procedūrose jų nepanaudosi. Pavyzdžiui, žiūrint į 2010 m. vertinimo instrukcija, niekur neminima, kad atimami taškai: http://nec.lt/failai/1723_IT_-1-vert-2010.pdf

Minima, įdėmiau paskaityk. 1 taškas atimamas. Tai jau 2,jei abejose yra. Iš šios vertinimo instrukcijos supratau, kad JOKIŲ globaliųjų kintamųjų negalima naudoti procedūrose :(.

Tavo kodas pirmą skaičių visada parašo su tarpu. Tarkim, 1_ (du simboliai išvis). Su kitais skaičiais gerai.

Man visus skaičius rašo be tarpo, tai gal kažką nelabai gerai darai. Kad įsitikintum, po mano kodu parašyk:

 for i := 1 to skaiciukiekis do
   writeln(mas[i], '*');
 readln;

:)

Norėčiau paklausti, ar per egzaminą padarytas Word ar Excel užduotis reikia atspausdinti spausdintuvu ar ne? Bei kaip nurodyti failų pavadinimus?

Įkeliu 2009 m. užduotis ir oficialius sprendimus. Internete neradau, manau, kad daug kam pravers. Kiek matau, tai su komentarais čia nėra persistengiama.

-----

Norėčiau paklausti, ar per egzaminą padarytas Word ar Excel užduotis reikia atspausdinti spausdintuvu ar ne? Bei kaip nurodyti failų pavadinimus?

Iš IT VBE vykdymo instrukcijos:

Kandidatai kompiuteriu atlieka egzamino užduotis, praktinių užduočių failus įrašo į kompiuterio standaus disko

aplanką C:\Egzaminas, suteikdami failams vardus, sudarytus pagal šabloną:

• 
   
  
• tekstų rengyklės užduoties – R01.docx (R01.odt) (R– grupė (1 simbolis) ir eilės numeris (2 simboliai, pvz. 06; 14));
  
• skaičiuoklės užduoties – R01.xlsx (R01.ods) (R– grupė (1 simbolis) ir eilės numeris (2 simboliai, pvz. 06; 14));
  
• programavimo užduoties – R01_1.pas (R01_1.cpp) (R– grupė (1 simbolis), eilės numeris (2 simboliai, pvz. 06; 14), atskiras skaitmuo – praktinės užduoties numeris)
  

.

O apie užduočių spausdinimą niekur neprašyta, todėl tiksliai pasakyti negaliu.

Įkeliu 2009 m. užduotis ir oficialius sprendimus. Internete neradau, manau, kad daug kam pravers. Kiek matau, tai su komentarais čia nėra persistengiama.

 

-----

idomiai, kai kur naudojami globalūs kintamieji :blink:

idomiai, kai kur naudojami globalus kintamieji :blink:

Procedūrose tai jų visai nėra. Pagr. programoje tai jie gali būt naudojami.

Procedūrose tai jų visai nėra. Pagr. programoje tai jie gali būt naudojami.

Vienoj programoj skaityme naudojami, kitoj ne, nesuprantu aš :rolleyes:

tai nuims taškų ar ne jei juos naudosiu :unsure: hmm :D

jei laiko mažai bus nesiterliosiu su lokaliais :lol:

O kažin lapų juodraščiui duos? O jūs nešitės kažkokių papildomų priemonių: skaičiuotuvą ar pan?

O kažin lapų juodraščiui duos? O jūs nešitės kažkokių papildomų priemonių: skaičiuotuvą ar pan?

PRIEMONĖS, KURIOMIS GALI NAUDOTIS KANDIDATAS

 rašymo priemonė (pieštukas, tamsiai mėlynai rašantis rašiklis), trintukas.

O kažin lapų juodraščiui duos? O jūs nešitės kažkokių papildomų priemonių: skaičiuotuvą ar pan?

Mums mokytojas sakė, kad skaičiuotuvo negalima nešt... Aceit galima bus PC skaičiuotuvu naudotis. Aš tušinuką tai pasiimsiu.

Vienoj programoj skaityme naudojami, kitoj ne, nesuprantu aš :rolleyes:

tai nuims taškų ar ne jei juos naudosiu :unsure: hmm :D

jei laiko mažai bus nesiterliosiu su lokaliais :lol:

:D Aš irgi. Bet manau, kad nebus dbr sunkus egzas. Bent jau bandomasis tikrai nebuvo. O bandomojo vertinimo instrukcijose nebuvo nieko parašyta apie procedūrų kintamuosius.

Aišku, tada aš ir tik tušinuką pasiimsiu.

aš nesupratau bandomajam "bajerio", užduotis sako :

1. Skaičių dalumas 
Maksimalus vertinimas – 5 taškai 
Sveikasis skaičius dalijasi iš 3, kai jo visų skaitmenų suma dalijasi iš 3 be liekanos. Parašykite 
programą, kuri surastų kiek yra natūralių keturženklių skaičių (nuo 1000 iki 9999 imtinai), kurie dalijasi 
iš 3 be liekanos. 
Rezultatai 
Rezultatą priskirkite kintamajam rezultatas. 
Nurodymai 
 Programoje naudokite sveikojo tipo kintamuosius. 
 Programoje nenaudokite sakinių, skirtų darbui su ekranu

Prasuki ciklą su if'u tiesiog ir gauni atsakymą. O vertinimo instrukcijoj parašytą :

Pateiktas teisingas sprendimo algoritmas (patikrinami visi nurodyto 
intervalo skaičiai (ciklas): 
 Teisingai skaidomi skaičiai skaitmenimis. 
 Teisingai skaičiuojama skaičiaus skaitmenų suma. 
 Teisingai skaičiuojamas skaičių, kurie dalijasi iš 3, kiekis: pradinė
kintamojo reikšmė, sąlygos sakinys (sąlyga, rezultato reikšmės 
didinimas). 
Galimi ir alternatyvūs sprendimai.

Alternatyvūs sprendimai reiškia, kad ir mano sprendimo būdas geras? :lol:

aš nesupratau bandomajam "bajerio", užduotis sako :

1. Skaičių dalumas 
Maksimalus vertinimas – 5 taškai 
Sveikasis skaičius dalijasi iš 3, kai jo visų skaitmenų suma dalijasi iš 3 be liekanos. Parašykite 
programą, kuri surastų kiek yra natūralių keturženklių skaičių (nuo 1000 iki 9999 imtinai), kurie dalijasi 
iš 3 be liekanos. 
Rezultatai 
Rezultatą priskirkite kintamajam rezultatas. 
Nurodymai 
 Programoje naudokite sveikojo tipo kintamuosius. 
 Programoje nenaudokite sakinių, skirtų darbui su ekranu

Prasuki ciklą su if'u tiesiog ir gauni atsakymą. O vertinimo instrukcijoj parašytą :

Pateiktas teisingas sprendimo algoritmas (patikrinami visi nurodyto 
intervalo skaičiai (ciklas): 
 Teisingai skaidomi skaičiai skaitmenimis. 
 Teisingai skaičiuojama skaičiaus skaitmenų suma. 
 Teisingai skaičiuojamas skaičių, kurie dalijasi iš 3, kiekis: pradinė
kintamojo reikšmė, sąlygos sakinys (sąlyga, rezultato reikšmės 
didinimas). 
Galimi ir alternatyvūs sprendimai.

Alternatyvūs sprendimai reiškia, kad ir mano sprendimo būdas geras? :lol:

Už tavo sprendimo būdą (tokį dariau ir aš), buvo rašomi 3 taškai iš 5 galimų. Kvaila užduotis, keikė ją ir mokytojai.

Už tavo sprendimo būdą (tokį dariau ir aš), buvo rašomi 3 taškai iš 5 galimų. Kvaila užduotis, keikė ją ir mokytojai.

Bet ten tiesiog pasakyta, kada skaičius dalus, nepasakyta, kaip sręsti... Titkiuos tokių prikolų per egzą nebus :huh:

aš nesupratau bandomajam "bajerio", užduotis sako :

1. Skaičių dalumas 
Maksimalus vertinimas – 5 taškai 
Sveikasis skaičius dalijasi iš 3, kai jo visų skaitmenų suma dalijasi iš 3 be liekanos. Parašykite 
programą, kuri surastų kiek yra natūralių keturženklių skaičių (nuo 1000 iki 9999 imtinai), kurie dalijasi 
iš 3 be liekanos. 
Rezultatai 
Rezultatą priskirkite kintamajam rezultatas. 
Nurodymai 
 Programoje naudokite sveikojo tipo kintamuosius. 
 Programoje nenaudokite sakinių, skirtų darbui su ekranu

Prasuki ciklą su if'u tiesiog ir gauni atsakymą. O vertinimo instrukcijoj parašytą :

Pateiktas teisingas sprendimo algoritmas (patikrinami visi nurodyto 
intervalo skaičiai (ciklas): 
 Teisingai skaidomi skaičiai skaitmenimis. 
 Teisingai skaičiuojama skaičiaus skaitmenų suma. 
 Teisingai skaičiuojamas skaičių, kurie dalijasi iš 3, kiekis: pradinė
kintamojo reikšmė, sąlygos sakinys (sąlyga, rezultato reikšmės 
didinimas). 
Galimi ir alternatyvūs sprendimai.

Alternatyvūs sprendimai reiškia, kad ir mano sprendimo būdas geras? :lol:

Aš irgi perskaitęs užduotį pagalvojau kam dar čia skaityti tuos skaičius? Paprastai ciklą prasukau ir viskas. Mokytojas sako kad užduotis prašo skaidyt ir pan, bet nesutikau su juo :D. Nežinau kaip čia geriau iš tikrųjų ;)

Dar klausimės: Savo darbo rezultatus įrašykite į kompiuterio standžiojo disko aplanką C:\Egzaminas. Reikia išsaugoti tik .pas failą, paskui kompiliuojant ten jų priauga juk :lol:, pratrinti nereikalingus ?

Dar klausimės: Savo darbo rezultatus įrašykite į kompiuterio standžiojo disko aplanką C:\Egzaminas. Reikia išsaugoti tik .pas failą, paskui kompiliuojant ten jų priauga juk :lol:, pratrinti nereikalingus ?

Nereikia trinti. Gi vis tiek paskui doc, xlsx ir pas failus kelsi į USB ir niekam nemaišys tos "šiukšlės" C:\Egzaminas kataloge.

Galit numest nuorodą, kur jūs radot, kad atima taškus už globalių kintamųjų naudojimą? 2013 m. pavyzdinės užduoties vertinimo instrukcijoje teparašyta:

Rašybos taisyklės ir programos rašymo stilius. 1

Netikiu, kad dėl globalių kintamųjų atimtų tą tašką, jei visa kita OK.

Man visus skaičius rašo be tarpo, tai gal kažką nelabai gerai darai. Kad įsitikintum, po mano kodu parašyk:

 

 for i := 1 to skaiciukiekis do
   writeln(mas[i], '*');
 readln;

:)

Na, man su žvaigždutėm atspausdina. Nežinau, gal ką ne taip darau

    for i := 1 to p do
   begin
       Readln(duom, e);
       pav := Copy(e, 0, 15);
       patiekalai[i].pav := pav;
       Delete(e, 0, 17);

       j := 0;
       kiekskc := 0;
       while j <= length(e) do
       begin
           if e[j] <> ' ' then
           begin
               kiekskc := kiekskc + 1;
               patiekalai[i].atskirai[kiekskc] := e[j];
               while (j < length(e)) AND (e[j] <> ' ') do
                   begin
                       j := j + 1;
                       if e[j] <> ' ' then patiekalai[i].atskirai[kiekskc] := patiekalai[i].atskirai[kiekskc] + e[j];
                   end;
           end;
           j := j + 1;
       end;
   end;
   close(duom);

Na, man su žvaigždutėm atspausdina. Nežinau, gal ką ne taip darau

 

    for i := 1 to p do
   begin
       Readln(duom, e);
       pav := Copy(e, 0, 15);
       patiekalai[i].pav := pav;
       Delete(e, 0, 17);

       j := 0;
       kiekskc := 0;
       while j <= length(e) do
       begin
           if e[j] <> ' ' then
           begin
               kiekskc := kiekskc + 1;
               patiekalai[i].atskirai[kiekskc] := e[j];
               while (j < length(e)) AND (e[j] <> ' ') do
                   begin
                       j := j + 1;
                       if e[j] <> ' ' then patiekalai[i].atskirai[kiekskc] := patiekalai[i].atskirai[kiekskc] + e[j];
                   end;
           end;
           j := j + 1;
       end;
   end;
   close(duom);

Man tik pažvelgus pirmas įspūdis, kad ten Copy ir Delete funkcijose reikia pradėt ne nuo "nulinės", o nuo pirmos pozicijos trinti. Na, tarkim Delete(e, 1, 17), o ne Delete(e, 0, 17). Išvis galima apsieit be šitų funkcijų, nes gali būti, kad per egzą sumaišysi, kur kokį parametrą rašyti.

Man tik pažvelgus pirmas įspūdis, kad ten Copy ir Delete funkcijose reikia pradėt ne nuo "nulinės", o nuo pirmos pozicijos trinti. Na, tarkim Delete(e, 1, 17), o ne Delete(e, 0, 17). Išvis galima apsieit be šitų funkcijų, nes gali būti, kad per egzą sumaišysi, kur kokį parametrą rašyti.

o kam šito reikia? Juk iš failo skaitant pats pasirenki ar kaip stringą išsaugot ar kaip integer :unsure: . Išsamiau jeigu galima :lol: (aš apie šitas jūsų skaičių išskyrimo procedūras)

Man tik pažvelgus pirmas įspūdis, kad ten Copy ir Delete funkcijose reikia pradėt ne nuo "nulinės", o nuo pirmos pozicijos trinti. Na, tarkim Delete(e, 1, 17), o ne Delete(e, 0, 17). Išvis galima apsieit be šitų funkcijų, nes gali būti, kad per egzą sumaišysi, kur kokį parametrą rašyti.

Paredagavau tavo kodo fragmentą. Dabar veikia. Tik pakeisk "mas" savo įrašo tipo kintamuoju. Tavo pagrindinė bėda buvo, kad ištrindavai e su Delete, o po to vis vien į ją kreipdavaisi cikle.

       pav := Copy(e, 1, 15);
       Delete(e, 1, 17);
       j := 1;
       kiekskc := 0;
       while j <= length(pav) do
       begin
           if pav[j] <> ' ' then
           begin
               kiekskc := kiekskc + 1;
               mas[kiekskc] := mas[kiekskc] + pav[j];
               while (j < length(pav)) AND (pav[j] <> ' ') do
                   begin
                       j := j + 1;
                       if pav[j] <> ' ' then mas[kiekskc] := mas[kiekskc] + pav[j];
                   end;
           end;
           j := j + 1;
       end;

o kam šito reikia? Juk iš failo skaitant pats pasirenki ar kaip stringą išsaugot ar kaip integer :unsure: . Išsamiau jeigu galima :lol: (aš apie šitas jūsų skaičių išskyrimo procedūras)

Aš nežinau kam čia to reikia, bet, matyt, jo užduotis taip prašo.

Beje, skaičius iš eilutės taip paprastai po 1 gali nuskaityti tik kaip integer. Jei nori string tipo skaičių be tarpų ir kitų ženklų, tuomet gali tekti paplušėti, kaip mūsų atveju.

Bet bent jau aš tai nusiskaityčiau kaip integer ir tada pritaikyčiau procedūrą Str, kuri pakeičia integer į string:

Str(sk, a);

Čia sk - integer, o a - string tipo kintamieji.

Nereikia trinti. Gi vis tiek paskui doc, xlsx ir pas failus kelsi į USB ir niekam nemaišys tos "šiukšlės" C:\Egzaminas kataloge.

Kaip suprasti paskui failus kelsi į USB?