Informatikos VBE 2013

Gal kas žino ar universitete programavimą nuo nulio moko, nes šis egzaminas parodė kad nelabai gaudaus. O tai daug ką keičia.

taip, nuo 0

Gal kas žino ar universitete programavimą nuo nulio moko, nes šis egzaminas parodė kad nelabai gaudaus. O tai daug ką keičia.

nuo nulio, jei patinka susigaudysi :)

Taip, va būtent to aš ir nepadariau. Gal gali įmest kodą, kaip sudarei apskričių masyvą?

Labai tyngiu dabar rašyt, bet ten reikia eit per visas miesto apskritis ir tikrint ar tokia jau yra apskričių masyve, jeigu nėra tai pridedi. Arba išsirikiuoti miestų masyvą pagal apskritis ir tada tikrint ar sekanti apskritis tokia pat ir dėti į apskričių masyvą.

Antra užduotis nebuvo labai jau sunki, bet stresas padarė savo, kai laikrodyje tirpo minutes, ir visiškai užduoties išspręsti nepavyko .

Dabar žiūrėdamas į kodą matau, kad dviejose vietose nepadėjau = ženklo šalia lyginimo, vienoje - vietoj i parašiau 1 ir rikiavime void funkcijoje vietoj == parašiau =.

Tokios vaikiškos klaidos kainavo bent jau 8 taškus ir 100-tuką, kuris būtų buvęs puikus atlygis už visą įdėtą darbą.

Pasedėjau 5min. paanalizavau užduotį ir sugalvojau sprendimą, tikrai nesunku, kai susigaudai :D :lol: (gaila, kad ne per egzą) :D

Na ką, šiaip egzaminas nepasirodė sunkus, prarasiu gal kokį tašką teste, tada su word, excel ir pirma programavimo užduotimi manau viskas gerai. Gaila tik, kad pusvalandį galvojęs kaip atrinkt apskritis sugalvojau likus 15min tai aišku nebespėjau iki galo padaryt :D nu bet šiaip viską padariau išskyrus nesudėjau kiek išviso apskrity gyventojų ir nesurikiavau pagal abėcėlę, tai kokie 5-6 taškai minus. Nu vis dar neprarandu vilties 100 gaut :))

Sveiki,

padariau tokią klaidelę. Parašiau fd.get(duom.Mies, 20); fd.get(duom.Apskr,13); . Kai reikėjo vietoj 20 parašyti 21, o 13, 14. Taigi pas mane paima dabar 19 ir 12 simbolių. Visa kita programoje gerai. Įdomu kiek taškų prarasiu? Ar prarasiu keletą taškų už nuskaityma, visus taškus už nuskaitymą, ar dar kažkiek, nors ir visa kita gerai?

Kaip prisijungti prie rezultatai.nec.lt? Mokyklos duotą 5 skaitmenų kodą reikia įvesti ir į kodo lauką, ir į slaptažodžio lauką? Ar slaptažodis tai pavardė? :unsure:

Kaip prisijungti prie rezultatai.nec.lt? Mokyklos duotą 5 skaitmenų kodą reikia įvesti ir į kodo lauką, ir į slaptažodžio lauką? Ar slaptažodis tai pavardė? :unsure:

Slaptažodį bent mum sakė, kad 4 paskutiniai asmens kodo skaičiai.

P.S. Ar čia aš kažko nesuprantu ar čia tikrai taip durnai skaičiuoja vbe balus? Čia kažkada įmestoj skaičiuoklėj IT visai atskirta ir pvz su 50t tik 35 balai? Galit paaiškint kodėl?

kai fizikoj iš 100 su 50t net 48 vbe (čia kaip palyginimui). kas susigaudo šitam skaičiavime? ;)

Slaptažodį bent mum sakė, kad 4 paskutiniai asmens kodo skaičiai.

 

P.S. Ar čia aš kažko nesuprantu ar čia tikrai taip durnai skaičiuoja vbe balus? Čia kažkada įmestoj skaičiuoklėj IT visai atskirta ir pvz su 50t tik 35 balai? Galit paaiškint kodėl?

