audrius^

Jeigu teisingai supratau uzduoti, tai cia siek tiek matematikos pasinaudoti reikia, kad spresti :) a1 = x a2 = y a3 = a2 + a1 = x + y a4 = a3 + a2 = x + 2y a5 = a4 + a3 = 2x + 3y ... tai taip atrodo pati seka, ir manau iskarto matosi, kad kuo mazesne (x, y) pora, tuo ilgesne seka. Tie koeficientai prie x ir y yra fibonaci sekos (Fn) nariai, taigi bendru atveju an seka yra an = Fn-2x + Fn-1y. Dabar tam, kad rasti pradinius (x, y) kurie pasiekia skaiciu z, reikia tiesiog didinti skaicius x ir y :). Kai grysiu namo dabaigsiu dar, bet arba cia reikia gilaus matematikos supratimo, arba as ne taip s

Taigi pasirasyk papildoma faktorialo funkcija ir viskas... function f(a:byte):longint; var i:byte; ats:longint; begin ats := 1; for i:=2 to a do ats *= i; f := ats; end; o dabar gali ir savo deriniu funcija labai lengvai pasirasyti. function combine(n, k:integer):longint; begin combine := f(n) div f(n-k) div f(k); end; Cia pats paprasciausias budas, aisku jeigu daraisi darbui su didesniais skaiciais, manau galetum labiau viska optimizuoti, kad rezius neperzenginetum.

Viskas, nupirkta :) is nario GiedriusTS

Sveiki taigi prireike 4 labas perlaidu po 20 litu, moku 60% vertes, atsiskaitau SWED banku. Susisiekti per skype: anglas1992 arba zinoma PM zinute.

Gerai, tai labai dekui uz informatyvia info ;)

O kaip as jiems irodysiu savo tapatybe? Nes dabar su savimi neturiu jokio dokumento irodancio tapatybe...

As dabar uzsiregistraves ambasadoje, ir ten nuejes ta lapa iskarto parasys? Nes dabar matau, kad galiu uz 6 valandu, po ambasados, bilietus i Lietuva nusipirkti, o po to lapo gavimo online check in pasidaryti. Negali buti kokiu staigmenu, kad to lapo dar laukti reikes?

Sveiki, taigi pries kelias dienas pastebejau, kad nebeturiu/pameciau savo ID kortele... Taigi ispradziu noreciau paklausti, per kiek laiko ambasadoje duoda vienkartini laiska gryzti i Lietuva? Ta prasne ar speciau nueiti i ambasada ir po 4 valandu skristi i Lietuva? Po to dar noreciau suzinoti i kur Lietuvoje reikia eiti del naujos ID korteles ir ar savaitgaliais dirba? Po to ar galiu ten nueiti niekur neuzsiregistraves? Ir skubos tvarka (per 24h) gauti nauja ID kortele? Nes planuoju kita savaite nusipirkti bilietus pirmyn ir atgal. Ar imanoma butu viska igyvendinti per 4 dienas? T.y. ir Ambas

program programa; var skaicius:longint; begin write('Iveskite skaiciu: '); readln(skaicius); writeln(skaicius, ', Skaitmenu kiekis: ', trunc(ln(skaicius)/ln(10))+1); readln; end.

Nu ir kas negerai būna, kai įsistatom -6 ar 2 į parabolės funkciją?

Parabolė yra tokia funkcija: f(x) = ax2+bx+c, y = f(x). Iš parabolės grafiko susirandi 3 taškus, (e parabolės grafike susirandi 3 taškus: (0; -1), (2; -2), (4; -1)), ir išsispręsi lygčių sistemą: f(0) = -1 => a*02+b*0+c = -1 f(2) = -2 => a*22+b*2+c = -2 f(4) = -1 => a*42+b*4+c = -1 išpradžių matai, kad c = -1, b = -1 ir a = 1/4 = 0.25. taigi atsakymas yra f(x) = 0.25x2-x-1

