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.

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