erikasgh

pasakyk knygos psl ir kuri uzduotis dares as sita turiu kompe tik reik surast kuri tiksliai. knyga zalia toki zvilgsnis y programavima beroc

program Bevardė13; var s,g:longint; procedure skaitmenys(s:longint); begin while s>0 do begin s:=s div 10; g:=g+1; end; Writeln('Skaičius sudarytas iš ',g,' skaitmenų'); end; begin WriteLn('Įvesktie skaičių'); Readln(s); skaitmenys(s); end. skaičiuoja iki 11 skaitmenų ilgio skaičių

reikia kad atskirai atspausdintu skaiciu pvz yvedi 1234 ir kad rasytu 1 2 3 4?

http://blog.apsega.lt/wp-content/uploads/2010/09/lg-gt540.jpg

program atstumas; var xa,ya,xb,yb,xc,yc,ab,bc,v:real; procedure ilgis(var xa,ya,xb,yb,xc,yc:real); begin ab:=sqrt(sqr(xb-xa)+sqr(yb-ya)); bc:=sqrt(sqr(xc-xb)+sqr(yc-yb)); v:=ab+bc; Writeln('Atstumas nuo taško a iki taško b= ',v:2:2); end; begin WriteLn('Įveskite a, b, c taško koridnates'); readln(xa,ya,xb,yb,xc,yc); ilgis(xa,ya,xb,yb,xc,yc); end. kaip ir veikia. gali atskirai pasidaryt, kad įvedinėt kiekvieno taško kordinartes. pagrindą padariau.

vakare apie kokia 10h uzsuk cia busiu padares galbut jei niekur nereikes isvaryt.

tau reikia kad atstuma nuo a iki c rastu ar atstumus ab ac bc?

mano durna galva tai pirmas vardas kas balsavo o antras uz ka. pvz albinas-jonas genute-jonas monika-vacius. ir poto turi surikiuoti rezultatu faile jonas-2 vacius-1. bent pagal mane taip užduotis turėtų būt.

sveiki. taigi suvedziau y kompa is knygos programas dvi ir jos man neveikia taip kaip turi. Program p5_3; Uses crt; Type mas = array [1..20] of real; Procedure apskritimas(var a,b,r:real); Begin Clrscr; Write('Įveskite apskritimo cewntro kordinates: '); readln(a,b); Write('Įveskite apskritimo spindulį: '); readln®; end; procedure Masyvas(var x,y : mas; var n :integer); var i: integer; begin write('įveskite taškų skaičių: '); readln(n); for i:=1 to n do begin Writeln(' Taško nr. ',i:4); Write('x= '); readln(x); Write('y= '); readln(y); end; end; function viduje(var x,y:mas; n:integer; a,b,r:rea

1 uzduoties grafike ten apacioj tik 120 parasyta ir viskas. Iki 0 m/s greitis nukrenta

kaip matau sekanciu uzduociu foto neatidaro. per nauja ydedu. http://www.part.lt/perziura/295df7ac2040896fea33b5620b57077d651.jpg http://www.part.lt/perziura/d1079bd91ee450c3c3b5a670101f61c7453.jpg http://www.part.lt/perziura/64102c589a3a52a3dc42fccee44026b6136.jpg http://www.part.lt/perziura/ce95b9522a32105143d7758cd073ed31901.jpg

http://www.part.lt/perziura/cf23b513639605231cff21769404df4a94.jpg

kaikurios labai lengvos bet vistiek norisi antros nuomones. Testas 1 Kurio atveju sunkio jega atlieka darba? a Dirbtinis zemes palydovas skrieja apskritimine orbita. b rutuliukas rieda horizontaliu pavirsiumi c laivelis plaukia per ezera. d lektuvas leidziasi. 2 treniruociu metu sportinikas is vieto y toli nusoko 3,5 m koki darba atliko sportininka veikianti sunkio jega visame jo judejimo kelyje? A 3500J B 35000J C 350000J D 0J 3 Mases m masina vaziuojanti greiciu v0 sustabdoma. Kam lygus trinties jegu atliktas darbas? a 0 b -mv0(v nulinis) c -mv02 (v nulinis kvadratu) d -mv02/2 (v nulinis k

Reikalingas žmogus, kuris galėtų padėti šiek tiek su fizika.

Mastau stoti į KTU informatika tik dar nesu apsisprendes y kuria srity butent Is sios knygos pacius pagrindus pramokau. Dabar reik kazko daugiau. Gal turit kur būtų surasyta daug mas didzioji dalis naudojamu komandu ir kas su jomis daroma. PVZ round trunc sqrt ir kitokios.

Sveiki. mokykloje pradejom programuoti pascaliu. gal kas turit kokiu geru knygu pascaliui? butu gerai lietuviskos bet tiktu ir angliskos.