Informatikos VBE 2013

sveiki

program Bevardė2;
   Type irasas = record                         // supratau šitą
       vardas : string[10];
       dienos : 1..30;
       karosu : integer;
       karpiu : integer;
       kuoju : integer;
       isvis : integer;
   end;

   var duom, rez : text;                     // čia kaip ir viskas aišku
   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:\1\U2.txt');           //failo vieta
       reset(duom);                         //nuskaitysime failą
       Readln(duom, n);                       // kas šitas n ?

       for i := 1 to n do                      // irgi iki n ?
           begin
           Read(duom, zvejai[i].vardas);       // žvejai ir dienos toje pačioje eilutėje, viskas aišku
           Read(duom, zvejai[i].dienos);
           Readln(duom);                       //skaitomos eilutės po žvejų ?
           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:\1\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.

gal kas galite parašyti komentaru kas čia maždaug ką atlieka , paskutinė diena o tik dabar tesusigriebiau ties sunkiausia dalim ir kur galėčiau rasti šitą U2.txt failą nes kai iš pavyzdinės imu gaunu blogą skaičiaus formątą ?

Labiausiai pastriges ties failo skaitymu esu viskas kita kaip ir aišku.

sveiki

 

"kas šitas n?"

n yra žvejų skaičius. Jo reikia tam, kad žinotume kiek kartų reikės skaityti eilutes su informacija apie žvejybą.

"irgi iki n?"

ten užvedamas ciklas kad skaitytų kiekvieno žvejo informaciją tiek kartų, kiek yra žvejų (n)

"skaitomos eilutės po žvejų?"

Kadangi ankščiau buvo tik Read komanda, viskas vyko vienoje eilutėje, Readln(duom) perkėlia veiksmą į kitą eilutę.

Pagal mane čia galima ir paprastai :

Readln(duom,zvejai[i].vardas,zvejai[i].dienos)

Žodžiu, esmė tame, kad Readln(duom) tiesiog perkelia visus veiksmus į kitą eilutę

"????"

Ten žuvis kaupia į vieną masyvą. Perskaito vieno žvejo vieną dieną pagautas žuvis ir kaupia į to žvejo masyvą.

"kas šitas n?"

n yra žvejų skaičius. Jo reikia tam, kad žinotume kiek kartų reikės skaityti eilutes su informacija apie žvejybą.

 

"irgi iki n?"

ten užvedamas ciklas kad skaitytų kiekvieno žvejo informaciją tiek kartų, kiek yra žvejų (n)

 

"skaitomos eilutės po žvejų?"

Kadangi ankščiau buvo tik Read komanda, viskas vyko vienoje eilutėje, Readln(duom) perkėlia veiksmą į kitą eilutę.

Pagal mane čia galima ir paprastai :

Readln(duom,zvejai[i].vardas,zvejai[i].dienos)

Žodžiu, esmė tame, kad Readln(duom) tiesiog perkelia visus veiksmus į kitą eilutę

 

"????"

Ten žuvis kaupia į vieną masyvą. Perskaito vieno žvejo vieną dieną pagautas žuvis ir kaupia į to žvejo masyvą.

dėkingas labai , stengiuosi dabar analizuoti :)

.

Labai reiketu pagalbos. Gal galit pasakyt kaip padaryti, kad Y asyje reikmes rasytu kas 20 %? pvz 20% 40 % 60 % 80 % 100%

Sveiki, kiek reikia taškų surinkti minimum kad egzaminas būtų išlaikytas?

Labai reiketu pagalbos. Gal galit pasakyt kaip padaryti, kad Y asyje reikmes rasytu kas 20 %? pvz 20% 40 % 60 % 80 % 100%

Pažymi ašį, atsidarai kontekstinį meniu, pasirenki formatuoti ašį ir prie ašies parinkčių nustatatai pagrindinį vienetą į 0,2 (jeigu reikia, pasimodifikuoji maksimalią ir minimalią reikšmes).

Kiek gavot atsakymą pavyzdinės užduoties (ten kur dalinasi iš 3)? Aš gavau 2667

Sveiki, kiek reikia taškų surinkti minimum kad egzaminas būtų išlaikytas?

20 taškų.

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

Kiek gavot atsakymą pavyzdinės užduoties (ten kur dalinasi iš 3)? Aš gavau 2667

3000.

Kiek gavot atsakymą pavyzdinės užduoties (ten kur dalinasi iš 3)? Aš gavau 2667

Tai kad klaidingai tas uždavinys sudarytas. Jei skaičiavai, kiek skaičių nuo 1000 iki 9999 dalijasi iš 3 be liekanos, tada atsakymas 3000.

program Noname0;
 var i,k:integer;
begin
 k:=0;
 for i:=1000 to 9999 do
   if i mod 3 = 0
 then k:=k+1;
 Writeln(k);
 Readln;
end.

