Pereiti prie turinio

Informatikos VBE 2013


Rekomenduojami pranešimai

Gana keistas klausimas, kaip padaryti pirma uzduoti, kur su excel (http://www.nec.lt/failai/3398_2013-IT-pavyz-uzd.pdf psl.5)

 

 

Jei kalbi apie:

 

1. Naudodamiesi lakšte „Rezultatai“ pateiktos lentelės duomenimis ir tinkamais atrankos kriterijais, pateikite Vilniaus miesto mokyklų, kuriose valstybinį brandos egzaminą laikė daugiau nei 20, bet mažiau nei 50 mokinių sąrašą.

 

Tuomet pažymėk bet kurį lentelės langelį. Eik Duomenys -> Filtruoti. Prie lentelės antraštinės eilutės atsiras filtrai. Paspausk filtrą ties langeliu "Laikė valstybinį egzaminą", tada Skaičių filtrai -> Pasirinktinis filtras... Ten pasirink kriterijus: Daugiau nei 20 Ir Mažiau nei 50. (Skaičius 20 ir 50 įrašyk dešinėje)

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Jei kalbi apie:

 

1. Naudodamiesi lakšte „Rezultatai“ pateiktos lentelės duomenimis ir tinkamais atrankos kriterijais, pateikite Vilniaus miesto mokyklų, kuriose valstybinį brandos egzaminą laikė daugiau nei 20, bet mažiau nei 50 mokinių sąrašą.

 

Tuomet pažymėk bet kurį lentelės langelį. Eik Duomenys -> Filtruoti. Prie lentelės antraštinės eilutės atsiras filtrai. Paspausk filtrą ties langeliu "Laikė valstybinį egzaminą", tada Skaičių filtrai -> Pasirinktinis filtras... Ten pasirink kriterijus: Daugiau nei 20 Ir Mažiau nei 50. (Skaičius 20 ir 50 įrašyk dešinėje)

 

Dekui.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Dar klasuimukas, kur excelį rast tokį daiktą, kaip funkcijos worde? pvz, kad man rašytų a1 ir 1 žemiau, tai worde eičiau per funkcijas, o excelį?

 

Iškart virš raidžių, kuriom pavadinti stulpeliai, yra toks fx, jei to ieškai.

Redagavo JohnSmith
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Dalinuosi žvejų programa. Parašiau per maždaug 30min. Pastangos atrodo nepraėjo veltui, pats jaučiu, kad improvinau nemažai per pastarąsias dienas. :D

 

program Bevardë22;

   Type irasas = record
       vardas : string[10];
       dienos : 1..30;
       karosu : integer;
       karpiu : integer;
       kuoju : integer;
       isvis : integer;
   end;

   var duom, rez : text;
   n, i, j, kuris : integer;
   zvejai : array[1..100] of irasas;
   karos, karp, kuoj : 0..300;
   karosS, karpS, kuojS, isvisS : string;


   procedure skaitymas;
   begin
       assign(duom, 'C:\U2.txt');
       reset(duom);
       Readln(duom, n);

       for i := 1 to n do
           begin
           Read(duom, zvejai[i].vardas);
           Read(duom, zvejai[i].dienos);
           Readln(duom);
           for j := 1 to zvejai[i].dienos do
           begin
               Read(duom, karos);
               Read(duom, karp);
               Read(duom, kuoj);
               Readln(duom);
               zvejai[i].karosu := zvejai[i].karosu + karos;
               zvejai[i].karpiu := zvejai[i].karpiu + karp;
               zvejai[i].kuoju := zvejai[i].kuoju + kuoj;
               zvejai[i].isvis := zvejai[i].isvis + karos + karp + kuoj;
           end;
       end;
       close(duom);
   end;


   function daugiausiai(kiek : integer) : integer;
   begin
       daugiausiai := 1;
       for i := 1 to kiek do
       begin
           if zvejai[i].isvis > zvejai[daugiausiai].isvis then
           daugiausiai := i;
       end;
   end;

   procedure irasymas;
   begin

       assign(rez, 'C:\U2rez.txt');
       rewrite(rez);

       for i := 1 to n do
       begin
           Write(rez, zvejai[i].vardas);
           Str(zvejai[i].karosu, karosS);
           Str(zvejai[i].karpiu, karpS);
           Str(zvejai[i].kuoju, kuojS);

           for j := 1 to 5 - length(karosS) do
           Write(rez, ' ');
           Write(rez, zvejai[i].karosu);

           for j := 1 to 5 - length(karpS) do
           Write(rez, ' ');
           Write(rez, zvejai[i].karpiu);

           for j := 1 to 5 - length(kuojS) do
           Write(rez, ' ');
           Write(rez, zvejai[i].kuoju);

           Writeln(rez);
       end;

       Write(rez, zvejai[kuris].vardas);
       Str(zvejai[kuris].isvis, isvisS);
       for i:= 1 to 5 - length(isvisS) do
       Write(rez, ' ');
       Write(rez, zvejai[kuris].isvis);

       close(rez);

   end;

begin

   skaitymas;
   kuris := daugiausiai(n);
   irasymas;

end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Iškart virš raidžių, kuriom pavadinti stulpeliai, yra toks fx, jei to ieškai.

Tai šitą žinau, bet tuomet, kuri iš visų funkcijų leistų užrašyt tokią išraišką, kaip a1 ar pvz a^2 gražiai?

 

Edit: Arba aš perdaug gilinuosi, juk excelį skaičiavimai esmė :D

Redagavo orux
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Tai šitą žinau, bet tuomet, kuri iš visų funkcijų leistų užrašyt tokią išraišką, kaip a1 ar pvz a^2 gražiai?

 

Edit: Arba aš perdaug gilinuosi, juk excelį skaičiavimai esmė :D

 

Tikriausiai per daug :)

