gretutes

program Masyvai_1e; var M : array[1..6] of real; i : integer; min : real; begin writeln('Iveskite masyvo elementus:'); for i := 1 to 6 do readLn(M[i]); min := M[1]; // tari, kad pirmas masyvo elementas yra mažiausias //žiūri, ar nuo antro elemento iki galo (6) yra mažesnių. Jeigu yra, tai priskiri mažesnį: for i:=2 to 6 do if min > M[i] then min := M[i]; writeln('min = ', min : 7 : 2); readln; Readln; end.

Apie tai gali pasiskaityti wikipedijoje: http://lt.wikipedia.org/wiki/Burbulo_rikiavimo_algoritmas Toje vietoje yra du ciklai: išorinis ir vidinis, jie vykdomi nuosekliai. O šiaip čia yra rušiavimo algoritmas, nemanau, kad mokykloj labai būtina jį gerai suprasti. Nežinau, ką dar pasakyti, paskaityk linką ir suprast turėtum ;)

Tau reikia rūšiavimo funkcijos, vienas paprasčiausių būdų: bubble sort: Procedure BubbleSort(A : masyvas; size : Integer); Var i, j, temp : Integer; Begin For i := size-1 DownTo 1 do For j := 2 to i do If (A[j-1] > A[j]) then Begin temp := A[j-1]; A[j-1] := A[j]; A[j] := temp; End; End. čia size yra masyvo ilgis, šiuo atveju reikės perduoti 5. Tiesa, ta procedura 'įvesti' neteisinga. Reikėtų daryti taip: for i=1 to 5 do begin Readln(A[i]); end; Pagrindinėj programoj išsikviesk abi funkcijas. Jei nori, gali dar atspausdinti rezultatą: for i=1 to 5 do writel

Tu papastinai kažkokį kodą ir net nepasakei, ką programa daro ir apskritai kokie jos reikalavimai :) Reikia patiems aiškintis maždaug.. ir tokie kintamieji kaip k, n aiškumo neprideda :) program Noname1; var Df, Rf:text; i,k,n,skaicius,s:integer; function kazkaDaryti(k :integer) : integer begin Assign(Df,'duom.txt'); Reset(Df); Readln(Df,n); for i:=1 to n do begin Read(Df,skaicius); s:=trunc(sqrt(skaicius)); if (s mod 2=0) and (s*s=skaicius) then begin k:=k+1; if k=1 then writeln(Rf,'surasti skaiciai: '); writeln(Rf,ska

Ačiū, už pastabas, kai ką jau pataisiau (tiksliau užlopiau). Visgi įdomu būtų, ką turit omeny, sakydami, kad dizainas baisus? Ta prasme absoliučiai visas? (Juk jis yra skirtas pirmiausia vaikams, todėl būtinai turi būti ryškiaspalvis arba įvairiaspalvis) Na kad gradientų visokių, rounded corners, transparentų beveik niera, tai tikrai sutinku, ties tuo dar dirbu. Bet ar ir šita vieta bloga? Dar pradiniame varijante mąsčiau tokį - backgroundas rusvas. Tai jei salotinę bg color pakeisčiau, problema vistiek nė kiek neišsispręstų? :)

Saitas www.tomasirdzeris.lt Kūriau, nes man tai patinka, ir norėjau kuo greičiau sulaukti pirmųjų lankytojų ;) Skyriau visų pirma vaikams, todėl pasirinkau įgyvendinti tokį dizainą. Na perspektyvų suprantu, kad čia nėra, nebent įsidėti kažkokią savo susijusią reklamą į kitą savo saitą, nes žmonės atranda ir PR jau 2, visgi būtų įdomu sužinoti nuomonę apie bendrą vaizdą :)

Yra tokių dėstytojų, prie kurių sakyčiau nieko nereikia daryti, tai buvo komunikacijos įgūdžiai, ekonomika, filosofija. Tai ne specialybės dalykai, juos net pritemdavo dėstytojai. Bendrai paėmus, mokytis tikrai reikės net ir petakui. Jei patinka programavimas, tai ir matematika labai neišgąsdins ir pavyks. Palyginimui: antram semestre yra dalykas 'Algoritmų teorija', teorinių paskaitų nelankiau, tik praktines, nelabai ką suprasdavau, prieš kolį naktį mokiaus ir prieš egzaminą, bendras rezultatas - 2. :D Trečiam semestre yra dalykas 'Grafų teorija', nebuvau nei vienoj paskaitoj, vėl gi prieš ko

Nelabai suprantu tų, kurie dvyliktoj klasėj iš draugų, pažįstamų ar tėvų nuomonių sugalvoja, kur stoti. Nejau visą tą gyvenimą iki ~19 metų nesugalvojot, ką norit daryt gyvenime, kad klausinėti, kiek bus matematikos, o kiek ne ir ar nebus per sunku. Jei galvoji, kad bus per sunku, vadinasi ta sritis ne Tau. Kai žinai ko nori, ir to sieki, nieko nėra sunku. Pati esu iš PS, dabar baiginėju antrą kursą. Pirmaisiais metais stumdavau viską ant petako, kartais deja nepavykdavo. Tačiau vėliau pagavau 'ritmą', ir šie metai nepalyginamai produktyvesni visom prasmėm, laisvalaikiu kodinu ir šiaip mokausi

Studijuoju VU programų sistemas, kaip matau, dauguma modulių labai panašūs, tik pavadinimai skiriasi. VU yra tokie moduliai kaip Matematinė analizė I, Matematinė analizė II, Algoritmų teorija, kurie užknisa, ir per juos daug skolų būna. Pirmajam semestre būna Kompiuterių architektūra (legendom apaugęs dalykas), kur reikia programuoti A kalba, kas pirmakursiams tik paskalį mačiusiems, būna labai sudėtinga, ir pakankamai daug žmonių prašo kitų suprograminti. Kaip matau, KTU tas tik ketvirtam semestre kaip ir Operacinės sistemos, tai šiuo aspektu ne taip baisu turėtų būti :). Brolis analogišką ma

Sveiki. Aš Greta, studijuoju VU programų sistemas, esu kaip sakant pradedančioji programere, žiūrėsim, kaip bus toliau ;) Labiausiai domiuosi web development (tame tarpe design). Daugiausiai, ką mokausi tai xhtml, css, javascript, php. Užsiregistravau čia, nes, kaip pastebėjau iš forumo antraščių, ne tik man šis forumas naudingas, bet ir aš galiu būti kažkam naudinga. Žiniomis reikia dalintis :)