Informatikos VBE 2013

Kaip nuskaitinėti eilutę C++? Pavyzdžiui "Varšuva Praha", "Ledai Miau" , kad paimtų kaip vieną elementą?

getline(failo streamas, string kintamasis)

Kaip nuskaitinėti eilutę C++? Pavyzdžiui "Varšuva Praha", "Ledai Miau" , kad paimtų kaip vieną elementą?

Includini stringa, susikuri kintamaji bet koki ir naudoji getline funkcija.

#include <string>;

string vardas;

getline(fd, vardas);

jei reikia gali ir string masyvą pasigamint :)

Includini stringa, susikuri kintamaji bet koki ir naudoji getline funkcija.

 

#include <string>;

 

string vardas;

 

getline(fd, vardas);

 

jei reikia gali ir string masyvą pasigamint :)

bet jeigu eilute tokio tipo Ledai Miau 0 5 6 7 8

bet jeigu eilute tokio tipo Ledai Miau 0 5 6 7 8

Tada turi but kazkoks konkretus skaicius simboliu pavadinui skirta, ar koks skyriklis, zymintis jo pabaiga, ziurint pagal situacija skaitai iki kur reikia.

Tada turi but kazkoks konkretus skaicius simboliu pavadinui skirta, ar koks skyriklis, zymintis jo pabaiga, ziurint pagal situacija skaitai iki kur reikia.

Nu parasyta tarkim skirta 20simboliu pavadinimui.

Nu parasyta tarkim skirta 20simboliu pavadinimui.

char pavadinimas[20+1];

string pavadinimas2;

(failo streamas).get(pavadinimas, 20);

pavadinimas2 = pavadinimas;

char eil[20];

string vardas;

fd.get(eil, 20);

vardas = eil;

Visiškai nesuprantu programavimo. Moku tik parašyti kintamuosius, priskirti tekstinį failą. Kaip per kelias dienas išmokti bent jau pagrindus ar struktūra, kad gaučiau už tai taškų? Excelį ir wordą moku gerai, noriu bent 50 balų surinkti. :)

Visiškai nesuprantu programavimo. Moku tik parašyti kintamuosius, priskirti tekstinį failą. Kaip per kelias dienas išmokti bent jau pagrindus ar struktūra, kad gaučiau už tai taškų? Excelį ir wordą moku gerai, noriu bent 50 balų surinkti. :)

Pabandyk http://programavimopamokos.net/

Visiškai nesuprantu programavimo. Moku tik parašyti kintamuosius, priskirti tekstinį failą. Kaip per kelias dienas išmokti bent jau pagrindus ar struktūra, kad gaučiau už tai taškų? Excelį ir wordą moku gerai, noriu bent 50 balų surinkti. :)

Apsvarstyk gal tada ar tikrai tu nori ta egzamina laikyt ir ar tikrai tau jo reik...

Apsvarstyk gal tada ar tikrai tu nori ta egzamina laikyt ir ar tikrai tau jo reik...

Man to egzamino tikrai nereikia, bet čia principo reikalas išlaikyti, kai prie kompu nuo mažens sėdžiu. Vistiek wordą, excelį ir klausimus padaręs surinksiu kažkiek balų, tik va norėtųsi nepasišiukšlinti. :)

Man to egzamino tikrai nereikia, bet čia principo reikalas išlaikyti, kai prie kompu nuo mažens sėdžiu. Vistiek wordą, excelį ir klausimus padaręs surinksiu kažkiek balų, tik va norėtųsi nepasišiukšlinti. :)

Nu jei bele islaikyti, tai patarimas bus - jeigu nesugalvoji nieko su algoritmais, padaryk kad bent ta default, kur duotas uzduotyje, atsakyma i faila spausdintu, nes uz tai gauni kazkiek tasku.

Gal kas žinot kiek programavimo užduočių bus? Maždaug.

Pabandyk http://programavimopamokos.net/

Ar aš aklas ar durnas ar čia VISIŠKAI nieko naudingo nėra, o tie video kaip sprendžia praeitų metų vbe užduotis net neužbaigti, išvis kažkoks apgailėtinas projektas.

Visiškai nesuprantu programavimo. Moku tik parašyti kintamuosius, priskirti tekstinį failą. Kaip per kelias dienas išmokti bent jau pagrindus ar struktūra, kad gaučiau už tai taškų? Excelį ir wordą moku gerai, noriu bent 50 balų surinkti. :)

išmok skaityti iš failo, rašyti į failą, kaip aprašyti funkcijas, procedūras... Parodyk, kad moki, programa gali visiškai neveikt ir gausi taškų :)

išmok skaityti iš failo, rašyti į failą, kaip aprašyti funkcijas, procedūras... Parodyk, kad moki, programa gali visiškai neveikt ir gausi taškų :)

