erikasgh

sveiki.nesuprantu kaip si uzdaviny daryti. gal galetumete kas nos matematiskai papasakot kaip jy daryt reiketu? naturaliuju skaiciu seka sudaroma pagal tokias taisykles: a1=x a2=y ai= ai-1 + ai-2 pradinis duomuo- paskutinis sekos narys z. parasykite programa spausdinti ilgiausiai sekai kuri baigiasi skaiciumi z

su pagrindine man viskas aisku pasidarau as ja lengvai, bet su salutine nesigauna. keiciu skaicius vairiai vis tiek nesigauna.

Sveiki. taigi prireike man is matricos kelis skaicius istraukt. reikia po salutine ystrizaine rast skaiciu suma. pvz 1 2 3 4 5 6 7 8 9 reikia kad man sudetu 8+6+9. kaip reiketu apsirayt for ciklus? toliau visa kita pats sugebeciau pasidaryti.

o tai kaip tas tikrinimas turi tada vykt? nesuprantu as. ir dar. tie m ir m[o] masyvai identiski turi but?

bet as nezinau kuriuos reik sukeist. pograma automatiskai turi sukeist. arba mokytojas salygos nedasake iki galo.

jau šiandien mano galva neneša :D o taip kaip ta sukeitima daryt? taigi gali keistis 1 su 3 arba su kokiu net 4 ar 7. ir kaip juos visus aprasyt?

o ka tuose cikluose rasyt? pirma rasai pvz for i:=1 to n n-is kiek sudarytas skaicius. o kitam ka?

visiems

kodo dar nerases nes net neysivaizduoju kaip padayt kad keistu vietom. isskaidymas lengvas. while s>0 do mod 10 o poto div 10

turi isvest visus skaicius kurie gautusi sukeitus 2 jo demenis

sveiki. taigi man reikia parasyti pograma kuri is skaiciau sukeistu du skaicius jame. pvz skaicius 2569. man reikia kad isspausdinu 5296 5269 5962 5926 5629 5692 2569 2596 2659 2695 2965 2956 6529 6592 6952 6925 6295 6259 9256 9265 9625 9652 9526 9562. pirmiausia reikia issiskaidyt skaiciu kaip suprantu. viska ok su sita dalim. o kaip poto sudaryt tuos visus variantus? gal yra kazkokia speciali fukcija ar kazkas panasaus?

yra dar 2 lapai kuriuose yra uzdaviniai. juos suprantu ir juos jau pasidares. teorija man yra daug sunkiau ir is jos visad prastai gaunu. norisi bent syky gauti geresny pazymy.

egzamino nesiruosiu laikyt, todel ir kreipiuos y jus. man svarbu kad iseitu fizikos bent 7-8.

Sveiki. taigi gavau padaryti testa is elektrostatikos. gal galetumete padeti? pridedu uzduociu foto.

Sveiki. Gal kas nors esate naudojasi sia svetaine? Ten paroo teisinga atsakyma ar tik variantus galimus?

bandžiau ir ant kito kompiuterio neveikė man. kame tada bėdos?

taip. iš failo lyg ir nuskaito, buvau įterpęs eilutę Writeln('gg'); tai kiek reikėjo kartų tiek ir parašė, bet poto kažkas blogai. nežinau aš jau net.

sveiki. taigi iškilo problema su pascaliu. štai pati programa. program pirminis; type mas= array [1..100] of integer; var i,n,h:integer; d:text; c:mas; procedure skaitymas; begin n:=0; i:=1; while not eoln(d) do begin read(d, n); c:=n; i:=i+1; end; h:=i; for i:=1 to h do begin Writeln(c); end; end; begin assign(d, 'Duomenys.txt'); reset(d); skaitymas; end. Duomenys.txt 1 25 33 11 23 101 25 63 Meta kad blogas skaičiaus formatas. Niekaip nesuprantu kame bėdos.

išsisprendžia ir su diskriminantu tik daug labai reik rasyt tada.

Vijetas man asmeniškai nepatinka visai. aš greičiau mintinai diskriminantą su x1 ir x2 susiskaičiuosiu negu vijetui sugalvosiu. sugalvot tai dar sugalvotai, bet ženklai man visada susimaišo. teigi net nesistengiau aš jo perprast viską per diskriminantą darau.

tada dar su kazkuo pesasi,nes ir man pora kartu taip buve, nors chromes nenaudoju. padejo kompo rr, o kita karta istryniau ir yrasiau isnaujo.

Bandžiau taip daryti bet neišėjo. Kadangi čia tik savarankiškas darbas tai į kiekvieną eilutę po žodį perdariau ir tada ormaliai nuskaito. Bet vieno dalyko niekaip neišmasčiau. Kaip reikėtų padaryti, kad jei įvedi tą mėnesį kurio nėra prašytų pasirinkti kitą mėnesį. Bandžiau su for while if, bet nieko nesigavo. Tad padariau lengviau :D if z=1 then Writeln('Pirmasis gimtadienį švęs ',va) else begin Writeln('Šį mėnesį gimtadienio niekas nešvęs, jeigu norite tikrinti kitą mėnesį') ; Writeln ('prašomę paleisti programą iš naujo.'); end;

turit gal kas daugiau pasiūlymų?

sveiki. reikalinga jūsų pagalba. turiu pasirašęs dalinai programą, bet ji man ne taip kaip reikia veikia. programa: program Bevardė13; type mas= array [1..100] of string; ma= array [1..100] of integer; var n,i:integer; fd:text; v,m:mas; d:ma; procedure duomenys(var n:integer); begin assign(fd, 'Duomenys.txt'); Reset(fd); for i:=1 to n do begin Readln(fd,v); Writeln(v); end; end; begin assign(fd, 'Duomenys.txt'); Reset(fd); Read(fd,n); close(fd); duomenys(n); end. failo duomenys.txt turinys 10 Jonas Gruodis 10 Agnė Lapkritis 6 Juozas Gegužė 3 Laimis Liepa 28 Audrius Spali

parodyk ka pasidares pataisysiu