C_Linas

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 šiokį tokį klausimą.Jeigu stojant kažką su programavimu tai kiek supratau/radau reikia stoti į Computer science ir toliau jau būna pasirinkti Software/Web development.O darbo galimybės mano būtų kaip jie rašo tokios:

Systems Developer

Systems Designer

Programmer

Systems Planner

IT Consultant

Project Manager

Systems Constructor

Web Developer

Ir galbūt yra žmonių baigusių kažką panašaus ar žinančių apie šiuos darbus,koks maždaug darbas galėtų būti ir panašiai?Aišku čia kiek suprantu darbas eitų jau nuo mažesnės iki didelės įmonės.

Daug aš čia prirašiau ir gal būt nelabai ko vertingo ar nusišnekėjau,bet tikiuos,kad vistiek sulauksiu kokios nuomonės :)

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į :)

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 nieko daryt,tiksliau nebūtina disko ( reik užbūtint win7 ).Taigi koks galėtų būt sprendimas? Perrašyti biosą? Jei tai įmanoma ir jei tai padėtų? Ar ką daryt? Ieškau pagalbos.

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žadina magnetinį lauką?

Į šitą nelabai žinau kaip ir atsakyt.

Taigi,jei vis tik atsirastų žinantis žmogus,būčiau labai dėkingas.:)

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);
     i:=0;
     lt:=lt-b;
   End;
 End;
 Writeln('I kina nueis ',k,' kartu.');
 Readln;
end.

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.