Mantonijo

Birželio 17, 2015

Laikusieji, kokios nuotaikos, kaip pasiseke? Kaip jums I-oji programavimo uzduotis? :)

http://www.part.lt/img/059aec8c0bfab0ec6b9ea0a7a8cb030a572.jpg

Birželio 14, 2015

Turiu klausimą dėl IT VBE.Ar galima naudoti STL bibliotekos algoritmus? Pvz : Parašykite funkciją, randančią didžiausią gyventojų kiekį.
O aš lengvai pasinaudoju max_element(....;.....).

Negalima

Birželio 12, 2015

Draiveriai yra, bet Device Manager rodo šauktuką. Error: This device cannot start. (Code 10)

Bus problema cia. Pagal Hardware id susirask sau tinkamus driverius

Birželio 11, 2015

Aciu uz pagalba, programa padaryta. Tik nemokejau padaryti, jog

Esant  vienodam gyventojų  skaičiui – rikiuoti abėcėlės tvarka pagal apskrities pavadinimą.

Jeigu kam reikes programa "Miestai ir apskritys":

program mia;
type duom = record
   miest : string[20];
   aps   : string[13];
   gyv   : longint;
   end;

   rez = record
   apz : string[13];
   mm  : longint;
   gyv : longint;
   end;
   Mas1 = array [1..50] of rez;
   Mas = array [1..103] of duom;

var A:Mas;
   B:Mas1;
   n:integer;

////////////////////////////////////////////////////////////////////////////////
procedure Skaitymas;
var i:integer;
   F:text;

   begin

   Assign(F, 'U2.txt');
   Reset(F);
   ReadLn(F, n);

       for i:= 1 to n do begin
       ReadLn(F, A[i].miest, A[i].aps, A[i].gyv);
       end;

   Close(F);
end;

////////////////////////////////////////////////////////////////////////////////
var i, j, k, l, nuo, s:integer;
   max:longint;
   laik:duom;
   laikin:rez;
   R:text;

   begin
   l:=1;
   s:=0;
   max:= 999999;

   Assign(R, 'U2rez.txt');
   Rewrite(R);
   Skaitymas;

//////// Masyvo rikiavimas pagal abecele ///////////////////////////////////////

for i:=1 to n-1 do begin
   nuo:=i;
   for j:= i+1 to n do
   if (A[j].aps <= A[nuo].aps) then nuo:=j;
   laik:=A[nuo];
   A[nuo]:=A[i];
   A[i]:=laik;
   end;
///////// Gyventoju sudetis i B[l] masyva ir maziausio miesto radimas //////////

   for i:= 1 to n do begin
   B[l].apz:= A[i].aps;
   j:= i + 1;
       if (B[l].apz = A[j].aps) then begin
       B[l].gyv:=B[l].gyv + A[i].gyv;
       if (max > A[i].gyv) then begin max:= A[i].gyv;
                                      B[l].mm:=max;
                                end;
       end
       else begin  B[l].gyv:=B[l].gyv + A[i].gyv;
                   l:= l + 1;
                   s:= s + 1;
                   max:= 999999;
            end;
   end;
  ////// Surusiavimas mazejimo tvarka /////////////////////////////////////////

  for i := 1 to s-1 do begin
  nuo := i;
   for j := i+1 to s do
   if B[j].mm < B[nuo].mm then nuo := j;
  laikin := B[i];
  B[i] := B[nuo];
  B[nuo] := laikin;
end;
   //////// Spausdinimas //////////////////////////////////////////////////////

   WriteLn(R, s);
   for i:= 1 to s do
   WriteLn(R, B[i].apz, ' ', B[i].mm, ' ', B[i].gyv);

   Close(R);

end.

Birželio 11, 2015

Pabandyk taip:

  for i:= 1 to n do begin                // Nuo 1 iki viso masyvo
       for j:= i+1 to n do
       if (A[i].aps = A[j].aps)             // Jeigu apskritys lygios
       then 
         B[l].gyv:= B[l].gyv + A[j].gyv;      // I kita masyva prideda gyventojus
   end;