kai fizikoj iš 100 su 50t net 48 vbe (čia kaip palyginimui). kas susigaudo šitam skaičiavime? ;)

Taip, 50t tik 35 balai. :) Va

http://www.nec.lt/failai/3424_11_priedas.pdf

program Bevardė4;
Type miestai=record
           vardas:string[20]; //Miesto vardas
           aps:string[13]; //Apskrities pavadinimas
           kiek:longint; //Gyventojų skaičius
       end;
   apskritis=record
           vardas:string[13]; //Apskrities vardas
           maz:longint; //Mažiausio apskrities miesto gyventojų skaičius
           viso:longint; //Apskrities gyventojų kiekis
       end;
   masmiest=array[1..100] of miestai;
   masapskr=array[1..100] of apskritis;
//Pagal salygą, Lietuvoje yra 10 apskričių, tad:
const apskriciukiekis=10;
//Skaitymo procedūra------------------------------------------------------------
Procedure skaitymas(var a:masmiest; var n:integer);
var i:integer; fd:text;
   begin
       Assign(fd, 'U2.txt'); reset(fd);
       Readln(fd, n);
       For i:=1 to n do Readln(fd, a[i].vardas, a[i].aps, a[i].kiek);
       close(fd);
   end;
//Apskričių radimas-------------------------------------------------------------
//a-miestų masyvas, b-apskričių masyvas, k-duotų apskričių kiekis, n-miestų kiekis
Procedure apskriciuieskojimas(var b:masapskr; a:masmiest; var k:integer; n:integer);
var i,j,x:integer;
   begin
       k:=1;
       For i:=1 to n do
           begin
               x :=0;
               For j:=1 to apskriciukiekis do if b[j].vardas=a[i].aps then x:=1;
               If x=0 then
                   begin
                       b[k].vardas :=a[i].aps;
                       k:=k+1;
                   end;
           end;
       k:=k-1;
   end;
//Mažiausio miesto radimas ir priskyrimas apskričiai----------------------------
Procedure maziausias(var b:masapskr; a:masmiest; n,k:integer);
var i,j:integer;
   Begin
       For i:=1 to k do b[i].maz:=maxlongint;
       For i:=1 to n do
           begin
               For j:=1 to k do
                   begin
                       If a[i].aps=b[j].vardas then b[j].viso :=b[j].viso+a[i].kiek;
                       If (a[i].aps=b[j].vardas) and (b[j].maz>a[i].kiek) then b[j].maz :=a[i].kiek;
                   end;
           end;
   end;
//Apskričių išrikiavimas pagal mažiausio miesto gyventojų kiekį ir jų išvedimas į rezultatų failą--------------
Procedure rikiavimasisvedimas(b:masapskr; k:integer);
var i,j:integer; fr:text; x:apskritis;
   begin
       Assign(fr, 'U2rez.txt'); rewrite(fr);
       For i:=1 to k do
           begin
               For j:=i to k do
                   begin
                       If b[i].maz>b[j].maz then
                           begin
                               x:=b[i];
                               b[i]:=b[j];
                               b[j]:=x;
                           end
                       else if (b[i].maz=b[j].maz) and (b[i].vardas>b[j].vardas) then
                           begin
                               x:=b[i];
                               b[i]:=b[j];
                               b[j]:=x;
                           end;
                   end;
           end;
       Writeln(fr, k);
       For i:=1 to k do Writeln(fr, b[i].vardas, b[i].maz, ' ', b[i].viso);
       close(fr);
   end;
//Pagrindinė programa --------------------------------------------------------
var a:masmiest; b:masapskr; k,n:integer;
begin
 skaitymas(a,n);
 apskriciuieskojimas(b,a,k,n);
 maziausias(b,a,n,k);
 rikiavimasisvedimas(b,k);
end.

Antra užduotis - pascaliu, gal kam įdomu. Kiek dariaus testų, atrodo visi praėjo

---

 

Antra užduotis - pascaliu, gal kam įdomu. Kiek dariaus testų, atrodo visi praėjo

