Informatikos VBE 2013

Aš pats manau tik vidutiniškai esu pasiruošęs, jei struktūra bus kaip per bandomąjį, tai spėju 1ą turėčiau padaryt nesunkiai, o kitas kiek jau suspėsiu, tiek parašysiu.

 

Klausimas ne visiškai į temą. O jūs susidūrę su grafikos programavimu? Aš pvz mąstau apie multimedijos studijas ir mano supratimu grafikos programavime nėra tokių loginių užduočių, bet galiu klyst, nesu susidūręs.

logikos visur yra pilną, pažiūrėk kaip FRAKTALUS braižo su programom :rolleyes:

aišku, jeigu kokį multimedijos dizainą studijuosi, ten jos nerasi :lol:

Aj, aš maniau kad tu šitaip nori padaryt ir tau neišeina :)

 

program asgfas;
   // Globalus kintamieji
var a : integer;
   // Perduodam lokalu parametra "duom"
procedure Skaitymas(var duom :text);
begin
 assign(duom, 'k.txt');
 reset(duom);
 readln(duom, a);
 close(duom);
end;
   // Lokalus kintamieji
var duom : text;
begin
 Skaitymas(duom);
end.

Bet realiai vistiek galėtų atimti tašką, pvz 2010 metų atimdavo ne už tai, kad lokalių nepanaudojai, bet už tai, kad nors vieną globalų panaudojai :lol:

logikos visur yra pilną, pažiūrėk kaip FRAKTALUS braižo su programom :rolleyes:

aišku, jeigu kokį multimedijos dizainą studijuosi, ten jos nerasi :lol:

 

 

Bet realiai vistiek galėtų atimti tašką, pvz 2010 metų atimdavo ne už tai, kad lokalių nepanaudojai, bet už tai, kad nors vieną globalų panaudojai :lol:

O tai užduotyje buvo parašyta, kad naudokite tik lokalius kintamuosius?

Aj, aš maniau kad tu šitaip nori padaryt ir tau neišeina :)

 

program asgfas;
   // Globalus kintamieji
var a : integer;
   // Perduodam lokalu parametra "duom"
procedure Skaitymas(var duom :text);
begin
 assign(duom, 'k.txt');
 reset(duom);
 readln(duom, a);
 close(duom);
end;
   // Lokalus kintamieji
var duom : text;
begin
 Skaitymas(duom);
end.

Ne, taip niekad nedarau :lol:

logikos visur yra pilną, pažiūrėk kaip FRAKTALUS braižo su programom :rolleyes:

aišku, jeigu kokį multimedijos dizainą studijuosi, ten jos nerasi :lol:

konkrečiai mąsčiau apie vgtu multimediją ir komp. dizainą. Esu dabar užsireginęs coursera.com, multimedia programming for digital media, bet ten kiek spėjau pažėt viskas supaprastintai kažkiek per processing aplikaciją.

P.S. Ne daug pažėjęs dėl egzaminų.

P.P.S Gal reiktų nedaryt tokio offtopic'o?

Bet va neseniai parašiau pirmą programą su visais lokaliais kintamaisias, tai užtrukau gal tik 1 min ilgiau. Ten programa nelabai ilga - žodžių rikiavimas pagal abėcėlę su duomenų ir rezultatų failais - bet tiesiog viską kopijuoji, palieki tuos pačius pavadinimus. Neverta dėl tų kintamųjų per daug jaudintis. :)

O tai užduotyje buvo parašyta, kad naudokite tik lokalius kintamuosius?

nebuvo, bet vertinimo instrukcijoje -1 taškas už funck/procedūr. globalius kintamuosius(bet tik tuose kur prašė sukurt ir jei testų nepraėjo). O 2013 pavyzdinėj nenuima :rolleyes: .

Nesiparinu aš dėl tu kintamųjų :lol:

Klausimėlis, kaip atskirti kokiu atveju galima naudoti RECORDĄ?pvz rašo:

•Programoje būtinai naudokite vienmačius sveikųjų skaičių masyvus. (T/N)?

•Programoje naudokite sveikųjų skaičių masyvus. (T/N)?

•Programoje naudokite vienmačius masyvus. (T/N)?

Jei sveikųjų skaičių, tada ne ? :lol:

Priminkit kas kaip atimt/sudėt datas ir paverst dienom? visokius vėjus rašau nieks nesigauna man. http://gyazo.com/15e06e6b0c060045d6fcdff162aed2e3.png bandžiau šios dienos datą daryt ir su =Today() ir su =Now(), bet kad vien klaidas meta arba idiotiškas datas, gal primintumėt kas?

 

Klausimėlis, kaip atskirti kokiu atveju galima naudoti RECORDĄ?pvz rašo:

 

Jei sveikųjų skaičių, tada ne ? :lol:

Būna konkrečiai parašyta naudoti įrašus/struktūras

Būna konkrečiai parašyta naudoti įrašus/struktūras

pvz 2012 pirma užduotis nerašo, bet be recordo sunkiai padaryčiau

Priminkit kas kaip atimt/sudėt datas ir paverst dienom? visokius vėjus rašau nieks nesigauna man. http://gyazo.com/15e06e6b0c060045d6fcdff162aed2e3.png bandžiau šios dienos datą daryt ir su =Today() ir su =Now(), bet kad vien klaidas meta arba idiotiškas datas, gal primintumėt kas?

Jei teisingai supratau, tai man tiesiog atėmus iš Today() tos dienos datą, puikiai duoda trukmę dienomis, nematau jokių klaidų. Ar kažka ne taip supratau?

http://oi44.tinypic.com/4vntxv.jpg

pvz 2012 pirma užduotis nerašo, bet be recordo sunkiai padaryčiau

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. :)

program asgfas;

var a : integer;

procedure Skaitymas;
var duom : text;
begin
 assign(duom, 'k.txt');
 reset(duom);
 readln(duom, a);
 close(duom);
end;

begin
 Skaitymas;
end.

o kur čia lokalūs kintamieji ?:D aš taip ir aprašinėju procedūras :D

O tai var duom : text; ne lokalus kintamasis?

pvz 2012 pirma užduotis nerašo, bet be recordo sunkiai padaryčiau

Nerašo vadinasi nereikia. Tiesiog sukuri kelis masyvus duomenims saugoti ir viskas. Aišku būtų daug logiškiau naudoti įrašus/struktūras bet reikalavimai prašo paprastų masyvų :)

Gal kur nors yra 100proc gerai padarytas 2013 metų pavyzdinės užduoties excelis? :)

Gal kur nors yra 100proc gerai padarytas 2013 metų pavyzdinės užduoties excelis? :)

15 puslapis, 3 nuo galo pranešimas. Pagal mane tai viskas gerai ten, nebent surikiuota pirmame lakšte neteisingai, bet ten net nesigilinau, turbūt aš pats surikiavau atvirkščiai negu reikėjo.

pvz 2012 pirma užduotis nerašo, bet be recordo sunkiai padaryčiau

Aš tai šitaip dariau:

program Krepsinis;
type Masyvas = array [4..99] of integer;
   // Procedura skaitanti pradinius duomenis
procedure Skaitymas(var n :integer; var S, Z, Il :Masyvas);
var F :text;
   i, j, laikas, k, t :integer;
begin
Assign(F,'U1.txt');
Reset(F);
ReadLn(F,n);
for i:= 1 to n do
 begin
  Read(F,k,t);
  for j := 1 to t do
   begin
    Read(laikas);
    if (j = 1) and (laikas > 0) then S[k]:= 1;
    if laikas > 0 then Z[k] += laikas
                  else Il[k] += laikas * -1;
   end;
  ReadLn(F);
 end;
