Informatikos VBE 2013

Vėl dėl lietuviškų rašmenų rašau.

Radau 9-10 klasės vadovėlyje:

#include <fcntl.h>
#include <io.h>
#include <iostream>

using namespace std;
int main()
{
   _setmode(_fileno(stdout), _O_U16TEXT);
   ...
}

meta klaidą:"_O_U16TEXT was not declared in this scope". Kas čia ne taip? Kokias papildomas eilutes jus naudojate, kad galėtumėte spausdinti ir apdoroti lietuviškus rašmenis?

Sveiki,

Duota (1 ≤ n ≤ 100). Gerai sakykim sukuriu 100 vietų masyvą. Bet ar per tuos testus gali mėginti kišti n > 100 Ar reikia atsižvelgti į tai?. Tada programa pastriktų. Ar aš čia per giliai mastau :|.

Šiandien žiūriu į vertinimo instrukcijas ir iškilo toks klausimas, jei programa parašyta gerai, pateikia visus teisingus testų atsakymus, tačiau tarkim naudojami globalieji kintamieji, nėra kai kurių funkcijų, ar šiaip kokių klaidų įveltą, bet atsakymai teisingi, tai į kodą net neatsižvelgia ir duoda tuos ~20 taškų? O tuos likusius 5 taškus duoda nagrinėdami kodą, kuriuos gauti yra gana paprasta.

Tai realiai gaunasi, apeinant taisykles, užtenka tik teisingą atsakymą be jokių skaičiavimų išspausdinti į failą ir viskas :lol:. Na bet taip niekam nerekomenduočiau daryti.

Šiandien žiūriu į vertinimo instrukcijas ir iškilo toks klausimas, jei programa parašyta gerai, pateikia visus teisingus testų atsakymus, tačiau tarkim naudojami globalieji kintamieji, nėra kai kurių funkcijų, ar šiaip kokių klaidų įveltą, bet atsakymai teisingi, tai į kodą net neatsižvelgia ir duoda tuos ~20 taškų? O tuos likusius 5 taškus duoda nagrinėdami kodą, kuriuos gauti yra gana paprasta.

Taip, jeigu visi testai yra teisingi, tai į kodą neatsižvelgia ir duoda numatytus už testus taškus. O dėl likusių taškų, tai tikrina patį kodą.

Tai realiai gaunasi, apeinant taisykles, užtenka tik teisingą atsakymą be jokių skaičiavimų išspausdinti į failą ir viskas :lol:. Na bet taip niekam nerekomenduočiau daryti.

Nepavyktų, nes failai praeina pro testavimo sistemą ir ji patikrina daugiau nei 10 skirtingų duomenų failo variantų. O be skaičiavimų padaryti viską teisingai yra neįmanoma.

Sveiki,

Duota (1 ≤ n ≤ 100). Gerai sakykim sukuriu 100 vietų masyvą. Bet ar per tuos testus gali mėginti kišti n > 100 Ar reikia atsižvelgti į tai?. Tada programa pastriktų. Ar aš čia per giliai mastau :|.

Per giliai. :rolleyes:

Dar dėl tos globalių/lokaliųjų kintamųjų problemos. Gal sprendimas:

Rašykit Visus kintamuosius kaip globalius, o rezultatų, duomenų failo vardus paimkit į lokalius. Ganėtinai aišku, paprasta, nedaug darbo ir turės užskaityt :D :P

pvz

procedure skaityti;

var f : text;

begin

...

end;

bet nesu labai programuotojas, tai gali netikt :D

Aš tai neįsivaizduoju kodėl čia kyla diskusijos dėl tų globaliųjų ir lokalių kintamųjų. Jei jum daug laiko užima tų lokaliųjų aprašymas, tai darykit viską su globaliais, liks laiko - prirašysit lokalius, neliks - atiduosit su globaliais. Ir jokių taškų vertintojai nenuiminės, nes jei norėtų, kad programoje būtų naudojami tik lokalūs kintamieji tai prie reikalavimų taip ir būtų parašyta: programoje naudokite tik lokaliuosius kintamuosius. Lygiai taip pat kaip parašo programoje naudokite tik masyvus arba įrašus ir pan.