egzamino metu padarei ? :rolleyes:

Jo, pirmą pradėjau nuo antros, galvojau bus lengvesnė, tai apšilus pirma jau buvo vienas saldainis. Baigiau egzaminą likus pusei valandos

Jo, pirmą pradėjau nuo antros, galvojau bus lengvesnė, tai apšilus pirma jau buvo vienas saldainis. Baigiau egzaminą likus pusei valandos

tikrai gražus, tvarkingas, kodas, man patinka, manau į šimtukininkus pretenduoji :rolleyes:

Aš dariau šitą užd. paskutinę, protas jau nebeveikė, tik namie supratau, kaip spręst :lol:

tikrai gražus, tvarkingas, kodas, man patinka, manau į šimtukininkus pretenduoji :rolleyes:

Aš dariau šitą užd. paskutinę, protas jau nebeveikė, tik namie supratau, kaip spręst :lol:

kadangi mokinaus praktiškai pagal knygą, nes pamačiau, kad man reikia informatikos tik gruodį, todėl ir kažkaip pavyko išlaikyt panašų stilių. Tikiuos tavo žodžiai nec.lt į ausį, teorijoi 1-3 praradau, o kitur jau sėkmės reikalas, nes excel ir word atrodo irgi viską susukau

kadangi mokinaus praktiškai pagal knygą, nes pamačiau, kad man reikia informatikos tik gruodį, todėl ir kažkaip pavyko išlaikyt panašų stilių. Tikiuos tavo žodžiai nec.lt į ausį, teorijoi 1-3 praradau, o kitur jau sėkmės reikalas, nes excel ir word atrodo irgi viską susukau

Manau, šitas uždavinys yra sunkiausias 2010 - 2012 sesijų tarpe, kitų nelabai mačiau, sunku komentuoti :)

Manau šitas uždavinys yra sunkiausias 2010 - 2012 sesijų tarpe, kitų nelabai mačiau, sunku komentuoti :)

Man 2008 ir 2009 pavyzdinės, VBE, ir pakartotinės tikrai buvo ką veikt, pagal jas ir pasiruošiau. Tarp kitko jei lygint praeitų metų (2012 VBE) krepšininkus ir šių metų apskritis, tai dar pagalvočiau ,kuris daugiau bėdų man sukėlė

Man 2008 ir 2009 pavyzdinės, VBE, ir pakartotinės tikrai buvo ką veikt, pagal jas ir pasiruošiau. Tarp kitko jei lygint praeitų metų (2012 VBE) krepšininkus ir šių metų apskritis, tai dar pagalvočiau ,kuris daugiau bėdų man sukėlė

krepšininkai labai paprasta, tiesiog daug veiksmų padaryt reikėjo, nieko mandro. Šitas uždavinys kažkoks užsuktas labai(bent jau pradžioj atrodė), todėl turbūt nedaug kas jį atliko. O kaip jūsų draugams sekėsi? viską padarė? :huh:

krepšininkai labai paprasta, tiesiog daug veiksmų padaryt reikėjo, nieko mandro. Šitas uždavinys kažkoks užsuktas labai(bent jau pradžioj atrodė) :huh:

Tada man labai pasisekė, kad mano pasirinktas kelias buvo teisingas, nes jau buvo minčių sukti per kitur, kažin, galbūt ir būčiau nebeįveikęs. Nes kai ruošiantis dariau krepšininkus rimtų problemų turėjau, manau, netgi nebūčiau praėjęs visų testų.

O gal kas pasidalinsit ir pirmąja programa (Pascal)? Noriu įsitikinti, jog gerai padariau :D Mano sprendimas:

