Pereiti prie turinio

Informatikos egzaminas


Rekomenduojami pranešimai

Na ash irgi tikiuos kazkiek pasiekt, bet susimausiu su stilium :)

Nu man atrodo del stiliaus jie nebus labai griezti. Siaip stilius labai subjektivus dalykas, del jo visada gali paduoti apeliecija :huh: ir laimeti mano nuomone :mellow:

Redagavo opengl
Nuoroda į pranešimą
Dalintis kituose puslapiuose

O kur galeciau rast vertinimo praktines uzduoties. Kiek uz ka duoda.

 

Kalbi apie šitą:

 

http://www.egzaminai.lt/EasyAdmin/sys/files/inf-valst.pdf

 

?

 


Programos vertinimas
Kas vertinama Taškai
Tinkami programos darbo rezultatai 6
Duomenų skaitymas iš failo 2
Lygiagrečiai sujungtų varžų grandies bendros varžos reikšmės skaičiavimas 3
Visos grandinės varžos skaičiavimas 2
Programos struktūra 1
Rezultatų surašymas į failą 1
Programavimo stilius 2
Iš viso 17

Kas vertinama Taškai
Tinkami programos darbo rezultatai 12
Pagrindinė programa 3
Duomenų skaitymo iš failo į masyvą procedūra 4
Rezultatų skaičiavimo procedūra 4
Programos
tekstas
Rezultatų rašymo į failą procedūra 4
Duomenų tipai ir struktūros, kintamųjų aprašymas 4
Programavimo stilius (rašybos taisyklės, komentarai, prasmingi vardai, programos
struktūriškumas)
2
Iš viso 33

Redagavo DjiXas
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Kalbi apie šitą:

 

http://www.egzaminai.lt/EasyAdmin/sys/files/inf-valst.pdf

 

?

 


Programos vertinimas
Kas vertinama Taškai
Tinkami programos darbo rezultatai 6
Duomenų skaitymas iš failo 2
Lygiagrečiai sujungtų varžų grandies bendros varžos reikšmės skaičiavimas 3
Visos grandinės varžos skaičiavimas 2
Programos struktūra 1
Rezultatų surašymas į failą 1
Programavimo stilius 2
Iš viso 17

Kas vertinama Taškai
Tinkami programos darbo rezultatai 12
Pagrindinė programa 3
Duomenų skaitymo iš failo į masyvą procedūra 4
Rezultatų skaičiavimo procedūra 4
Programos
tekstas
Rezultatų rašymo į failą procedūra 4
Duomenų tipai ir struktūros, kintamųjų aprašymas 4
Programavimo stilius (rašybos taisyklės, komentarai, prasmingi vardai, programos
struktūriškumas)
2
Iš viso 33

 

 

Butent shito, aciu.

Visgi stilius ir kitas meshlas nedaug duoda. Pagrinde tinkamas darbas programos :huh:

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Valstybini laikysiu, jei gerai pamenu, Kauno Jezuitų gimnazijoje. Kazkiek kartojausi, prisiminiau ka pamirses esu, pvz:

 

Ka sitas isves: writeln(0.155:7:2);

 

A:booleanas

A:= (10=10) xor (5=5);

ar A bus true ar false?

 

Viena eilute neteisingai parasyta, kuri?

writeln('20a', 10, '30b');

writeln('20a', '10', '30b');

writeln('20', '10', '30');

writeln(20, 10, 30);

writeln('20a'+ 10+ '30b');

writeln('20'+ '10'+ '30');

writeln(20+ 10+ 30);

writeln('20a'+ '10'+ '30b');

 

Noreciau gerai islaikyt, bet manau zioplu klaidu pridarysiu taip kaip matkes valstybiniam...

Nuoroda į pranešimą
Dalintis kituose puslapiuose

program TrysBylos;
var prad, { pradinių duomenų byla }
pirma, antra: text; { rezultatų bylos }
x, y: integer; { perskaityti skaičiai }
begin
assign(prad, 'C:\DUOMENYS\SKAICIAI.TXT');
reset(prad);
assign(pirma, 'C:\DUOMENYS\PIRMA.TXT');
rewrite(pirma);
assign(antra, 'C:\DUOMENYS\ANTRA.TXT');
rewrite(antra);
read(prad, x);
writeln(pirma, x);
read(prad, x, y);
writeln(antra, x, y: 10)
end.

 

Kodėl toks kodas neveikia? Nieko neįrašo į tas bylas (kopijuota iš pavyzdžio)...

Redagavo DjiXas
Nuoroda į pranešimą
Dalintis kituose puslapiuose

program TrysBylos;
var prad, { pradinių duomenų byla }
pirma, antra: text; { rezultatų bylos }
x, y: integer; { perskaityti skaičiai }
begin
assign(prad, 'C:\DUOMENYS\SKAICIAI.TXT');
reset(prad);
assign(pirma, 'C:\DUOMENYS\PIRMA.TXT');
rewrite(pirma);
assign(antra, 'C:\DUOMENYS\ANTRA.TXT');
rewrite(antra);
read(prad, x);
writeln(pirma, x);
read(prad, x, y);
writeln(antra, x, y: 10)
end.

 

Kodėl toks kodas neveikia? Nieko neįrašo į tas bylas (kopijuota iš pavyzdžio)...

 

 

dar pridek : close(pirma);

close(antra);

Nuoroda į pranešimą
Dalintis kituose puslapiuose

M... pagalbos reikia :-)

 

 

Te6.txt užrašyta tokia skaičių eilutė: 13 16 -5 9 4

 

program Te6;
var a, b, c, d : integer;
t : boolean;
F : text;
begin
Assign(F, 'Te6.txt'); Reset(F);
Read(F, a, b);
t := a > b;
if t then Read(F, c, d, a)
else Read(F, a, c, d);
Write(a:4, b:4, c:4, d:4, t:8);
Close(F);
end.

 

Tai pagal mano supratimą:

 

Read F,a b, tai nuskaito 13 ir 16?

Tada true jeigu 13 > 16, tai reiskia false, tada einam iškarto prie "else", taip?

 

else Read(F, a, c, d); nuskaito 13 -5 9?

ir parašo 13 16 -5 9 FALSE ??? Wtf

 

Kam tada į kodą žiūrėt, jeigu pamatai write ant galo ir viskas, kam ten skaito a, c ,d dar? M

 

A, :-) Pasirodo juk nėra reset... Skaitome toliau. -5 16 9 4 FALSE

Redagavo DjiXas
Nuoroda į pranešimą
Dalintis kituose puslapiuose
Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...