Kaip jaučiatės pasiruošę? :rolleyes: kokių rezultatų tikitės? kokios situacijos jūsų mokyklose, pasiruošimas? Pvz maniškėj iš 5 žmonių (including me) laikančių egzą, programuot 2 temokam :lol:

Kaip jaučiatės pasiruošę? :rolleyes: kokių rezultatų tikitės? :D

Vartau dabar bendrojo kurso tas nesąmones apie informacinę visuomenę ir pan :D. Reikės dar pasikartoti rikiavimo algoritmą, nežinau ką dar ;D. Šiaip su programavimų bėdų neturiu bet vis tiek bijau tik kad laiko gali pritrūkti :)

Dar dėl tos globalių/lokaliųjų kintamųjų problemos. Gal sprendimas:

 

Rašykit Visus kintamuosius kaip globalius, o rezultatų, duomenų failo vardus paimkit į lokalius. Ganėtinai aišku, paprasta, nedaug darbo ir turės užskaityt :D :P

 

pvz

 

procedure skaityti;

var f : text;

begin

...

end;

 

bet nesu labai programuotojas, tai gali netikt :D

Su Pascal taip neina :D

Su Pascal taip neina :D

Kodėl?

Kodėl?

Bandžiau kažkada, nepavyko. Čia matyt duomenų failas turi sietis su pagrindine programa. :huh:

Draugai, paaiskinkit greitai kas yra tie globalieji ir lokalieji kintamieji ?

Programuot gana neblogai moku, kaip mokyklos lygiui, bet kazkaip apie tokius negirdziu daznai :)

Kaip jaučiatės pasiruošę? :rolleyes: kokių rezultatų tikitės? kokios situacijos jūsų mokyklose, pasiruošimas? Pvz maniškėj iš 5 žmonių (including me) laikančių egzą, programuot 2 temokam :lol:

Siunčiu FPS, pabandysiu prisiminti ką buvau išmokęs JKM'e :D

Bandžiau kažkada, nepavyko. Čia matyt duomenų failas turi sietis su pagrindine programa. :huh:

Tai kažką ne taip darei tada, nes tikrai eina.

Draugai, paaiskinkit greitai kas yra tie globalieji ir lokalieji kintamieji ?

 

Programuot gana neblogai moku, kaip mokyklos lygiui, bet kazkaip apie tokius negirdziu daznai :)

Globalieji, tai tokie kuriuos kiekviena funkcija gali pasiekti betkur ir jie aprašomi pagr. programos VAR vietoje. O lokalieji, tai pvz function pavyzdys(štai šitie): integer;

Tai kažką ne taip darei tada, nes tikrai eina.

Pabandžiau - tikrai eina... :o

:lol:

Pabandžiau - tikrai eina... :o

:lol:

Parodyk kaip darai.

Globalieji, tai tokie kuriuos kiekviena funkcija gali pasiekti betkur ir jie aprašomi pagr. programos VAR vietoje. O lokalieji, tai pvz function pavyzdys(štai šitie): integer;

Viskas aisku, dekui. O dabar kas su jais negerai, kuriu ten kur negalima naudoti ?

Parodyk kaip darai.

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.

Tik tą "var duom : text;" galima nukelt į programos viršų prie visų kintamųjų ir niekas nepasikeis. :)

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.

 

Tik tą "var duom : text;" galima nukelt į programos viršų prie visų kintamųjų ir niekas nepasikeis. :)

Nu ir kas tau čia neveikia? Įsikėliau į pascal viskas veikia.

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.

 

Tik tą "var duom : text;" galima nukelt į programos viršų prie visų kintamųjų ir niekas nepasikeis. :)

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

Pabandžiau - tikrai eina... :o

:lol:

Taigi jau sakiau, kad išėjo :)

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

Čia ir nėra lokalių - šiaip tik dabar sužinojau, kad taip galima rašyt. :lol:

Kaip jaučiatės pasiruošę? :rolleyes: kokių rezultatų tikitės? kokios situacijos jūsų mokyklose, pasiruošimas? Pvz maniškėj iš 5 žmonių (including me) laikančių egzą, programuot 2 temokam :lol:

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.

Taigi jau sakiau, kad išėjo :)

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.