program Noname0;

   var duom, rez : text;
   n : 1..50;
   m : 21..500;
   i, atstumas, kiek : integer;
   pav, paskutinis : string[10];
   x, y : -5..5;
   pabaiga : boolean;

   xx, yy : array[1..50] of integer;
   pavadinimai : array[1..50] of string;


   procedure skaitymas;
   begin
       assign(duom, 'U1.txt');
       reset(duom);
       Read(duom, n, m);
       Readln(duom);

       for i := 1 to n do
       begin
           Read(duom, pav, x, y);
           pavadinimai[i] := pav;
           xx[i] := abs(x);
           yy[i] := abs(y);
           Readln(duom);
       end;
       close(duom);
   end;


   function kilometrai(x, y : integer) : integer;
   begin
       kilometrai := (x + y) * 2;
   end;


   procedure skaiciavimai;
   begin
       atstumas := 0;
       pabaiga := false;

       for i := 1 to n do
       begin
           if pabaiga = false then
           begin
               if atstumas + (xx[i] + yy[i]) * 2 > m then
               pabaiga := true
               else
               begin
                   atstumas := atstumas + kilometrai(xx[i], yy[i]);
                   paskutinis := pavadinimai[i];
                   kiek := i;
               end;
           end;
       end;
   end;


   procedure irasymas;
   begin
       assign(rez, 'U1rez.txt');
       rewrite(rez);
       Writeln(rez, kiek, ' ', atstumas, ' ', paskutinis);
       close(rez);
   end;

begin

   skaitymas;
   skaiciavimai;
   irasymas;
end.

O gal kas pasidalinsit ir pirmąja programa (Pascal)? Noriu įsitikinti, jog gerai padariau :D Mano sprendimas:

 

...[/code]

Dariau panašiai kaip ir tu, tik aš spręsdamas suabejojau ar galima naudoti f-ją Abs(), tai dėjau if x < 0 then x := x * -1 sąlygą.

Dariau panašiai kaip ir tu, tik aš spręsdamas suabejojau ar galima naudoti f-ją Abs(), tai dėjau if x < 0 then x := x * -1 sąlygą.

aš galvos nelaužęs recordą panaudojau, niekur neprašyta, jog negalima B-)

Įmetu su C++ padarytas užduotis. :)

1 užduotis, turėtų viskai gerai būti.

#include <fstream>
using namespace std;
//----------------------------- Skaitymo funkcija
void skaitymas(char imo[][11], int &n, int &m, int x[], int y[])
{
    ifstream fd("U1.txt");
    fd >> n >> m;
    for(int i = 0; i < n; i++)
    {
            fd.ignore(80,'\n');
            fd.get(imo[i],11);
            fd >> x[i] >> y[i];
    }
    fd.close();
}
//----------------------------- Skaičiavimo funkcija
void skaiciavimas(int n, int m, int x[], int y[], int &km,int &indeks)
{
    int sum = 0;
    for(int i = 0; i  < n; i++)
    {
            if(x[i] < 0) x[i] = -x[i];
            if(y[i] < 0) y[i] = -y[i];
            if(sum + ((x[i] + y[i]) * 2) <= m)
            {
                   indeks++; sum = sum + (2 * (x[i] + y[i]));
            }
            else break;
    }
    km = sum;
}
//-----------------------------   Rasymo funkcija                 
int rasymas(char imo[][11], int km, int indeks)
{
   ofstream fr("U1rez.txt");
   fr << indeks << ' ' << km << ' ' << imo[indeks-1];
   fr.close();
   return 0;
}   
int main()
{
   int n , m, x[50], y[50], km = 0, indeks = 0; // km - viso kilometrų, indeks - aptarnautų skaičius, imo - įmonių pav
   char imo[50][11];
   skaitymas(imo, n, m, x, y);
   skaiciavimas(n, m, x, y, km, indeks);
   rasymas(imo, km, indeks);
   return 0;
}

Pataisyta 2 uždavinio versija. Gal kas galit pasakyt, kiek už tokią klaidą prarasiu taškų, nes visa kita lyg ir gerai.

#include <fstream>
#include <iomanip>
using namespace std;