Dėkingas, o gal žinai, kur rasti kokių basic pamokėlių, kurios ir išmokytų? :)

Dėkingas, o gal žinai, kur rasti kokių basic pamokėlių, kurios ir išmokytų? :)

puslapis gal ne per geriausias, bet neblogai, lietuviškai, aiškina paskalį, man atrodo. Pats nežiūrėjau, tik prasukau.

Nuoroda :)

pažymėk sritis, kuriu tau reikia sukurk stulpelinę diagramą, tada ant to stulpelio, kur peversti reik i linijinę spausk dešinį pelės klavišą (keistį tipą) ir tiek. Jei nesuprasi ar dar turėsi klausimų klausk, turiu padaręs visas šias užduotis(galiu atsiūst visas) :)

Kaip rikiuoti sąrašą pagal mėnesius, kad eitų sausis, vasaris ir t.t.?

Kaip rikiuoti sąrašą pagal mėnesius, kad eitų sausis, vasaris ir t.t.?

pasirinktinis rušiavimas/tvarka/(sausis,vasaris....) ;)

pasirinktinis rušiavimas/tvarka/(sausis,vasaris....) ;)

Dėkui :)

Štai dar viena VBE užduotėle pascal kalba, 2010 2užd. Gimtadienis:

program gimtadienis;
const Cn = 10 ; Cp = 6;
type
   patiekalas = record
   pav : string[15];
   Pkaina : integer;
   end;
Tmass=array[1..Cp] of integer;
svente=array[1..Cn] of patiekalas;
//------------------------------------------------------------------------------
var gimt : svente;
   n, p : integer;
//------------------------------------------------------------------------------
function patkain(a, b : Tmass) : integer;
var i : integer;
begin
patkain:=0;
for i:=1 to n do
patkain+=a[i]*b[i];
end;
//------------------------------------------------------------------------------
procedure skaityk;
var i, j : integer;
   f : text;
   k1, k2 : Tmass;
begin
assign(f,'U2.txt'); reset(f);
readln(f, n, p);
for j:=1 to n do
read(f, k1[j]);
readln(f);
for i:=1 to p do
   begin
       read(f, gimt[i].pav);
           for j:=1 to n do
               read(f, k2[j]);
       gimt[i].Pkaina:=patkain(k1, k2);
       readln(f);
   end;
close(f);
end;
//------------------------------------------------------------------------------
function viensvecio : integer;
var i : integer;
begin
viensvecio:=0;
for i:=1 to n do
viensvecio+= gimt[i].Pkaina;
end;
//------------------------------------------------------------------------------
procedure rasyk;
var i : integer;
  rez: text;
begin
assign(rez,'U2rez.txt'); rewrite(rez);
for i:=1 to p do
writeln(rez, gimt[i].pav,' ', gimt[i].Pkaina);
Writeln(rez, (viensvecio div 100), ' ', (viensvecio - (viensvecio div 100)*100));
close(rez);
end;
//------------------------------------------------------------------------------
begin
skaityk;
rasyk;
end.

Man mokytojas sako kad programavimo užduotys bus gerokai sunkesnes nei prieš praėjusius metus, tipo bus įdėtos olimpiadoms skirtos užduotys , kad daug 100 nebūtų. Bet keista nes egzamino laika sutrumpino, o užduotis pasunkins, arba čia jis tik taip gazdina, kad nieko lengvo nesitikėčiau :D

Man mokytojas sako kad programavimo užduotys bus gerokai sunkesnes nei prieš praėjusius metus, tipo bus įdėtos olimpiadoms skirtos užduotys , kad daug 100 nebūtų. Bet keista nes egzamino laika sutrumpino, o užduotis pasunkins, arba čia jis tik taip gazdina, kad nieko lengvo nesitikėčiau :D

O tai kiek laiko truks egzaminas?

Man tai atrodo, kad laiko niekas netrumpino, nes ant 2012 egzamino parašyta trukmė - 3 val, o per bandomąjį kiek pamenu irgi 3 val buvo.

Man mokytojas sako kad programavimo užduotys bus gerokai sunkesnes nei prieš praėjusius metus, tipo bus įdėtos olimpiadoms skirtos užduotys , kad daug 100 nebūtų. Bet keista nes egzamino laika sutrumpino, o užduotis pasunkins, arba čia jis tik taip gazdina, kad nieko lengvo nesitikėčiau :D

Maža ką jis sakė. Tegu paskui neverkia, kad nieks į fizinius mokslus nestoja, kai prigąsdina :D. Laiko netrumpino, neskleisk gandų : nuoroda :).

p.s. kaip suprast užduotys įdėtos? Jos yra kuriamos, jų iš niekur netraukia, buvo sudaryta speciali uždavinių sudarymo komisija.