Taip veikia, bet cia sudeda visus gyventojus ir neprideda 1 gyventoju skaiciaus, o ne pagal apskritis.

Birželio 11, 2015

Mantonijo laikysi informatikos egza?

Taip

As esu padares algoritma, kuris surikiuoja pagal apskritys ir i kita masyva pridedineja gyventojus, taciau Ranges Overrun ties sita eilute:

then B[l].gyv:= B[l].gyv + A[nuo].gyv      // I kita masyva prideda gyventojus

for i:=1 to n-1 do begin              ///// Rikiavimas
   nuo:=i;
   for j:= i+1 to n do
   if (A[j].aps <= A[nuo].aps) then nuo:=j;
   laik:=A[nuo];
   A[nuo]:=A[i];
   A[i]:=laik;
   end;

   for i:= 1 to n do begin                // Nuo 1 iki viso masyvo
   nuo:= i;
       for j:= i+1 to n do                
   if (A[nuo].aps = A[j].aps)             // Jeigu apskritys lygios
   then B[l].gyv:= B[l].gyv + A[nuo].gyv      // I kita masyva prideda gyventojus
   else begin B[l].gyv:= B[l].gyv + A[j].gyv; // Jeigu nelygios, prideda paskutine reiksme ir kito masyvo skaitikliui prideda 1
              l:= l + 1;
        end;
   end;

Birželio 10, 2015

Jeigu turi c++ kodą, kam išradinėti dviratį? Išversk į Paskalį ir viskas.

Nelabai as suprantu ta C koda. O paskaliu tai niekaip nesugalvoju. Gal kazkas galetu bent ant kelio uzvest?

Birželio 10, 2015

Man viskas veikia be klaidų. Patikrink U2 failą, ar tarpelių kiekis tarp žodžių teisingas... ir gal vis dėl to laikas išsiaiškinti kaip debageris veikia? :unsure:

Kadangi gyventoju skaicius didelis tai reikejo naudot longint ir viskas issisprende, bet dabar problema, kaip surikiuoti pagal abecele (apskritis) ir kartu pagal gyventoju skaiciu.

Birželio 10, 2015

Sveiki, nesuprantu kodel man skaityme raso "Ranges overrun"?

II progrmavimo uzduotis "Miestai ir apskritys"

program mia;
type duom = record
   miest : string[20];
   aps   : string[13];
   gyv   : integer;
   end;

type rez = record
   apz : string[13];
   mm  : integer;
   gy : integer;
   end;
   Mas1 = array [1..50] of rez;
   Mas = array [1..103] of duom;

var A:Mas;
   B:Mas1;
   n:integer;

////////////////////////////////////////////////////////////////////////////////
procedure Skaitymas;
var i:integer;
   F:text;

   begin

   Assign(F, 'U2.txt');
   Reset(F);
   ReadLn(F, n);

       for i:= 1 to n do
       ReadLn(F, A[i].miest, A[i].aps, A[i].gyv);

   Close(F);
end;

////////////////////////////////////////////////////////////////////////////////
var i, j, k, l, nuo:integer;
   laik:duom;
   R:text;

   begin

   Assign(R, 'U2rez.txt');
   Rewrite(R);
   Skaitymas;

   ////// Rikiavimas pagal abecele ir gyv. sk. ////////////////////////////////

   for i:=1 to n-1 do begin
   nuo:= i;
       for j:=i+1 to n do
       if((A[j].aps <= A[nuo].aps) and (A[j].gyv < A[nuo].gyv)) then nuo:= j;
   laik:=A[nuo];
   A[nuo]:=A[i];
   A[i]:=laik;
   end;

   ////////////// Tikrinu kaip surikiavo ir atspausdinu ///////////////////////

   for i:= 1 to n do
   WriteLn(R, A[i].miest, ' ', A[i].aps, ' ', A[i].gyv);

   Close(R);

end.

Birželio 9, 2015

yra toks dalykas kaip debageris ;)

  for i := 1 to n do
 begin
   A[i].viso := Kilometrai(A[i]); // Suranda kelia iki ir atgal
   if (visi + A[i].viso) < m then
   begin
     visi := visi + A[i].viso;
     z := z + 1;
   end
   else
     break;
 end;

Deja, nemoke tokio dalyko mokykloje.

Birželio 9, 2015

Stai rikiavimo procedura:

procedure Išrinkimas (var a:array of integer; N:integer);
var i, j, nuo, t: integer;
begin
 for i := 1 to N-1 do
 begin
   nuo := i;
   for j :=i+1 to N do
     if a[j] < a[nuo] then nuo := j;
     t := a[nuo];
     a[nuo] := a[i];
     a[i] := t
   end;
 end;

Birželio 9, 2015

Sedejau 2 val. prie uzduoties ir atsakyma vietoje 28 gaunu 30.

I progrmavimo uzduotis "Siuntu tarnybos"

program siuntiniukai;
type siuntos = record
   pav : string[10];
   x : integer;
   y : integer;
   viso : integer;
   end;
type Mas = array [1..50] of siuntos;

////////////////////////////////////////////////////////////////////////////////

var A:mas;
   n, m, visi, z, i:integer;
   R:text;

////////////////////////////////////////////////////////////////////////////////

procedure Skaitymas;
var i:integer; // Skaitiklis
   F:text;    // Duomenu failas

   begin
   Assign(F, 'U1.txt');
   Reset(F);
   ReadLn(F, n, m);

       for i:= 1 to n do
       ReadLn(F, A[i].pav, A[i].x, A[i].y);

   Close(F);
end;

////////////////////////////////////////////////////////////////////////////////

function Kilometrai(K:siuntos) : integer;
var Kil:integer;

       begin

       Kil:= 2*(abs(K.x) + abs(K.y));
       Kilometrai:= Kil;
end;

////////////////////////////////////////////////////////////////////////////////

begin

   Assign(R, 'U1rez.txt');
   Rewrite(R);

   Skaitymas;  // Nuskaito duomenys is U1.txt
   Visi:= 0;   // Visi nuvaziuoti kilometrai
   z:= 0;     // Vaziuoti kartai


   for i:= 1 to n do begin
   A[i].viso:= Kilometrai(A[i]); // Suranda kelia iki ir atgal
   while Visi < m do begin
   Visi:= Visi + A[i].viso;
   z:= z + 1;
   end;
   end;

   WriteLn(R, z, ' ', Visi, ' ', A[z].pav);

   Close(R);
end.

Atsakymas:

3 30 Kostisa

Birželio 6, 2015

Tai ar priima į profkę, jei neišlaikau lietuvių egzo? Nes parašyta, kad priima su viduriniu išsilavinimu metams mokytis specialybės, bet, kaip suprantu, nesiskaito vidurinis išsilavinimas, jei neišlaikai lietuvių?

Priima ir be atestato, tik su tuo liudijimu.

Birželio 6, 2015

O ar yra KTU studijos, kurios moko web development, duomenu bazes giliai, nes as, kaip suprantu, informacines sistemos - tai pavirsutiniskas paemimas visko. Biski to biski to, palyginus su programavimo studijom.

Birželio 4, 2015

Sveiki,

ar apsimoka stoti į KTU Informacinės sistemas? Man labiau patinka kūrti tinklapius, dirbti su PHP ir MySQL. Ar ten plačiai apima duomenų bazes? Gal kažkas mokotes ir galit patarti? :)

Gegužės 16, 2015

Sveiki, norejau pasiteirauti nuo kokio svorio tabako prasideda muitas siunciantis is JAV? Jeigu paraso ant siuntinio dezes, jog viduje yra tabakas. Kiek procentu beje?

Vasario 10, 2015

Pasižiūrėk ar duomenų faile tikrai teisingai atidėtos reikšmės. Turiu omeny, kad pav - 15 simbolių