Kas tas a1? :)

Jei reikia skaičių pakelt laipsniu, tai taip ir rašai koordinatė^laipsnis, pvz., C5^3. Šitaip geriausia.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Dalinuosi žvejų programa. Parašiau per maždaug 30min. Pastangos atrodo nepraėjo veltui, pats jaučiu, kad improvinau nemažai per pastarąsias dienas. :D

 

program Bevardë22;

   Type irasas = record
       vardas : string[10];
       dienos : 1..30;
       karosu : integer;
       karpiu : integer;
       kuoju : integer;
       isvis : integer;
   end;

   var duom, rez : text;
   n, i, j, kuris : integer;
   zvejai : array[1..100] of irasas;
   karos, karp, kuoj : 0..300;
   karosS, karpS, kuojS, isvisS : string;


   procedure skaitymas;
   begin
       assign(duom, 'C:\U2.txt');
       reset(duom);
       Readln(duom, n);

       for i := 1 to n do
           begin
           Read(duom, zvejai[i].vardas);
           Read(duom, zvejai[i].dienos);
           Readln(duom);
           for j := 1 to zvejai[i].dienos do
           begin
               Read(duom, karos);
               Read(duom, karp);
               Read(duom, kuoj);
               Readln(duom);
               zvejai[i].karosu := zvejai[i].karosu + karos;
               zvejai[i].karpiu := zvejai[i].karpiu + karp;
               zvejai[i].kuoju := zvejai[i].kuoju + kuoj;
               zvejai[i].isvis := zvejai[i].isvis + karos + karp + kuoj;
           end;
       end;
       close(duom);
   end;


   function daugiausiai(kiek : integer) : integer;
   begin
       daugiausiai := 1;
       for i := 1 to kiek do
       begin
           if zvejai[i].isvis > zvejai[daugiausiai].isvis then
           daugiausiai := i;
       end;
   end;

   procedure irasymas;
   begin

       assign(rez, 'C:\U2rez.txt');
       rewrite(rez);

       for i := 1 to n do
       begin
           Write(rez, zvejai[i].vardas);
           Str(zvejai[i].karosu, karosS);
           Str(zvejai[i].karpiu, karpS);
           Str(zvejai[i].kuoju, kuojS);

           for j := 1 to 5 - length(karosS) do
           Write(rez, ' ');
           Write(rez, zvejai[i].karosu);

           for j := 1 to 5 - length(karpS) do
           Write(rez, ' ');
           Write(rez, zvejai[i].karpiu);

           for j := 1 to 5 - length(kuojS) do
           Write(rez, ' ');
           Write(rez, zvejai[i].kuoju);

           Writeln(rez);
       end;

       Write(rez, zvejai[kuris].vardas);
       Str(zvejai[kuris].isvis, isvisS);
       for i:= 1 to 5 - length(isvisS) do
       Write(rez, ' ');
       Write(rez, zvejai[kuris].isvis);

       close(rez);

   end;

begin

   skaitymas;
   kuris := daugiausiai(n);
   irasymas;

end.

My code, irgi šian rašiau ~20min

