xvivax

Visiems aciu uz atsakymus ;)

Girdejau kad per mokejimai.lt irgi galima siust, gal kas turi daugiau informacijos verta ar neverta ir kaip ten viskas vyksta?

Siunciau per opal kai buvau anglijoj, bet ten reik mano paraso kai nueini i banka, o as dabar lietuvoj tai netinka sis variantas.

Aciu tau, bet visdar liko neatsakytu klausimu, jei kas zinot prasau padekit.

4. jei saskaita litais tai tikrai konvertuos pagal LT banko keitimo mokesti, jei daugiavaliutine saskaita tai turesi toj saskaitoj bet vistiek reikes keist pagal banko tvarka. o su kortele nenusiimsi svaru nes labai retai eina rast bankomat lietuvoje kuris net eurus isduotu.

Jei saskaita tik priemanti litus tai kaip as supratau man keis pagal sios dienos kursa ta norejai pasakyt?

Gal gali truputi placiau apie tas saskaitas, kaip suzinot ar mano saskaita daugiavaliutine ar ne? Turiu paprasta seb banko kortele, jei tai kazka sako :D

O del pinigu iseimimo tai klausiau ar nuejas i banka (pati tikriausia banka) galesiu issimti svarus? Kalba eina ne apie bankomata :)

P.S svarai reikalingi tam kad pasikeisti juos kitame banke uz geresni kursa :D

Sveiki ^_^

Iskylo keleta klausimu del pervedimu. Kas galit padekit, busiu labai dekingas ;)

Visu pirma tai kiek kainuoja pervesti is Angliskos korteles i lietuviska per el. bankinyninkyste?

2. Koks bankas nustato to pervedimo kaina (Lietuvos ar Anglijos)?

3. Kiek laiko yra siunciami pinigai?

4. Jei as siunciu is anglijos svarus, tai ar mano lietuviskoj saskaitoj atsiras tie patys svarai ar jau sukonvertuoti litai?

4.1 Jei litai tai kokiu kursu jie konvertuoja?

4.2 Jei svarai tai atejas i banka galesiu tiesiog issimti is korteles svarus?

Ir dar plius vienas klausimas truputi nukrypstant nuo temos. Kokiu kursu keicia pinigus is Angliskos korteles jei pinigus issiemi lietuviskam bankomate? (Kortele Lloyds)

Stai gan neblogas variantas, tik kaina truputi didesne (1200lt) http://www.skelbiu.l...6-15223609.html

Jeigu dar nenupirko irgi neblogas variantas (650lt) http://www.skelbiu.l...#adCommentsArea

Dar:

http://www.skelbiu.lt/skelbimai/hp-pavilion-dv6-2066d-15146046.html

Antra baisu kažkaip pirkti man, nes nebus jokios garantijos jeigu suges ir dar kiniškas, muitas dar dasidėtu, gali būti dužimu, iskilimu..

Ten parasyta Condtion: New, tai reiskia jog jeigu tu gausi daikta dauzta, su iskilimais ar dar kaskuom, gali ramiai siust jiems atgal ir jie tau grazins pinigus.

Mano manymu antras, ten procesorius spartesnis, didesne atmintis ir operacine sisteme naujesne. Beje antras variantas palaiko daugiau audio-video formatu ir turi normalia usb jungti.

Na tu kompu siais laikais milionai, taigi reike konkretesnio apibudinimo ko tu nori.

1. Ar svarbu ekrano dydis? Yra mazi(~10 coliu), vidutiniai(~15 coliu) ir dideli(~17 coliu)

2. Kokius turi omeni lengvesnius zaidimu?

3. Ar yra skirtumas is kokio miesto pirkti?

Na ir dar turi zinoti jog pirkdamas naudota, beveik visada batareika ilgai nelaikys, reiks beveik visada but prijungtam prie rozetes.

Stai kodas kuris padaro puse piramides, man pasirode kad tu butent taip atvaizdavai savo prasyme kad butu suprogramuota piramide:

program piramide;
var i, j, p, eilutes, kiek : integer;
begin
Readln(eilutes);                            	// Kiek eiluciu pildysim
kiek := 1;                                  	// A raidziu kintamasis
   	for i := 1 to eilutes do begin          	// darys nuo 1 iki eiluciu skaiciaus
       	for j := 1 to eilutes - kiek do begin   // paskaiciuoja kiek reike idet tarpu kiekvienai eilutei
           	write(' ');
       	end;
       	for p := 1 to kiek do begin 			// paskaiciuoja kiek reikia pridet A raidziu kiekvienoj eilutej
           	write('A');
       	end;
   	inc(kiek);                              	// padidina A raidziu kintamaji (kiek) vienetu
   	Writeln;
   	end;
 Readln;
end.

EDIT: o jei tikrinimą darysiu tame pačiame faile kur ir forma, kaip man su formos action daryti ?

Dek formos adresa i action'a.

Video pamokos turi ir minusų:

• Gaištamas laikas žiūrint kaip kodas rašomas, pelės judininmas ir kiti niekai nesusije su programavimų;
• Jau suprantami dalykai sunkiau praleidžiami, nes reikia "pataikyti" į gerą vieta prasukant video (vėl gaištamas laikas);
• Video pamokoje naudojamą informacija ir koda nesuindeksuoja paieškos variklis;
• Klaidas video pamokoje daug sunkiau pataisyti nei tekstinėje.

1. Nusisneki, i tokias smulkmenas nieks nekreipia demesio, ir isvis tai negalima vadint video pamoku minusu.
2. Jei supranti rusu tai : 'Повтарение - мать учения'.
3. O kokia tu nori informacija indeksuot? Tai juk video.. (facepalm) Ir beto jei kas neaisku kode, visada duodamas source failas viso video.
4. Be zodziu.. klaidas jis nori video koreguoti...

Padaryk patikrinima tame paciame faile kur ir forma

Na seip jau yra vienas projektas vadinasi programavimopamokos.net ir ten zmogus kuria pamokas video pagalba, tai nezinau ar kas rinksis pamokas parasytas tekstu nei video, as asmeniskai rinkciausi video.

O tu geriau cia isdestyk savo pasiulyma, kad kiekvienam nereiketu tau i skype tarabanint :)

jo aciu padejo

Na as tai jau bandziau bet kaip istrauki sakni, tai jau negali tikrint liekanos, meta klaida kad blogas tipas.

var a : integer;
b, c  : real;
begin
 a := 25;
 b := sqrt(a);
 c := b mod 2;
 Readln;
end.

Ne, reikia is duotu manim skaiciu(ju gali buti ir daug daugiau) nustatyti ar isitraukia saknis be liekanos ar ne.

Sveiki, taigi turiu klausima, kaip nustatyti skaicius is kuriu normalei traukiasi saknis. Pvz .: Turim skaicius 100, 500 ir 900. Tai man reik kad isvestu tik 100, ir 900 nes jie traukiasi be liekanos.

Visi variantai cia teisingi, tiesiog mano bus daugiau optimizuotas :P Gal kam pravers.

program nuolaida;
var n, p, k : integer;
sum : real;
begin
 WriteLn('Vienos prekes kaina: ');
 Readln(k);
 WriteLn('Nuolaida: ');
 Readln(p);
 WriteLn('Iveskite kiek prekiu imsite: ');
 Readln(n);

 sum := n * k;

 if n < 10 then
Writeln('Moketi ',sum,' lt')
 else
begin
   	sum := sum - (sum * p / 100);
   	Writeln('Moketi ',sum:4:2,' lt');
end;
 Readln;
end.

Na man kolkas aisku tai jog kolkas i tai geriau nelyst nes nieko nesuprantu apie regex ir pan :D Todel mokysiuos kolkas kitu dalyku o prie sito grisiu kada busiu ismokes :) Bet vistiek aciu visiems uz info.

Pats nelabai suprantu kas ten negerai, bet kai nuskaitai visus tris: sk, r ir sk2 atskirai, viskas veikia ;)

program Bevarde;
var sk, sk2: integer;
       r : char;
begin

ReadLn(sk);
ReadLn(r);
ReadLn(sk2);

       case r of
       '+' :   writeln('Suma lygi : ', sk + sk2);
       '-' :   writeln('Skirtumas lygi : ', sk - sk2);
       '*' :   writeln('Sandauga lygi : ', sk * sk2);
       '/' :   if sk2 = 0 then writeln('Dalyba is 0 NEGALIMA!')
                      	else writeln('Dalmuo lygi : ', sk / sk2:3:5);
       otherwise Writeln('NO')
       end;
Readln;
end.

Išėmiau dar kintamąjį sum, nes nemačiau prasmės jo ten laikyti išvis :/

Na jo taip kaip tu padariai veikia, bet tai neatrodo efektyvu, visdelto idomu butu suzinot kaip padaryt kad pvz parasai 6*5 paspaudi Enter ir tau parodo rezultata, o del sum, tai as nenorejau kiekvienam case rasyt writeln ir t.t... todel kad sumazint koda pasirasiau sau kintamaji sum kuri poto panaudojau vienam Writeln'e :)

Sveiki, parasiau koda bet kaskodel jis nesivykdo, net nezinau ka cia galvot?

program Bevarde;
var sk, sk2, sum : integer;
r : char;
begin

ReadLn(sk, r, sk2);

case r of
   	'+' :   sum := sk + sk2;
   	'-' :   sum := sk - sk2;
   	'*' :   sum := sk * sk2;
   	'/' :   sum := sk div sk2;
otherwise Writeln('NO')
end;

WriteLn('Suma lygi : ', sum);
Readln;
end.

Atrodo viskas paprasta ir elementaru, bet kaip bandau atlikt aritmetini veiksma, man programa sako jog blogas skaiciaus formatas. Kas galit padekit busiu dekingas :)

Dekui, supratau :)