struct eil{
               char Mies[21];
               char Apskr[14];
               int gyv;
               bool pan;
};
struct result{
             string Apskr;
             int min;
             int sum; 
};              
void skaitymas(int &k, eil duom[]) // Nusiskaitomi failai
{
    ifstream fd("U2.txt");
    fd >> k;
    for(int i = 0; i < k; i++)
    {
            fd.ignore(80, '\n');
            fd.get(duom[i].Mies, 21); // Čia buvau padaręs klaidą, parašiau 20.
            fd.get(duom[i].Apskr,14); // Čia buvau padaręs klaidą, parašiau 13.
            fd >> duom[i].gyv;
            duom[i].pan = false;
    }
    fd.close();
}  
//----------------------------------- Įvykdomi pagrindinia skaičiaivimai
void skaiciavimai(int k, eil duom[], int &n, result gauta[])
{
    for(int i = 0;i < k; i++)
    {
            if(!duom[i].pan) 
            {
                             duom[i].pan = true;
                             gauta[n].Apskr = duom[i].Apskr;
                             gauta[n].min = duom[i].gyv;
                             gauta[n].sum = duom[i].gyv;
                             for(int j = i + 1; j < k; j++)
                                     if(strcmp(duom[i].Apskr, duom[j].Apskr) == 0)
                                     {
                                                              duom[j].pan = true;
                                                              gauta[n].sum = gauta[n].sum + duom[j].gyv;
                                                              if(duom[j].gyv < gauta[n].min)
                                                              gauta[n].min = duom[j].gyv;
                                     } 
                                     n++;
            }
    }
}
//----------------------------------- Duomenų sukeitimo funkcija
void keitimas(result gauta[], int i, int j)
{
    int temp; string tempstr;
    temp = gauta[i].min;
    gauta[i].min = gauta[j].min;
    gauta[j].min = temp;
    temp = gauta[i].sum;
    gauta[i].sum = gauta[j].sum;
    gauta[j].sum = temp;
    tempstr = gauta[i].Apskr;
    gauta[i].Apskr = gauta[j].Apskr;
    gauta[j].Apskr = tempstr;
}
//----------------------------------- Rikiavimo funkcija
void rikiavimas(result gauta[], int n)
{
    for(int i = 0; i < n; i++)
    {
            for(int j = i + 1; j < n; j++)
            {
                    if(gauta[i].min > gauta[j].min)
                      keitimas(gauta, j, i);
                      else if(gauta[i].min == gauta[j].min)
                           for(int l = 0; l< 13; l++)
                           {
                                   if((int) gauta[i].Apskr[l] > gauta[j].Apskr[l])
                                   {
                                            keitimas(gauta,i,j);
                                            break;
                                   }
                                   else if((int) gauta[i].Apskr[l] < gauta[j].Apskr[l])
                                            break;
                           }
            }
    }
}   
//-----------------------------------
void rasymas(result gauta[], int n)
{
    ofstream fr("U2rez.txt");
    fr << n << endl;
    for(int i = 0; i < n; i++)
            fr << fixed << setw(13) << left << gauta[i].Apskr << ' ' << gauta[i].min << ' ' << gauta[i].sum << endl;
    fr.close();
}
//-----------------------------------
int main()
{
   eil duom[103]; // Visi duomenys
   result gauta[10]; // Gauti rezultatai
   int k, n = 0; // n- Apskričių skaičius, k - eilučių skaičius
   skaitymas(k, duom);
   skaiciavimai(k, duom, n, gauta);
   rikiavimas(gauta, n);
   rasymas(gauta,n);
   return 0;
}

Labai daug gali ta klaida nulemti, nė nežinau kaip taip apsižioplinau. ;(

Egzaminas buvo painus, ypač testas ten net nepamenu ką rašiau ką žimėjau.Word, exel nieko ypatingo. programavimas 1 užduotis labai lengva 2 tereikia mokėti algoritma paieskai nesutvarkytame faile. iš programavimo manau gausiu 47 t. nes rikiavima padariau tik pagal skaičių ir šiek tiek susimoviau apskričių gyventojų bendrą suma ieškodamas.

Taip, 50t tik 35 balai. :) Va

http://www.nec.lt/failai/3424_11_priedas.pdf

EDIT: Rimtai kas per nesąmonė?