program zvejyba;
const Cmax = 100;
type
   zvejai = record
           vardas : string[10];
           karosu,
           karpiu,
           kuoju,
           viso   : integer;
   end;
zvejys=array[1..Cmax] of zvejai;
//------------------------------------------------------------------------------
var zvej : zvejys;
   n    : integer;
//-------------------skaitymo-procedura-----------------------------------------
procedure skaityk;
var i, j, d, kar, karp, kuoj : integer;
         f : text;
begin
assign(f,'U3.txt'); reset(f);
readln(f, n);
for i:=1 to n do
begin
   zvej[i].karosu:=0;
   zvej[i].karpiu:=0;
   zvej[i].kuoju:=0;
   zvej[i].viso:=0;
   readln(f, zvej[i].vardas, d);
       for j:=1 to d do
           begin
           Readln(f, kar, karp, kuoj);
           zvej[i].karosu+=kar;
           zvej[i].karpiu+=karp;
           zvej[i].kuoju+=kuoj;
           end;
   zvej[i].viso:=zvej[i].karosu+zvej[i].karpiu+zvej[i].kuoju;
end;
close(f);
end;
//------------------randa-daugiausiai-zuvu-pagavusio-indeksa--------------------
function daugiausiai : integer;
var i, max, index : integer;
begin
max:=zvej[1].viso;
for i:=2 to n do
   if zvej[i].viso>max then
       begin
         max:=zvej[i].viso;
         index:=i;
       end;
daugiausiai:=index;
end;
//--------------------------rasymo-procedura------------------------------------
procedure rasyk;
var i : integer;
 rez : text;
begin
assign(rez, 'U3rez.txt'); rewrite(rez);
for i:=1 to n do
  Writeln(rez, zvej[i].vardas, zvej[i].karosu:5, zvej[i].karpiu:5,
   zvej[i].kuoju:5);
Writeln(rez, zvej[daugiausiai].vardas, zvej[daugiausiai].viso :5);
close(rez);
end;
//-------------------------pagrindine-programa----------------------------------
begin
 skaityk;
 rasyk;
end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

c++ variantas

#include <fstream>


using namespace std;
struct zvejyba
{
   char vardas[10];
   int karosai,karpiai,kuojos;
};

void Skaitymas(zvejyba zvejai[], int& n);//nuskaitymo f-ja
void Isvedimas(zvejyba zvejai[], int n, int geriausias);// isvedimo f-ja
void DaugiausiaiSugavo(zvejyba zvejai[], int n, int& geriausias);// skaiciuoja kas sugavo daugiausiai

//---------------------------------------------------------------
int main()
{
   zvejyba zvejai[100];
   int n, geriausias=0;
   Skaitymas(zvejai,n);
   DaugiausiaiSugavo(zvejai,n,geriausias);
   Isvedimas(zvejai,n,geriausias);

}
//-------------------------------------------------------------

void Skaitymas(zvejyba zvejai[], int& n)
{
   ifstream fd ("U2.txt");
   int d;
   fd>>n;
   int karpiai,kuojos,karosai;
   for (int i=0;i<n;i++)
   {
       fd>>zvejai[i].vardas>>d;
       zvejai[i].karosai=0;
       zvejai[i].karpiai=0;
       zvejai[i].kuojos=0;
       for (int k=0;k<d; k++)
       {
           fd>>karosai>>karpiai>>kuojos;
           zvejai[i].karosai+=karosai;
           zvejai[i].karpiai+=karpiai;
           zvejai[i].kuojos+=kuojos;
       }

   }
   fd.close();
}


void Isvedimas(zvejyba zvejai[], int n, int geriausias)
{
   ofstream fr ("U2rez.txt");
   for (int i=0;i<n;i++)
   {
       fr<<zvejai[i].vardas<<" "<<zvejai[i].karosai<<" "<<zvejai[i].karpiai<<" "<<zvejai[i].kuojos<<endl;
   }
   fr<<zvejai[geriausias].vardas<<" "<<zvejai[geriausias].kuojos+zvejai[geriausias].karpiai+zvejai[geriausias].karosai;
   fr.close();
}

void DaugiausiaiSugavo(zvejyba zvejai[], int n, int& geriausias)
{ int suma[100];

   for(int i=0;i<=n;i++)
   {   suma[i]=zvejai[i].kuojos+zvejai[i].karpiai+zvejai[i].kuojos;
       if (suma[i]>suma[geriausias]) geriausias=i;
   }
}

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Tikriausiai per daug :)

