Informatikos VBE 2013

Kaip suprasti paskui failus kelsi į USB?

reikės įkelti failus į USB, tada vykdytojas įkels viską į KELTĄ. Idomu, šiemet spausdins programos kodą ar ne, niekur nerandu tokio punkto?

Kaip suprasti paskui failus kelsi į USB?

Paskui padarytus word, excel ir pascal failus sukelsi į atmintuką. Plačiau: http://www.nec.lt/failai/3416_IT_instrukcija_2013_03_07.pdf

reikės įkelti failus į USB, tada vykdytojas įkels viską į KELTĄ. Idomu, šiemet spausdins programos kodą ar ne, niekur nerandu tokio punkto?

O tą raktą duos?

O tą raktą duos?

Tai aišku :)

reikės įkelti failus į USB, tada vykdytojas įkels viską į KELTĄ. Idomu, šiemet spausdins programos kodą ar ne, niekur nerandu tokio punkto?

O ar tai ką nors keičia, jei atspausdins?

Kažkur skaičiau, kad bus reikalingas spausdinimo serveris bendras... Tai kažin kam jis tada. Be to, kažkada per pamoką nugirdau, kad reikės atspausdinti Word dokumentą, ant jo pasirašyti. Na bet čia jau matyt "persiklausiau".

 

O ar tai ką nors keičia, jei atspausdins?

taip, jeigu failai bus sugadinti arba pamesti, tikrins spausdintą variantą, anksčiau taip būdavo.

į voką įdeda atsakymų lapus, kodų lapą, nepanaudotus užduoties sąsiuvinius ir atsakymų lapus, voką su

atsargine užduotimi kompaktiniuose diskuose, kandidatų atmintukus (tik tų kandidatų atmintukus, kurių

praktinių užduočių failai nebuvo įkelti į duomenų perdavimo sistemą KELTAS), vykdymo protokolo vieną

egzempliorių; užklijuoja voką;

va radau, kodų lapą įdės, not sure kokių :lol:

O jei spausdins, tai jie spausdins kažin ar mums patiems tai daryti reikės?

Kažkur skaičiau, kad bus reikalingas spausdinimo serveris bendras... Tai kažin kam jis tada. Be to, kažkada per pamoką nugirdau, kad reikės atspausdinti Word dokumentą, ant jo pasirašyti. Na bet čia jau matyt "persiklausiau".

mano mokytojas sakė, jog gali būti, kad reikės ką nors atspausdint.

taip, jeigu failai bus sugadinti arba pamesti, tikrins spausdintą variantą, anksčiau taip būdavo.

O kodėl gi ne? Manau, ir jiems patiems, vertintojams, pratestavus yra patogiau skaityti iš lapo - gi akys labai pavargsta žiūrėt vien į PC.

O kodėl gi ne? Manau, ir jiems patiems, vertintojams, pratestavus yra patogiau skaityti iš lapo - gi akys labai pavargsta žiūrėt vien į PC.

tu tiesiog klausei

O ar tai ką nors keičia, jei atspausdins?

tu tiesiog klausei . Tai ir sakau, kad plius apsidraudžia neprarast duomenų

Viskas OK, tik maniau, kad atspausdinimas reikalingas patiems vertintojmas, bet, kaip sakai, ir mums.

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;

 

 

 

 

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.

O kaip tuo paprastu būdu nuskaitytum po vieną, jei reikėtų integer? :)

O kaip tuo paprastu būdu nuskaitytum po vieną, jei reikėtų integer? :)

Ligi eilutės galo skaityčiau. :) Bet aš nežinau, kokia tavo uždavinio sąlyga, gal čia netinka.

Nors dabar galvoju, kad gal ir nepavyktų šitaip. Eilutė būtinai turėtų baigtis skaičiumi :lol:

Ligi eilutės galo skaityčiau. :) Bet aš nežinau, kokia tavo uždavinio sąlyga, gal čia netinka.

 

Nors dabar galvoju, kad gal ir nepavyktų šitaip. Eilutė būtinai turėtų baigtis skaičiumi :lol:

Ten kur davei man pataisytą fragmentą, tai netaip turi būt ;D Tas delete ok yra, nes mano eilutė tokia:

'Pavadnimas 1 5 6 23 5'

Pavadinimas (15 simbolių), tarpas ir 6 skaičiai, tarp kurių yra tarpai (1 arba daugiau). Dėl to aš pirma nutrinu pavadinimą ir palieku tik eilutę su skaičiais (e). Ir tada noriu su ja dirbti, kad ištraukt visus skaičius, bet nelabai gaunasi. :)