Aš antrą užduotį taip padaręs: program Ep2; function F(i:integer):longint; begin if i=1 then F := 1 else if i = 2 then F := 1 else F := F(i-1) + F(i-2); end; var suma:longint; i:integer; Begin i := 1; suma := 0; while F(i) < 4000000 do if F(i) mod 2 = 0 then begin suma += F(i); i += 1; end else i += 1; writeln(suma); readln; end. Bet esu pastebėjęs, kad šitas kodas greičiau veikia: program Ep2; var F:longint; F1, F2, F3:longint; i:longint; sum:longint; begin sum := 0; F1 := 1; F2 := 1; i:= 0; while F < 4000000 do begin i += 1;

Ką? Juk jis dalina su div, jeigu bus realieji skaičiai, tada programa negalės dalinti su div...

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į

#include <iostream> using namespace std; int main() { int m = 11; int d = 0; while (m > 0) { d++; m -= d; } cout << d << endl; system("PAUSE"); } Daug paprasčiau padariau ;)

Na už finansinę paramą galiu abu padaryti ;)

1) Pagal Pitagoro formulė suskaičiuoji įžambinės ilgį 2) Suskaičiuoji plotą: S = (statinis * statinis)*0.5 3) Iš formulės: S = 0.5*(Įžambinė * Statinis) išsivedi statinio ilgio formulę: Statinis = 2*S/Įžambinė.

Teisingas klausimas :D Jei su pascal ar c++, tai mano skype: anglas1992

žiekit noriu paklaust ar kas iš jūsų galit pasakyt ar toks žodis egzistuoja: "veršy"?

Pagal tavo lygtis galima pamatyt, kad taškas Mn(-3; 0) užduoties sąlygos netenkina... Nes jo atstumas iki taško A yra 2, o iki taško B yra 1, o iš sąlygos išplaukia, kad turi būti atvirkščiai, t.y. taško Mn atstumas iki taško A turi būti xk, o iki B turi būti 2xk

O kas jeigu įvestas sakinys viršija 200 simbolių? Ir dar jeigu yra K didžiųjų? Geriau taip daryt: program programa; var sakinys:string; i, k:integer; Begin readln(sakinys); k := 0; for i:=1 to length(sakinys) do if (ord(sakinys[i]) = 107) or (ord(sakinys[i]) = 75) then k+=1; writeln('k = ', k); readln; End.

Kažkaip išpradžių kai perskaičiau pamaniau, kad pirmas taškas turi būti 2 ketvirtyje, o antras taškas 4 ketvirtyje :/ O šiaip jeigu normaliai parašius tai programa atrodytų taip: program programa; var x1, y1, x2, y2:integer; s, p:integer; begin readln(x1, y1, x2, y2); if (x1 < x2) and (y1 > y2) then begin s := abs(x2 - x1) * abs(y2 - y1); p := 2*(abs(x2 - x1) + abs(y2 - y1)); writeln('S = ', s); writeln('P = ', p); end else writeln('Neteisingos koordinates'); readln; end. c++ kalboje atrodytų taip: #include <iostream> using namespace std; int main() { int x

program programa; var x1, y1, x2, y2:integer; s, p:integer; begin readln(x1, y1, x2, y2); if (x1 < x2) and (y1 > y2) then begin s := (abs(x1) + abs(x2))*(abs(y1) + abs(y2)); p := 2*(abs(x1) + abs(x2) + abs(y1) + abs(y2)); writeln('S = ', s); writeln('P = ', p); end else writeln('Neteisingos koordinates'); readln; end. Na va ir apribojimas ;)

program programa; var x1, y1, x2, y2:integer; s, p:integer; begin readln(x1, y1, x2, y2); s := (abs(x1) + abs(x2))*(abs(y1) + abs(y2)); p := 2*(abs(x1) + abs(x2) + abs(y1) + abs(y2)); writeln('S = ', s); writeln('P = ', p); readln; end.

Galėčiau parašyt už kelis litus :)