Kas tas a1? :)

Jei reikia skaičių pakelt laipsniu, tai taip ir rašai koordinatė^laipsnis, pvz., C5^3. Šitaip geriausia.

Joa, reiškia perdaug. a1 tai pirmas progresijos narys, tai ieškojau kaip tą indeksą apačioj parašyt ar išeina, seems waste of time :D. Einu dar pasikartosiu kaip turinį rodyklę padaryt ir vsio bus.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Dalinuosi žvejų programa. Parašiau per maždaug 30min. Pastangos atrodo nepraėjo veltui, pats jaučiu, kad improvinau nemažai per pastarąsias dienas. :D

 

program Bevardë22;

   Type irasas = record
       vardas : string[10];
       dienos : 1..30;
       karosu : integer;
       karpiu : integer;
       kuoju : integer;
       isvis : integer;
   end;

   var duom, rez : text;
   n, i, j, kuris : integer;
   zvejai : array[1..100] of irasas;
   karos, karp, kuoj : 0..300;
   karosS, karpS, kuojS, isvisS : string;                     //*


   procedure skaitymas;
   begin
       assign(duom, 'C:\U2.txt');
       reset(duom);
       Readln(duom, n);

       for i := 1 to n do
           begin
           Read(duom, zvejai[i].vardas);
           Read(duom, zvejai[i].dienos);
           Readln(duom);
           for j := 1 to zvejai[i].dienos do
           begin
               Read(duom, karos);
               Read(duom, karp);
               Read(duom, kuoj);
               Readln(duom);
               zvejai[i].karosu := zvejai[i].karosu + karos;
               zvejai[i].karpiu := zvejai[i].karpiu + karp;
               zvejai[i].kuoju := zvejai[i].kuoju + kuoj;
               zvejai[i].isvis := zvejai[i].isvis + karos + karp + kuoj;
           end;
       end;
       close(duom);
   end;


   function daugiausiai(kiek : integer) : integer;
   begin
       daugiausiai := 1;
       for i := 1 to kiek do
       begin
           if zvejai[i].isvis > zvejai[daugiausiai].isvis then
           daugiausiai := i;
       end;
   end;

   procedure irasymas;
   begin

       assign(rez, 'C:\U2rez.txt');
       rewrite(rez);

       for i := 1 to n do
       begin
           Write(rez, zvejai[i].vardas);
           Str(zvejai[i].karosu, karosS);
           Str(zvejai[i].karpiu, karpS);
           Str(zvejai[i].kuoju, kuojS);

           for j := 1 to 5 - length(karosS) do    //*
           Write(rez, ' ');                       //*
           Write(rez, zvejai[i].karosu);

           for j := 1 to 5 - length(karpS) do     //*
           Write(rez, ' ');                       //*
           Write(rez, zvejai[i].karpiu);

           for j := 1 to 5 - length(kuojS) do     //*
           Write(rez, ' ');                       //*
           Write(rez, zvejai[i].kuoju);

           Writeln(rez);
       end;

       Write(rez, zvejai[kuris].vardas);
       Str(zvejai[kuris].isvis, isvisS);
       for i:= 1 to 5 - length(isvisS) do       //*
       Write(rez, ' ');                         //*
       Write(rez, zvejai[kuris].isvis);

       close(rez);

   end;

begin

   skaitymas;
   kuris := daugiausiai(n);
   irasymas;

end.

 

Kokia prasmė sukti tuos ciklus(*), jei gali tiesiog nurodyti skaičiaus formatą pvz. sk:5 :unsure:

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Kokia prasmė sukti tuos ciklus(*), jei gali tiesiog nurodyti skaičiaus formatą pvz. sk:5 :unsure:

Nelabai supratau, apie ką kalbi :) Aš taip įpratęs dirbt su ciklais, man gerai :P

 

EDIT: dabar jau supratau, apie ką kalbi. Nepagalvojau apie šį variantą, ačiū :)

Redagavo Narysx
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Nelabai supratau, apie ką kalbi :) Aš taip įpratęs dirbt su ciklais, man gerai :P

//--------------------------rasymo-procedura------------------------------------
procedure rasyk;
var i : integer;
 rez : text;
begin
assign(rez, 'U3rez.txt'); rewrite(rez);
for i:=1 to n do
  Writeln(rez, zvej[i].vardas, zvej[i].karosu:5, zvej[i].karpiu:5,
   zvej[i].kuoju:5);