Ten kur davei man pataisytą fragmentą, tai netaip turi būt ;D Tas delete ok yra, nes mano eilutė tokia:

'Pavadnimas 1 5 6 23 5'

Pavadinimas (15 simbolių), tarpas ir 6 skaičiai, tarp kurių yra tarpai (1 arba daugiau). Dėl to aš pirma nutrinu pavadinimą ir palieku tik eilutę su skaičiais (e). Ir tada noriu su ja dirbti, kad ištraukt visus skaičius, bet nelabai gaunasi. :)

Tai išvis paprasta čia. :) Reikia tiesiog nusiskaityti iš pradžių pavadinimą su string[15] tipo kintamuoju, o tada prasuk for ciklą nuo 1 iki 6 nuskaitydamas kaip integer tuos skaičius. Tarpai tarp skaičių neturi reikšmės. :)

Tai išvis paprasta čia. :) Reikia tiesiog nusiskaityti iš pradžių pavadinimą su string[15] tipo kintamuoju, o tada prasuk for ciklą nuo 1 iki 6 nuskaitydamas kaip integer tuos skaičius. Tarpai tarp skaičių neturi reikšmės. :)

Juk jei suksiu ciklą nuo 1 iki 6, tai man pirmas bus skaičius, antras tarpas ir t.t., tuomet pasibaigs ciklas, o dar bus likusių skaičių, nes tarpus taip pat suka tame cikle. :?

Juk jei suksiu ciklą nuo 1 iki 6, tai man pirmas bus skaičius, antras tarpas ir t.t., tuomet pasibaigs ciklas, o dar bus likusių skaičių, nes tarpus taip pat suka tame cikle. :?

Nesvarbu kiek tarpų, jei nebus kitokios rūšies ženklų tarp skaičių, tai skaitys vien skaičius.

Nesvarbu kiek tarpų, jei nebus kitokios rūšies ženklų tarp skaičių, tai skaitys vien skaičius.

test := '5 8 1 3 4 7';

for i := 1 to 6 do

Writeln(test);

išspausdino ir tarpus. Ar tu ne tai turėjai omeny?

test := '5 8 1 3 4 7';

for i := 1 to 6 do

Writeln(test);

išspausdino ir tarpus. Ar tu ne tai turėjai omeny?

EDIT: Tu nenusiskaityk tų skaičių kaip string, o pirma iš duomenų failo nuskaityk pavadinimą su string[15], o tada skaityk skaičius po 1 į integer masyvą.

gal kas turi padares 2013 pavyzdine exel uzduoti? is cia www.nec.lt/failai/3398_2013-IT-pavyz-uzd.pdf

EDIT: Tu nenusiskaityk tų skaičių kaip string, o pirma iš duomenų failo nuskaityk pavadinimą su string[15], o tada skaityk skaičius po 1 į integer masyvą.

Nelabai supratau, gal galėtum paprastą pavyzduką užrašyt? Būčiau labai dėkingas.

Nelabai supratau, gal galėtum paprastą pavyzduką užrašyt? Būčiau labai dėkingas.

Jei aš gerai supratau tavo užduotį, tai tarkim taip. Eilutė duomenų faile:

Eilutespavadini 14      132    8       61    18   4

Tai tuomet skaitai eilutę taip:

read(duom, pavadinimas);  //pavadinimas string[15] tipo 
for i := 1 to 6 do
 read(duom, mas[i]);  // mas - integer tipo masyvas

Jei aš gerai supratau tavo užduotį, tai tarkim taip. Eilutė duomenų faile:

Eilutespavadini 14      132    8       61    18   4

Tai tuomet skaitai eilutę taip:

read(duom, pavadinimas);  //pavadinimas string[15] tipo 
for i := 1 to 6 do
 read(duom, mas[i]);  // mas - integer tipo masyvas

Ačiū, bereikalo aš žaidžiau su tais tarpais visada, dabar supratau, kad galima daug paprasčiau užduotis išspręsti. :)

Ačiū, bereikalo aš žaidžiau su tais tarpais visada, dabar supratau, kad galima daug paprasčiau užduotis išspręsti. :)

aš galvoju kokį tu čia dviratį išradinėji :lol:

Ai, tai visgi galima naudot globalius kintamuosius programoje ir neprarast taškų? :blink: