Pereiti prie turinio

MiniPixeL

Patvirtinti nariai
  • Pranešimai

    886
  • Užsiregistravo

  • Lankėsi

  • Laimėta dienų

    3
  • Atsiliepimai

    100%

MiniPixeL Pranešimai

  1. Tamstai kaip tik prieš porą minučių išsiunčiau asmeninę žinutę su trumpu komentaru apie tavąjį sprendimą.

     

    P.S. Vadovavaisi gera logika. Tiesa, dabar vėl šiek tiek esi neteisus, vienas sprendinys visgi atmetamas.

     

    Na taip, tas sprendinys 0. Ir todėl k ribojai ne sveikųjų skaičių aibe, o +/- naturaliųjų skaičių aibe. Tiesiog vėl neparašiau to, ką turėjau galvoje. :)

  2. Kiekgi galima svaigt?

    Surask pas mane neteisingų atsakymų arba neįtrauktų teisingų atsakymų, tai išskobsiu tau bulvinį medalį.

     

    (žiūrėti prisegtą paveikslėlį)

     

    Jo dabar galvoju, ką aš ten prisvaigau bandydamas nustatyt kokie k galimi. :) Dabar pasibražęs supratau, kad visi sinusoidės sprendiniai yra apibrėžimo srityje. Paprastas uždavinys, o aš bandžiau kažką stebuklingo įžvelgt. :)

  3. Sveiki, atsitiko tokia situacija, kad kažkas buvo įėję į vieno žmogaus el. paštą (gmail) ir jo vardu siuntė baisius laiškus įvairiems pažįstamiems. Tai atsitiko turbūt dėl to, kad pats el pašto savininkas buvo į jį prisijunges viešose vietose ir ko gero pamiršęs atsijungti. Smalsu sužinoti iš kokios vietos laiškai buvo siunčiami, nes kurioje vietoje jis neatsijungė nuo savo el. pašto neprisimena. Kadangi išsiųstieji laiškai yra likę, žinomas laikas, noriu paklausti ar įmanoma sužinoti ipą kuris buvo prisijungęs tuo laiku?

     

    Skaitant tuos išsiųstus laiškus kraujas tikrai užverda, norisi pagauti tą piemenį ir nukapoti rankas.

    Štai vienas iš pavyzdžių:

    http://www.part.lt/img/adecd74df0c3041d3ea3d32a95ced404348.jpg

     

    Gal tai padės jums įsivaizduoti kodėl tam žmogui tai taip svarbu.

    Dėkoju už atsakymus.

     

    Na jei ir sužinosi IP, sužinosi iš kur siųsti laiškai. Bet kaip pats sakei - greičiausiai viešoj vietoj paliko prisijungęs, tai iš kur sužinosi, kas viešoj vietoj tuo metu sėdėjo prie kompiuterio? :)

  4. Šaknį ištraukiu. Iš vieneto šaknis yra vienetas. Ne popieriaus lapas čia, kiekvieno ženkliuko neprirašynėsi. :)

     

    Nu matai, lygtį spresdamas dvi šaknis ištrauki, o kuom nelygybė blogesnė, kad tik viena šaknis lieka? :D

    Iš esmės sprendei gerai, gaunam atsakymus: x=1, x=-1, x=pi*k/3 k priklauso Z. Bet iš pošaknio nusistatom apibrėžimo sritį ir gaunam, kad x priklauso intervalui [-begalybė;-1]U[1;+begalybė], abu pirmi atsakymai tinka, tik su ta sinusode kaip. Kadangi x=pi*k/3 ir x>=1, x<=-1 tai iš čia pi*k/3>=1, pi*k/3<=-1 ir k>=3/pi, k<=-3/pi. Taigi galutinis ats.: x=-1, x=1, x=pi*k/3 k priklauso [-begalybė;-3/pi]U[3/pi;+begalybė]. Bent jau man taip logiškai šviečias. :D

  5. Vėl reik pagalbos:

    Taškas O - apie stačiakampį EBCD apibrėžto apibrėžto apskritimo centras.Taškas G nepriklauso plokštumai EBC. ar galima nubrėžti plokštumą per tiesę GD, bei taškus B ir O?atsakymą pagrįskite.

     

    Galima, nes taškai D,O ir B yra vienoje tiesėje. Per tieses BD ir GD, ir bendrą tašką tarp jų - D galima nubrėžti plokštumą.

  6. gal kas galetu pasakyti mano klaidas?

     

    Parašykite programą, kuri patinkrintų ar teisinga formulė:

    13 + 33 + …+ (2n – 1)3 = n2(2n2 – 1),

    Kai n = 1, 2, …, 100.

     

     

     

    program ciklas2;

    var pr, gr, h, n, teisinga, neteisinga, sum:integer;

    begin

    WriteLn('iveskite n');

    Readln (n);

    pr :=1;

    gr:=100;

    h :=1;

    sum :=0;

    while pr <= gr do

    begin

    sum := sum + (n*n*n);

    pr := pr + h

    end;

    if sum =(n*n)*(2*(n*n)-1)

    then = teisinga

    else = neteisinga;

    writeln ('teisinga');

    writeln ('neteisinga');

    end.

     

    Pirma, tai programavimui yra skirta atskira skiltis. Programavimas

    Antra, ne pro šalį išmokt formatuot kodą, ir dėt jį į

    kodui skirtą foną

    .

    Na o jei apie programą, tai vieno ciklo pas tavęs trūksta. Tu tikrini skaičius tik nuo 1 iki 100, bet netikrini ar su kiekvienu teisinga lygybė. O ir kai žinomas kartojimų skaičius, paprasčiau naudot for ciklą. Aš įsivaizduoju taip:

    program Bevardė6;
    var a,sum,n,lygu:longint;
    netinka:boolean;
    begin
    sum:=0;
    for n:=1 to 100 do //tikrinam su visais skaičiais nuo 1 iki 100
     begin
      for a:=1 to n do //skaičiuojam kairiąją lygybės pusę
    sum:=sum+(2*a-1)*(2*a-1)*(2*a-1);
      lygu:=n*n*(2*n*n-1); //skaičiuojam dešiniąją lygybės pusę
      if sum <> lygu then //tikrinam ar jos lygios
    neteisinga:=true;
      sum:=0;
     end;
    if not neteisinga then //jei visiem skaičiam lygybė tiko, tai neteisinga:=false
     writeln('Formulė teisinga')
    else Writeln('Formulė neteisinga');
    Readln;
    end.

  7. prie to pačio, gal galėtų kažkas parašyt programėlę uždaviniui :

    Duotas triženklis skaičius. Parašyk programą kuri pašalintų vidurinį skaitmenį 2:diamond:

    Žinau, kad uždavinys pasirodė juokingas, bet aš pradedu nebesusigaudyt, ką ir kodėl rašyt nuo begin eilutės.. kai prasideda sk1 := tr mod div 100 ir t.t :)

     

    Na iš esmės, po begin eilutės rašomas visas sprendimo algoritmas - sprendimas. :D Nežinau kaip dar suprantamiau paaiškint. Viskas kaip matematikoj, kartais dar ir paprasčiau. Kad ir nežinodamas ką ir kaip rašyt, vistiek pirma turi susigalvot, kaip tą uždavinį spręst, apmastyt patį procesą, tik tada galvot, ką rašyt. Pavyzdžiui šiame uždavinyje: reikia išmesti vidurinį skaitmenį, taigi prieš tai reikia visą skaičių išsiskaidyti skaitmenimis, o išmetus vidurinįjį vėl skaitmenis sujungti į vientisą skaičių. Algoritmas su komentarais:

    program Bevardė6;
    var sk,a,c:longint;
    begin
     Readln(sk); //įvedam tą triženklį skaičių
      c:=sk mod 10; //atskiriam paskutinį skaitmenį, jį įrašom į kintamajį c
      a:=sk div 100; //atskiriam pirmajį skaitmenį, jį įrašom į kintamajį a
      sk:=a*10+c; //vidurį išmetėm, dabar likusius du skaitmenis jungiam į skaičių
     WriteLn(sk);
     Readln;
    end.

     

    O jei konkrečiai funkcijų ir veikimo principų nežinai, tai tiesiog mokytis ir dar kartą mokytis. 2:diamond:

  8. idomus tavo variantas, bet tarkim yra eilute:

     

    labas rytas

     

    nuskaitau kaip string ir man reikia tuos du zodzius atskirt>>

     

    okay, zodi "labas" nuskaitau pradedamas nuo pirmos pozicijos:

     

    nauja_eilute:=copy(eilute,1,pos(' ',eilute));

     

    bet jau norint nuskaityt zodi "rytas", man reik nurodyt nuo kur skaityt.

    sikart butu nuo 7 sloto:

     

    nauja_eilute:=copy(eilute,7,pos(' ',eilute));

     

    kai viena eilute tai viskas ok. o jei man reik masyva daryt:

     

    labas rytas
    laba diena
    viso gero

     

    tai kitai eilutej nebetiks skaitymas nuo 7 sloto, nes cia jau kitokios zodziu ismeros..

    vadinasi iseina tas pats kas ir string[x]; :)

     

    Nesakei, kad ir antrą žodį reiks nuskaityt. :D Na tai kiekvienoj eilutėj gali kopijuot, pirmą žodį nuo pradžios iki tarpo pozicijos, antrą žodį nuo tarpo pozicijos iki eilutės galo. Taigi betkokiom eilutėm tinka:

    nauja_eilute:=copy(eilute,1,pos(' ',eilute)); // čia nukopijuosim pirmą žodį
    nauja_eilute2:=copy(eilute,pos(' ',eilute),length(eilute));

  9. Padaryciau uz 5lt gera su visais faktais ir pan. Ne tik wikipedija naudociaus ir ne tik internetu turiu daug knygu apie istorija ir t.t.

     

    Žmogui 3 litų gaila, o tu galvoji jis 5 mokės? :D Iš esmės, nori nemokamai - daryk pats. Gal ir nelabai gerai gausis, bet bus bent jau nemokamai. Gi ne taip sunku - informacijos pilna, o ir su powerpoint ypatingų žinių nereikia. :)

  10. duomenis issaugot taip:

    4 13 Jonas		   Artojas		//A[1]
    2 51 Petras		  Melzejas	   //A[2]
    3 71 Anupras		Girininkas	 //A[3]
    1 42 Kazimieras	 Gaspadorius  //A[4]
    6 34 Donce		   Sestas		 //A[5]
    1 12 Kulverstukas  Padejejas	//A[6]

    Turi butu sulygiuoti

     

    Jo, gali skaičiuot tarpus jei neturi ką veikt. :)

    Daryk taip: pirma nuskaityk visą eilutę (sakykim kintamasis - eilute), tada pirma žodį - viską iki pirmo tarpo - nukopijuok į kitą kintamąjį (kintamasis - nauja_eilute), kodas atrodytų taip:

    nauja_eilute:=copy(eilute,1,pos(' ',eilute));
    {eilute - nuo ko kopijuosim, 1 - nuo kurio simbolio pradėti, pos(' ',eilute) - iki kokio simbolio kopijuoti, šiuo atveju iki tarpo - ' ' pozicijos}

     

    Tik gali kilti problemų, dėl to, kad yra prieš tai du skaičiai. Bent jau man tai pascalis svaigsta ir nuskaito tekstinę eilutę su tarpu priekyje (tada tarpo pozicija tampa 1 ir nieko nenukopijuoja). ;) Jei taip nutiktų, tą nereikalingą tarpą nuskaityk į kokį papildomą char. :D

  11. Laiko turėdamas pasprendinėjau, tai pridedu uždavinių pavyzdžių. Kad matytumėt, ar raštas suskaitomas ir pan. ;)

    Matematika:

    1.Trys broliai pasidalijo loterijoje laimėtus pinigus taip: vyriausias gavo 0.3 visos sumos ir dar 8 Lt, vidurinysis - 0.4 likusios sumos ir dar 16 Lt, jauniausias - 0,7 naujo likučio ir dar 24 Lt. Kokia pinigų suma buvo laimėta ir kiek litų gavo kiekvienas brolis?

    post-28850-1273598411_thumb.jpg

     

    2.Triženklio naturaliojo skaičiaus skaitmenys sudaro geometrinę progresiją, kurios vardiklis lygus 0,5. To skaičiaus skaitmenų suma lygi 14. Raskite tą skaičių.

    post-28850-1273598448_thumb.jpg

     

    3.Su kuria a reikšme y=3*x+a yra funkcijos f(x)=2*x^2+5*x+1 grafiko liestinė?

    post-28850-1273598473_thumb.jpg

     

    Fizika:

    1.Oro burbuliuko, kuris yra prie ežero dugno, tūris padidėja 3 kartus, kai jis pakyla į vandens paviršių. Temperatūra prie dugno yra 7C, o vandens paviršiuje 17C. Atmosferos slėgis

    10^5 Pa, laisvojo kritimo pagreitis 10 m/s^2, vandens tankis 1000 kg/m^3. Kiek kartų slėgis burbuliuke sumažėja jam iškilus į paviršių? Kokio gylio ežeras?

    post-28850-1273598511_thumb.jpg

     

    2.Kišeninio žibintuvėlio baterijos elektrovara yra 4,5V. Dėl didelės vidinės varžos, prie jos galime jungti 3,5V įtampai skirtą lemputę. Srovės stipris tekantis lemputės siūleliu lygus 0,28A.

    1) Koks krūvis prateka per 1 sekundę lemputės siūleliu?

    2) Kokia šviečiančios lemputės varža?

    3) Kokia vidinė baterijos varža?

    post-28850-1273598536_thumb.jpg

     

    Pascal:

    1.Turime skaičių n, reikia jam rasti didžiausią pirminį daliklį.

    program pirminiai;
    
    function pirminis(n : int64) : boolean; {fukncija nustato ar skaičius pirminis}
    var d, { potencialus daliklis }
    sn : longint; { riba, iki kurios ieškosime daliklių }
    begin
    pirminis := (n mod 2 <> 0) or (n = 2);
    sn := round(sqrt(n) + 1);
    d := 3; { tikrinsime dalumą iš nelyginių skaičių }
     while pirminis and (d < sn) do
      if n mod d = 0 then pirminis := false
      else d := d + 2;
    end;
    
    var k,n,dal: longint;
    
    begin
    
    ReadLn(n);
    k:=(n-1);
    while dal=0 do {vykdome kol randame daliklį}
     begin
      if pirminis(k) and (n mod k=0) then
    dal:=k
      else
    dec(k);
      end;
    Writeln(dal);
    ReadLn;
    end.

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