Užduotyje nurodyta, kad Pavadinimui skirtos pirmos 15 eilutės pozicijų.

Duomenų failas, kurį susikūriau pats:

6 70 10 15
Elektrėnai 50.5
Žiežmariai 20
Kaunas 22.35
Raseiniai 80
Kryžkalnis 20
Klaipėda 100.8

Pagal šį:

http://i.imgur.com/Jabs5ph.png

Susitvarkiau, reikėjo atidėt dar pora tarpų po pavadinimų.

Vasario 10, 2015

Sveiki, kodėl meta problemą ties 22 eilute? Kaip suprantu A.pav nuskaito, bet A.kelias jau nebe nuskaito. Kame šaknys?

program Kelionë;
 type
   stoteles = record
    pav : string[15];
    kelias : real;
    hpr, mpr : integer;
   end;
 Mas = array [0..100] of stoteles;

// Duomenų skaitymas

procedure Skaitymas(var A:Mas; var n:integer; var v:real);
 var  F : text;
      i : integer;

   begin
   Assign (F, 'U1.txt');
   Reset (F);
   ReadLn (F, n, v, A[0].hpr, A[0].mpr);

       for i := 1 to n do
       ReadLn (F, A[i].pav, A[i].kelias);

   Close (F);
   end;

var A:Mas;
   n, i:integer;
   v:real;
   R:text;

   begin
   Assign(R, 'rez.txt');
   Rewrite(R);

   Skaitymas(A, n, v);

   for i:=1 to n do
   WriteLn(R, A[i].pav, ' ', A[i].kelias);
   Close(R);

end.

Vasario 7, 2015

Gali naudot:

<?php include 'failas'; ?>

Vasario 5, 2015

Turiu SteelSeries Kinzu apie 3 metus, nusiskundimų nėra, nebuvo sugedus nei karto nors buvo kritus ir taip toliau. Taipogi, labai patogi.

Vasario 4, 2015

Čia gal valstybinė paslaptis, kad niekas nežino? :D

Vasario 3, 2015

Sveiki,

norėčiau paklausti, kokį rinktis TVS'ą, kad prisiregistravę žmonės galėtų pirkti virtualius kreditus tame puslapyje? Tarkim per Mokėjimai.lt. Nusipirkę tuos kreditus galėtų išleisti puslapyje.

Sausio 19, 2015

Pakviečiau į Skype.

Sausio 12, 2015

Sveiki, pastebėjau, kad daug žmonių kalbą apie tą Laravel. Tačiau kas tai yra? Suprantu, kad kažkoks framework'as, bet kaip jis padeda kuriant puslapį?

Sausio 12, 2015

Norėčiau paklausti kokiu maksimaliu greičiu gali kelti failus iš PC į paprastą tarkim 4GB USB per USB 3.0?

Prisijungti

Mantonijo

Pranešimai

Užsiregistravo

Lankėsi

Atsiliepimai

Turinio tipas

Forumas

Kalendorius

Parduotuvė

Akademija

Skelbimai

Mantonijo Pranešimai

2015 IT VBE

Klausimas del IT VBE

is pc i tv nera garso

2013 IT VBE II programavimo uzduotis

2013 IT VBE II programavimo uzduotis

2013 IT VBE II programavimo uzduotis

2013 IT VBE II programavimo uzduotis

2013 IT VBE II programavimo uzduotis

2013 IT VBE II programavimo uzduotis

2013 IT VBE programavimo uzduotis

Pascal užduotis

2013 IT VBE programavimo uzduotis

egzamino neišlaikymas

Dėl studijų KTU

Dėl studijų KTU

Tabako muitas is JAV

Pascal įrašas

Pascal įrašas

html iterpimas i kita html

Razer vs steelseries

TVS pasirinkimas

TVS pasirinkimas

CS:GO giftai

Invidualios laravel pamokos

USB 3.0

Veiklos srautas

Skelbimai