Informatikos VBE 2013

Per kuria vieta ta egzamino uzduotis sudetinga? Tipo, kad visas skirtingas apskritis atrinkt reikia?

būk geras, nerėk, geriau sprendimą parašyk :)

tu mokinys?

Testo atsakymus parašiau:

1)C

2)D

Kas dėl antro, internete radau:

Reikia saugaus slaptažodžio? O koks jis turėtų buti?

 

Ne trumpesnis nei 5 simboliai

Sudarytas iš didžiūjų ir mažūjų raidžių

Turėtų įeiti simboliai toki kaip: ` ! ” ? $ ? % ^ & * ( ) _ – + = { [ } ] : ; @ ‘ ~ # | < , > . ? /

Turėtų būti toks vienintelis, nenaudokite to pačio slaptažodžio visur.

Neturėtų būti jūsų vardas, šeimos nario vardas, prisijungimo vardas.

Neturi būti tokio žodžio žodyne.

Todėl A, B, C kaip ir atkrenta :unsure:

Šiaip esu 95proc. įsitikinęs, kad antro atsakymas D.

būk geras, nerėk, geriau sprendimą parašyk :)

tu mokinys?

Duok duomenu faila, parasysiu, nes perrasinet tingiu. Ne mokinys, bet per egzamina butu net nereikeje galvot vistiek.

Duok duomenu faila, parasysiu, nes perrasinet tingiu. Ne mokinys, bet per egzamina butu net nereikeje galvot vistiek.

oj oj, čia tas pats žinai, kaip parodyt aštuntokui kokį sinus'ą ir jam čia kosmosas, nors lengvas dalykas, kai moki. Kadangi nedalyvavai egzamine, tai geriau palaikyk savo nuomonę. Visus spaudė laikas, užduočiu pilna, laiko mąstyti mažai, +stresas :)

Tikrai nemanau, kad kiekvienas moka rūšiuoti pagal abėcėlę, jeigu čia toks lengvas uždavinys, kodėl dauguma jo nepadarė? :lol: :rolleyes:

OK einu aš vasarot, nesigilinu, ką kaip padariau, viskas padarytą, nieko nepakeisi. Visi lekiat švest greitai!

Sėkmės!

Iš tikrųjų tai lengva ta antra užduotis buvo, bet sugebėjau ir aš susimaut... Jau buvau sugalvojęs, kaip viską padaryti, bet pastrigau ties tuo, kaip išrinkti tas tris apskritis iš visų esamų. Sukau ciklus, ir taip, ir taip bandžiau, galiausiai susinervinau ir išvis nieko gero ten nepadariau toj programoj. Visgi, kaip suprantu, turėčiau 9 taškus gauti? Štai "programa":

program Miestai;

   Type irasas = record
       miestas : string[20];
       apskritis : string[13];
       gyv : 100..600000;
   end;

   Type irasasa = record
       pav : string[13];
       maz : integer;
       viso : integer;
   end;

   var duom, rez : text;
   n, i, j, apskriciu : integer;
   irasai : array[1..103] of irasas;
   apskritys : array[1..10] of irasasa;
   apskr : string;
   uztenka : boolean;

begin

   assign(duom, 'U2.txt');
   reset(duom);
   Readln(duom, n);

   for i := 1 to n do
   begin
       Read(duom, irasai[i].miestas, irasai[i].apskritis, irasai[i].gyv);
       Readln(duom);
   end;
   close(duom);

   apskriciu := 0;
   for i := 1 to n do
   begin
       uztenka := false;
       apskr := irasai[i].apskritis;
       for j := 1 to 10 do
       begin
           if (apskritys[j].pav <> apskr) AND (length(apskritys[j].pav) = 0) then
           begin;
               Writeln(apskr);
               if uztenka = false then
               begin
                   {apskritys[apskriciu+1].pav := apskr;}
                   uztenka := true;
                   apskriciu := apskriciu + 1;
               end;
           end;
       end;
   end;
   Writeln(apskriciu);



 WriteLn(apskriciu);
 Readln;
end.

5t. už "Teisingai skaitomi duomenys iš failo" ir 4t. už "Teisingai aprašyti ir naudojami įrašo duomenų tipai"? Ar ne taip suprantu vertinimą?

Tai testo duosit atsakymus kas?

 

1.C

2.C

 

Aš taip rašiau.

 

Kaip sakot daug taškų nulups už atsakymą blogą pvz turėjo būt 3 28 K.... o pas mane 3 30 K... :D ???

Atsakykit į klausimą dėl ats

oj oj, čia tas pats žinai, kaip parodyt aštuntokui kokį sinus'ą ir jam čia kosmosas, nors lengvas dalykas, kai moki. Kadangi nedalyvavai egzamine, tai geriau palaikyk savo nuomonę. Visus spaudė laikas, užduočiu pilna, laiko mąstyti mažai, +stresas :)

 

Tikrai nemanau, kad kiekvienas moka rūšiuoti pagal abėcėlę, jeigu čia toks lengvas uždavinys, kodėl dauguma jo nepadarė? :lol: :rolleyes:

 

OK einu aš vasarot, nesigilinu, ką kaip padariau, viskas padarytą, nieko nepakeisi. Visi lekiat švest greitai!

 

Sėkmės!

Nezinau, kodel rikiavimas man butu buves sunkus pagal abecele, nes c++ yra taip: string a = "aaa"; string b = "aab"; b > a bus visa laika :) O kodel dauguma nepadare as nezinau, konstatuoju fakta, kad yra standartiniai algoritmai cia, skirtingu atrinkimas, minimumo radimas, sumavimas, rikiavimas.

    Writeln(apskriciu);

 WriteLn(apskriciu);
 Readln;

 

5t. už "Teisingai skaitomi duomenys iš failo" ir 4t. už "Teisingai aprašyti ir naudojami įrašo duomenų tipai"? Ar ne taip suprantu vertinimą?

-taškai už darbą su ekranu :|

Nezinau, kodel rikiavimas man butu buves sunkus pagal abecele, nes c++ yra taip: string a = "aaa"; string b = "aab"; b > a bus visa laika :) O kodel dauguma padare as nezinau, konstatuoju fakta, kad yra standartiniai algoritmai cia, skirtingu atrinkimas, minimumo radimas, sumavimas, rikiavimas.

naudojau strcmp funkciją palyginti eilutes

-taškai už darbą su ekranu :|

Na taip, čia tiesiog neduos to vieno taško (paskutinio punkto). Bet ar tuos 9 gausiu, kur parašiau? :)

Atsakykit į klausimą dėl ats

2, manau, D.

Tai nulups taškų, aišku :D Jau šito testo pradino, galima sakyt, nepraeini. Neaišku, kaip su kitais duomenimis bus.

Na taip, čia tiesiog neduos to vieno taško (paskutinio punkto). Bet ar tuos 9 gausiu, kur parašiau? :)

 

 

2, manau, D.

Tai nulups taškų, aišku :D Jau šito testo pradino, galima sakyt, nepraeini. Neaišku, kaip su kitais duomenimis bus.

manau gausi, gal net 13, ne 9 :)

Na taip, čia tiesiog neduos to vieno taško (paskutinio punkto). Bet ar tuos 9 gausiu, kur parašiau? :)

 

 

2, manau, D.

Tai nulups taškų, aišku :D Jau šito testo pradino, galima sakyt, nepraeini. Neaišku, kaip su kitais duomenimis bus.

Kiek maždaug gali nulupt?

Kiek maždaug gali nulupt?

Na, jei nei vieno testo nepraeisi, už testus gausi 0 :| Bet tada nagrinės programą atskirai dalimis, vis tiek galėsi nemažai surinkt.

Kaip pascal reikia rikiuoti pagal abėcėlę?

Viską išsprendžia išskyrus antrą programavimo. Gal 80 paimsiu.... Nepasisekė.

Kaip matau, visiems problema buvo antras programavimo uždavinys ir visiems šimtukas nusirito iki maždaug 80... :) Nieko, pažiūrėkit iš gerosios pusės, 80 irgi yra geras rezultatas. Ten, kur įstotumėt su 100, greičiausiai įstosit ir su 80. :D Mano atveju lygiai tas pats.

Dar įdomu dėl Word lygiavimo vertinimo. Ten duoda viso net 5 taškus. Tarkim, aš gavau ne:

I. Bla

I.A. Bla

I.A.a. BLA

bet:

I. Bla

A. Bla

a. Bla

II. Bla

........

Tai ar gausiu bent vieną tašką? :/ Nedašuto, kad pirma reikia visą tekstą pritraukti prie kairės pusės ir tada daryti sąrašą.

Gal numanot ką darys jeigu mano antroj užduotį viską suskaičiuoja gerai, surūšiuoja, bet atvirkščiai t.y. ne didėjimo tvarka, o mažėjimo, nežinau kodėl, bet rūšiavime ženklą < pakeitus > kai turėtų rūšiuoti atvirkščiai tiesiog visur 0 rašydavo?

naudojau strcmp funkciją palyginti eilutes

O kam ta strcmp? Naudoji paprasciausius < > ==, efektas tas pats :)

O kam ta strcmp? Naudoji paprasciausius < > ==, efektas tas pats :)

Kažkada seniau ieškojau kaip rikiuot pagal abėcėlę tai radau. Nežinojau dar paprastesnio varianto :)

Nežinau, ką jūs ten sunkaus matėt toj antroj užduoty. :huh:

Kas tas Vikis?

Nežinau, ką jūs ten sunkaus matėt toj antroj užduoty. :huh:

Išsprendei? Sunku buvo tai, kad buvo begalė record'ų ir masyvų. Kitaip neišėjo. Pasilikau užduočiai šiai 70 min ir vis vien nespėjau.

Na jei kam idomu, tai prasprendziau jum ta 2 uzduoti. Uzduotis tikrai nebuvo sunki, tiktais idejiskai labai labai bloga.

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

struct pradiniai 
{
string miestas;
string apskritis;
int gyventojai;
};

struct rezultatas
{
string apskritis;
int mingyventoju;
int gyventoju;
};

int main() 
{
int n, apskr=0;
bool yra;
pradiniai Duomenys[103];
rezultatas Rezultatas[10];

ifstream in("U2.txt");
in >> n;
for(int i=0;i<n;i++) 
{

	in >> Duomenys[i].miestas >> Duomenys[i].apskritis >> Duomenys[i].gyventojai;
	Duomenys[i].miestas.resize(20);
	Duomenys[i].apskritis.resize(13);
}

for(int i=0;i<n;i++) 
{
	yra = false;
	for(int x=0;x<10;x++)
	{
		if(Duomenys[i].apskritis.compare(Rezultatas[x].apskritis) == 0) 
		{
			yra = true;
		}
	}
	if(!yra) 
	{
		Rezultatas[apskr].apskritis= Duomenys[i].apskritis;
		Rezultatas[apskr].gyventoju=0;
		Rezultatas[apskr].mingyventoju = 600000;
		apskr++;
	}
}

for(int i=0;i<apskr;i++) 
{
	for(int x=0;x<n;x++)
	{
		if(Duomenys[i].apskritis.compare(Duomenys[x].apskritis) == 0)
		{
			Rezultatas[i].gyventoju += Duomenys[x].gyventojai;
			if(Rezultatas[i].mingyventoju > Duomenys[x].gyventojai) Rezultatas[i].mingyventoju = Duomenys[x].gyventojai;
		}
	}
}

for(int i=0;i<apskr;i++)
{
	for(int x=0;x<apskr;x++)
	{
		if((Rezultatas[i].mingyventoju < Rezultatas[x].mingyventoju)||((Rezultatas[i].mingyventoju == Rezultatas[x].mingyventoju) && (Duomenys[i].apskritis.compare(Duomenys[x].apskritis) < 0 )))
		{
			rezultatas tmp = Rezultatas[i];
			Rezultatas[i] = Rezultatas[x];
			Rezultatas[x] = tmp;
		}
	}
}

ofstream out("U2rez.txt");
out << apskr << endl;
for(int i=0;i<apskr;i++)
{
	out << Rezultatas[i].apskritis << Rezultatas[i].mingyventoju <<" "<< Rezultatas[i].gyventoju << endl;
}

}

Išsprendei? Sunku buvo tai, kad buvo begalė record'ų ir masyvų. Kitaip neišėjo. Pasilikau užduočiai šiai 70 min ir vis vien nespėjau.

Išsprendžiau, vienintelis sudėtingesnis dalykas tai buvo apskričių masyvo sudarymas, kad nesikartotų apskritys, o visa kita tai tik IFai ir FORai.

Kas tas Vikis?

Antrosios kartos (WEB 2.0) informacinių technologijų svetainė, kitaip - internetinės enciklopedijos tipo tinklalapis, kurio turinį gali peržiūrėti ir keisti bet kas, dėl to ne visada informacija yra korektiška.

Išsprendžiau, vienintelis sudėtingesnis dalykas tai buvo apskričių masyvo sudarymas, kad nesikartotų apskritys, o visa kita tai tik IFai ir FORai.

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

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