Kitas variantas - jei skaičiavai kiekvieną skaitmenį atskirai ir kažką ten su juo darei. Tiksliai nebepamenu kaip ten turėjo būt, tai ir atsakymo nepasakysiu, bet paieškok šioj temoj tikrai rasi sprendimą, prieš kokius 5-6 puslapius mačiau :).

Pažymi ašį, atsidarai kontekstinį meniu, pasirenki formatuoti ašį ir prie ašies parinkčių nustatatai pagrindinį vienetą į 0,2 (jeigu reikia, pasimodifikuoji maksimalią ir minimalią reikšmes).

Labai labai Tau dekingas :)

Kiek gavot atsakymą pavyzdinės užduoties (ten kur dalinasi iš 3)? Aš gavau 2667

Yra du būdai:

tiesiog dalini iš trijų;

arba

sudedi skaitmenis ir tikrini ar dalinasi iš trijų;

Abiejų atsakymai: 3000

Pascal kodas:

program Noname14;
var i,k,l : integer;
   sk,sk2,sk3,sk4,sum : integer;
begin
 k:=0;
 for i:=1000 to 9999 do
 begin
   //vienas budas
   if((i mod 3)=0)then
       k+=1;

   //antras budas
   sk := i div 1000;
   sk2 := i div 100 - (sk*10);
   sk3 := i div 10 - (sk*100) - (sk2*10);
   sk4 := i div 1 - (sk*1000) - (sk2*100) - (sk3*10);
   sum:=sk+sk2+sk3+sk4;
   if((sum mod 3)=0)then
       l+=1;
 end;
 WriteLn(k);
 writeln(l);
 Readln;
end.

Abu neteisingi. Paskaitom užduotį dar kartą. Nedarykit tokių žioplų klaidelių :)

Abu neteisingi. Paskaitom užduotį dar kartą. Nedarykit tokių žioplų klaidelių :)

Tai kiek tu gavai, tamsta, jei jau teisingai išsprendei? :D Man gaunas 2667

Tai kiek tu gavai, tamsta, jei jau teisingai išsprendei? :D Man gaunas 2667

Gavau 3000. Atsakymas šis teisingas. Tačiau tokio atsakymo pateikimo neužskaitys! Skaitom užduotį

Kad dar nebuvo to vbe :lol: Įdomu ką sprendei...

http://www.nec.lt/failai/3398_2013-IT-pavyz-uzd.pdf

aj.... :D

Turiu dar viena uzduoti: Rinkimai. Lenteleje nurodyti kiekvieno mokinio gimimo metai menuo ir data. Pagal konstitucija rinkimuose gali dalyvauti pilieciai sulauke 18 m. Apskaiciuoti ar mokiniai gales dalyvauti rinkimuose ar ne. Pats padariau baisiai ilga salyga ir nezinau ar cia ji butina. Gal yra paprastesnis sprendimo variantas? Stai mano sugalvota: =IF(YEAR($F$2)-C5<18;"ne";IF(AND(YEAR($F$2)-C5=18;MONTH($F$2)<D5);"ne";IF(AND(YEAR($F$2)-C5=18;MONTH($F$2)=D5;DAY($F$2>=E5));"ne";"taip"))) Nuoroda atsisiuntimui: http://www6.zippyshare.com/v/13437142/file.html

aš naudojau tokią formulę : =IF((F$2-G5)/365,25<18;"Ne";"Taip")

G5 - tai padariau date(a;b;c) pagal duomenis

C++ string funkcijos nelabai žinau. Duomenų faile yra miestų pavadinimai, kaip nuskaityti tuos, kurie susideda iš dviejų žodžių?

Sėkmės visiems! Tikiuosi jūs nepadauginot taip kaip, kad aš iš vakaro, o dabar dvesiat..

Greitas klausimas del wordo :D Kaip padaryti, kad naudodamisei desimtainio skyriklio tabuliacijos zyme isdestyti skaitmenis 4 cm atstumu nuo kairiosios dokumento parastes. Matavimo vienetus pateikti 6,5 cm atstumu nuo kairiosios dok parastes

Kaip sekėsi?

parašykit atsakymus kas

Kaip sekėsi?

Programavimas totalus #####. Nebuvo lengvo uzdavinio, kažkokias nesąmones parašiau. Office'as tai lengvas, bet be programavimo labai prastai gausiu.

kas tas vikis?

Programavimas totalus #####. Nebuvo lengvo uzdavinio, kažkokias nesąmones parašiau. Office'as tai lengvas, bet be programavimo labai prastai gausiu.

Pirma programavimo užduotis tikrai nebuvo sunki, dėl antros sutinku, nebuvo labai paprasta, maždaug olimpiadinio lygio.

kas tas vikis?

Wiki(-pedia) tipo puslapiai, laisvai žmonių redaguojama/pildoma enciklopedija.