Close(F);
end;
   // Funkcija randanti didziausio masyvo elemento indeksa
function Max(A :Masyvas) :integer;
var i,ind :integer;
begin
ind := 1;
for i := 4 to 99 do
 if A[i] > A[ind] then ind := i;
Max := ind;
end;
   // Uzdavinio atsakymu rasymas i faila
procedure Rezultatai(S, Z, Il :Masyvas);
var F :text;
   i :integer;
begin
Assign(F,'U1rez.txt');
Rewrite(F);
for i := 4 to 99 do
 if (S[i] = 1) then Write(F,i,' ');
WriteLn(F);
WriteLn(Max(Z),' ',Z[Max(Z)]);
WriteLn(Max(Il),' ',Il[Max(Il)]);
Close(F);
end;
   // **** PAGRINDINE PROGRAMA ****
var n :integer;
   Startinis,
   Zaista,
   Ilsetasi :Masyvas;
begin
Skaitymas(n,Startinis,Zaista,Ilsetasi);
Rezultatai(Startinis,Zaista,Ilsetasi);
end.

O tai var duom : text; ne lokalus kintamasis?

ne :) lokalūs kintamieji yra pvz function pavyzdys(štai šiti) : integer;

ne :) lokalūs kintamieji yra pvz function pavyzdys(štai šiti) : integer;

hafnis teisus lokalus tas "duom" kintamasis. Kur skliausteliuose yra procedūros/funkcijos parametrai.

ne :) lokalūs kintamieji yra pvz function pavyzdys(štai šiti) : integer;

Kaip bebutu gaila, bet ne :) Visi kintamieji, aprasyti f-joj (pascali ir proceduroj) yra lokalus, nes veikia tik toj funkcijoj, nebent perduodi i kita f-ja per parametrus (tai, apie ka tu kalbi), tai veikia ir kitur. Globalus kintamieji yra aprasyti virs visu f-ju ir yra pasiekiami betkur. Pvz is c++ netgi for (int i = 0; i < n; i++) sitas kintamasis i yra lokalus for cikluj, nes veikia tik jame.

---- [/code]

hmm, niekada nepagalvojau apie tokį sprendimą :rolleyes:, vistiek su recordu man paprasčiau susigaudyt, kiek kas žaidė ir kuris numeris :) man atrodo "•Programoje naudokite vienmačius masyvus." leidžia naudoti rekordą, nesako sveikųjų skaičių, tiesiog vienmačius, juk rekordas vienmatis? Tai tiesiog masyvas su įrašo tipo kintamaisiais :huh:

Kaip bebutu gaila, bet ne :) Visi kintamieji, aprasyti f-joj (pascali ir proceduroj) yra lokalus, nes veikia tik toj funkcijoj, nebent perduodi i kita f-ja per parametrus (tai, apie ka tu kalbi), tai veikia ir kitur. Globalus kintamieji yra aprasyti virs visu f-ju ir yra pasiekiami betkur. Pvz is c++ netgi for (int i = 0; i < n; i++) sitas kintamasis i yra lokalus for cikluj, nes veikia tik jame.

žinosiu, žmonės klysta :lol:

jūs gal kas nors turit tą kreivės grafiką kriterinio vertinimo informatikos egzui? randu matkės, randu lietuvių, randu kitų, bet informatikos niekaip :(

Greitas klausimukas is Cibulinskio kodo, ką reiškia += ? Kažkaip neteko susidurt :D.

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

kintamasis : 1..50; ?

Greitas klausimukas is Cibulinskio kodo, ką reiškia += ? Kažkaip neteko susidurt :D.

a:=a+1;
a+=1;

kitoks užrašas, ta pati reikšmė :)

Gana keistas klausimas, kaip padaryti pirma uzduoti, kur su excel (http://www.nec.lt/failai/3398_2013-IT-pavyz-uzd.pdf psl.5)