Writeln(rez, zvej[daugiausiai].vardas, zvej[daugiausiai].viso :5); //-MATAI 5??
close(rez);
end;

štai apie ką jis kalba, nereikia jokių ciklų sukti, kad skirti 5 vietas kintamajam :rolleyes:

Redagavo Peupeu
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Gal galit man paaiškint, kaip ten viską reikės įrašyt? Pirma į C disko aplanką, tada į flešą? O ką daryt su tuo elektroniniu parašu? Šiandien buvom apsižiūrėt kompiuterių, tai ką jūs manot. Pačios mokytojos nieko nežino. Testo klausimus reikės rašyti į atsakymų lapą?

Nuoroda į pranešimą
Dalintis kituose puslapiuose

struct Pavadinimas {
  int sk[10];
};

 

Ar taip sukuriamas dvimatis struktūros masyvo tipas ar vienmatis?

 

Gal galit man paaiškint, kaip ten viską reikės įrašyt? Pirma į C disko aplanką, tada į flešą? O ką daryt su tuo elektroniniu parašu? Šiandien buvom apsižiūrėt kompiuterių, tai ką jūs manot. Pačios mokytojos nieko nežino. Testo klausimus reikės rašyti į atsakymų lapą?

 

Iš vykdymo reikalavimų pabaigos (vyk. reik.) suprantu, kad testus reikės atlikti elektroninėje užduoties atlikimo sistemoje.

 

Pastaba. Dingus interneto ryšiui, egzamino laikas stabdomas. Tai fiksuojama egzamino vykdymo protokole. Visi kandidatai lieka prie savo kompiuterių. Vykdytojas prakerpa voką su užduotimi kompaktiniame diske ir įkelia užduotį iš kompaktinio disko į kiekvieno kandidato kompiuterio darbalaukį. Egzaminas pratęsiamas tiek laiko, kiek buvo sugaišta įkeliant užduotis. Kandidatai toliau atlieka užduotį. Jei kandidatas testo užduotis atlieka ne elektroninėje egzamino užduoties atlikimo sistemoje, o iš kompaktinio disko įkeltame faile, atliktos testo užduoties failą jis įrašo į kompiuterio standaus disko aplanką C:\Egzaminas, suteikdamas failui vardą, sudarytą pagal šabloną: R01.pdf (R – grupė (1 simbolis) ir eilės numeris (2 simboliai, pvz., 06; 14)). Išsaugotą failą, kaip ir failus su praktinėmis užduotimis, įrašo į atmintuką.
Redagavo Sportlich
Nuoroda į pranešimą
Dalintis kituose puslapiuose

tai tada visai nesuprantu, kam reikalingi atsakymų lapai? Mums šiandien sakė, kad ten bus surašytas vardas ir slaptažodis, kuriuo reikės KAŽKAIP jungtis su elektroniniu parašu. Bardakas :D

 

Apie el. parašą nieko nežinau.

 

Žinau tik, kad ten bus pateiktas vardas ir slaptažodis, kuriais reikės prisijungti prie egzaminų atlikimo sistemos, iš kurios reikės atsisiųsti pradinius wordo ir excelio failus.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Mums mokytutė kalba apie jį, bet nieko dorai nepasako. Kažką murmėjo apie tai, kad elektroninis parašas bus musų atmintinėse. Vienu žodžiu, kai pati individualiai mokiausi, tai tiek ir žinau. Nėra sąlygų pas mus nei normaliai su wordu dirbt, apie programavimą išvis nekalbėsiu - nes pati mokytoja nieko nenutuokia. Egzaminą laikau šiaip sau, net nežinau, kam jį pasirinkau, tai jei surinksiu 40 taškų - bus didžiausias džiaugsmas :D

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Mums mokytutė kalba apie jį, bet nieko dorai nepasako. Kažką murmėjo apie tai, kad elektroninis parašas bus musų atmintinėse. Vienu žodžiu, kai pati individualiai mokiausi, tai tiek ir žinau. Nėra sąlygų pas mus nei normaliai su wordu dirbt, apie programavimą išvis nekalbėsiu - nes pati mokytoja nieko nenutuokia. Egzaminą laikau šiaip sau, net nežinau, kam jį pasirinkau, tai jei surinksiu 40 taškų - bus didžiausias džiaugsmas :D

nereiks jokio el. parašo, teste tik gali būti klausymai apie jį, gal kažką supainiojai :)

Nuoroda į pranešimą
Dalintis kituose puslapiuose
Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...