C_Linas

http://www.youtube.com/watch?v=m6VojYGrnpg

Pirkom laptopą iš jų.Pristatė gan greit,viskas buvo normaliai,tačiau reikėjo tą laptopą siųst jiem dėl garantinio,nes pradėjo durniuot.

Sveiki,aš taip pat norėčiau susikurti blog'ą su Wordpress ir dabar iškilo man dilema.Niekaip neišsirenku ir nežinau kaip išsirinkt normalesnį hostingą.Aš jam galėčiau skirti ~5lt į mėnesį per sms.Ir dar klausimas,kai kuriuose hostinguose mačiau,kad minimali sutartis yra 12 mėnesių,kas mane biškį baido,nes nesu tikras,kad aš jam turėsiu daug laiko ateityje.Taigi jeigu turit kokių pasiūlymų mielai išklausyčiau.Ačiū.

Sveiki,norėjau pasiteirauti/paklausti dėl studijų,kurios būtų susijusios su programavimu.Jeigu norėčiau stoti,kad ir į tą patį KTU ar kokį Vu ar bet kokį kitą universitetą/kolegiją, kurią kryptį reikėtų rinktis? Taip pat baigus bakalaurą ar yra toliau studijuos kurios daugiausiai gilintūsi tik į programavimą? Aš bandžiau žiūrėti jų tinklapiuose,bet nelabai sekėsi.Radau,kad turbūt reik imti Informacines technologijas ir poto stot į magistrą,bet ten irgi,ne tik programavimas,bet ir kitokių dalykų radau. Į Lietuvą stosiu kraštutiniu atveju,nes pirmu atveju renkuosi Daniją ir čia taip pat turiu

Tik aš nesuprantu vieno dalyko,tarkim užuplaudinau kelis video,pradėjo ten tą 'proceeding' ar kaip ten ir dabar jau turėtų eit būti prieinamas visiem,surasti per searchą ir panašiai,tačiau nei vienas iš šių dalykų neišeina.IR šiaip,kodėl visi video kurie ten yra tai absoliučiai visi yra įkelti 4 weeks ago,naujesnių net nėra,tai klausimas ar dar šitas tinklapis veikia? :|

O,atrodo sutvarkiau,kad eitų normaliai kodą įdėti,štai ir jis : program Noname49; var a,i,j,n,kiek:integer; b:boolean; begin readln(n); i:=0; b:=false; While not b do Begin inc(i); For j:=1 to i do Begin if i mod j = 0 then Begin writeln(j); inc(kiek); a:=i; end; if kiek = n then b:=true; end; kiek:=0; end; writeln(a); Readln; end.

O kodėl reikia būtent 19 metų,18 per dar netinka? :)

Nežinau ar gerai suprantu užduotį.9 aukšų namas (aukšte po 3 butus) su trimis laiptinėmis,tai pirmoje laiptinėje yra 1-27 butai,antroje laiptinėje 28-5č , trečioje 56-83 , kažkas tokio ar aš klystu? Jei taip,tai užsipildyt masyva iki 83 numerio,o poto tikrinti.Iš 83 atimti įvestą butą ir žiūrėti kuriam intervale (laiptinėje ) jis yra.Ktias būdas užsipildyti kelis masyvus ir poto eiti per tuos masyvus ir ieškoti įvesto buto numerio.Gal ir daugiau būdų yra,nežinau,bet nežinau ar ir gerai supratau užduotį :)

http://www.youtube.com/watch?v=ss8MZAKaLiw

Tai gal šitaip? :) program mas; Type Masyvas1 = array [1..10] of integer; Masyvas2 = array [1..10] of integer; Var A : Masyvas1; B : Masyvas2; i, j : integer; begin For i := 1 to 10 do A[i] := i; for i := 1 to 10 do Begin For j := 1 to 10 do begin B[i] := A[i] * j; Write(j,'*',A[i],'=',b[i],' '); end; writeln; end; Readln; end.

čia šiaip,kad atspausdint daugybos lentelę masyvų nereikia,tiesiog per indeksus eiti,manau šitaip: program lentele; var i,j: integer; begin For i:=1 to 9 do Begin For j:=1 to 9 do Begin Write(j,'*',i,'=',i*j,' '); end; writeln; end; readln; end.

Turiu problemą ir ieškau atsakymo.Pagrindinis klausimas būtų toks,kaip galima būtų atšaukti windowsų xp instaliavimą? Nes meta klaidą ties šita vieta http://www.subtraction.com/pics/0401...xp_install.jpg tik tiek,kad pati pradžia ir eroras visai kitas,eroras - klaida failuose,nes blogai sukopino ar kažkas panašaus,bekopinant reikėjo spaudinėt esc,kad praskipintų kaikuriuos failus. Iš pradžių tam kompe buvo keli windowsai,buvo perinstaliuojama viskas į Xp,tačiau vidurį disko formatavimo buvo padarytas RR.Ir dabar reikia,jei įmanoma,kad kažkaip atšaukti tą windowsų xp isntaliavimą,nes neina nie

Per daug nesitikiu,kad rasiu žmogų žinantį į man kelis rūpimus klausimus,bet gal kartais ir atsiras toks :) Klausimai būtų tokie: 1.Išvardyti jums žinomas elektromagnetinių bangų savybes. Truputį paskaitęs radau tai: magnetinį lauką sukuria elektros srovė (judantys krūviai) magnetinis laukas aptinkamas pagal jo poveikį elektros srovei. Turbūt tinka? Ar yra ir daugiau savybių? 2.Kokie yra radiolokatoriaus veikimo principai? Čia kaip suprantu turbūt tas principas yra toks,kad jis išsiunčia signalą ir gauna atsispindėjusį,ko pasakoje mato,kur yra kažkoks tai objektas? 3.Kokie procesai suža

Nu tai tą ciklą For galima pakeisti į While,bet su For patogiau ir paprasčiau,tai tiek :)

Ar gerai nežinau.pasitikrink ir pranešk. program dienpienigiai; var j,s,k,i,x,a,b,lt:integer; t:boolean; begin readln(a); readln(b); readln(x); Lt:=10; k:=0; i:=0; t:=true; if (a+a-b)>0 then Begin for j:=1 to x do Begin lt:=lt+a; inc(i); if i=2 then Begin inc(k); lt:=lt-b; i:=0; End; End; Writeln('Per ',x,' dienu sutaupys: ',lt,' litu'); End else while T do Begin lt:=lt+a; writeln(lt); inc(i); if i=2 then Begin if lt-b<0 then Begin t:=false; break; end; inc(k);

Arba šitaip. program taskai; var kuri,i,min,p1,p2,p3:integer; begin readln(p1); readln(p2); readln(p3); min:=p1; kuri:=1; if p2<min then Begin kuri:=2; min:=p2; End; if p3<min then Begin min:=p3; kuri:=3; End; writeln('Maziausiai tasku surinko ',kuri,' komanda'); Readln; end.