agnek21

program skaitmenuradimas; //procedura skaityti duomenis ir rasti skaitmenis procedure skaitmenys; var i, s, sk : integer; begin writeln('iveskite sakiciu '); readln(sk); s := 0; while sk <> 0 do begin s += 1; sk := sk div 10; end; writeln ('skaicius turi ', s, ' skaimenis'); Readln; end; begin skaitmenys; end. kazkas panasaus..

aš nesuprantu arba aš blondinė, arba tu net pats nesupranti ka parašei :huh: Parenkite programą, kuri pateiktu faile balsavimo rezultatus, surikiuotus mažėjančia tvarka, pagal surinktų balsų skaičių. kur tie balsai pagal ka rikuot? pagal surinktų balsų skaičių.

Visu pirma, tai pati tema, mano nuomone, turėtų būti 'programuotojų kampe'. Visų antra, perskaičius sąlyga ir pažėjus duomenų failą nieko nesupratau ko Tu nori, nes duomenų faile nieko nėra pagal ką būtų galima rikuoti, atlikus kokius nors skaičiavimus.

labas, ką aš galiu pasakyt, nenusirašyk aklai, bet išsiaiškink kas ką daro, nes aš už tave vbe neišlaikysiu :D program pirkimai; const Cduom = 'Duom2.txt'; Crez = 'Rez2.txt'; max = 100; type mokiniai = record vard_pavard : string[20]; p_kartai : integer; //pirkimo kartai, dienos S : array[1..1000] of real; end; var A : array[1..max] of mokiniai; n : integer; P : array[1..31] of integer; // dienos kai pirko; //procedura failo nuskaitymui procedure skaityti; var fd : text; i, j, d : integer; //d - dienos kada pirko begin assign(fd, Cduom); reset(f

Ką manote apie Donatą Montvydą, bei jo atliekamą dainą 'Lobe is blind'? Kaip sakot yra mums vilčių užimti vietą bent 15-uke? :) http://www.youtube.com/watch?v=92wzctYvdx4&feature=related Man tai asmeniškai ta eurovizija toks nesažiningas reikalas atrodo, nes nevisada dainininkai yra vertinami už atliktą dainą. O Donatą Montvydą įvertinčiau gana gerai, nes buvo kur kas prastesnių važiavusių i euroviziją(pvz. pastarieji 2 metai), na aisku čia tik mano nuomonė. :) Taigi kokia yra jūsų nuomonė?

http://www.youtube.com/watch?feature=player_embedded&v=aHjpOzsQ9YI

nu paziurejom manau ne vienas... ko tau reik kad padarytu uz tave kasnors ar paaiskintu kaip daryt?

čia 2009 vbe. o jei dėl atlikimo tai peržėk kaip http://kodai.manualai.lt/pascal/valstybiniu-egzaminu-sprendimai/informaciniu-technologiju-valstybinio-brandos-egzamino-2009-pagrindines-sesijos-uzduoties-sprendimas-2-dalis.html daro gal kils idėjų kaip padaryti ;)

labas, Aš pati pascalį mokiausi iš G.Grigo knygos 'programavimas paskaliu', taip pat yra R.Burbaitės knyga 'šiuolaikiškas žvilgsnis į programavimo pagrindus', yra lietuvišku video pamoku, bet jos, manau, tiktu nebent pradžiai tik, nors čia kaip kam... Jei turėsi klausymų rašyk čia, mes padėsim, jei tik norėsi išmokti. Užduočių pradžiai pats sugalvok tokiu paprastų, vėliau egzamininės užduotys tiks, paskui jau ir olimpiadines spręsi :)knygose užduočių būna. Jei gerai supratau, tai jau programavimo kažkokia kalbą moki, tai tą pascalį nebus sunku išmokti, tik laiko ir noro reikia ;)

Normalu :D bus lengviau 12

tokie uzdaviniai 12-oj klasei a lygiu pries kokius 2men teko sita daryt, jei neras as paieskosiu tada ;)

už šita idėja!

1. parašyti programą, kuri išrašytu visus triženklius skaičius, kuriu pirmas ir paskutinis skaitmuo vienodi.(121) 2. Išrašyti visus triženklius skaičius, kurių šoninių skaitmenų suma lygi vidurinio kvadratui.(138) 3. Atspausdinti įvesta 4-enklį skaičių atbulai. (495 -> 594) 4. Atspausdinti įvesta 5-enklį skaičių sukeitus, pirma skaitmenį su ketvirtu, antra su trečiu.(25684 -> 86524) Tam kartui užteks.

čia paskalio uždaviniu tau reikia?

taip tas += čia jau įkišta iš C++, bet kadangi tai nieko nekeičia skaičiavime, tai ir naudoju :rolleyes: dėl 28 tai pas mane klaida, pasitaisyk jei gali, jei ne pataisysiu, bet pamėgink tai padaryti pats ;)

program bulviakasis; type maisai = array [1..100] of integer; var A : maisai; n, nr, m, maxkr : integer; //n - ukininku skaicius, m - kiek telpa maisu {---------------procedura failo nuskaitmui-------------------------------------} procedure skaitymas; var i : integer; fd : text; begin assign(fd, 'Duom1.txt'); reset(fd); readln(fd, n, m); for i := 1 to n do readln(fd, A[i]); close(fd); end; {------------Skaičiavimas, kiek kartų Petras važiavo į laukus------------------} function kartai (mais : integer) : integer; var i : integer; begin kartai:=mais div m; if

program kolekcija; const duom = 'U1duom.txt'; rez = 'U1rez.txt'; max = 100; type masyvas = array[1..100] of integer; var L, J, Lm, Jm : masyvas; n, m : integer; {-------------------procedura failo nuskaitymui--------------------------------} procedure skaitymas; var fd : text; i, nr, mr : integer; begin assign(fd, duom); reset(fd); readln(fd, n, m); for i := 1 to n do // nuskaitoma linos kolekcija begin read(fd, nr); L[nr] += 1; end; readln(fd); for i := 1 to m do // nuskaitoma jurgio kolekcija begin read(

vadovaujantis principu, kad geriausias vaistas nuo pagirių - nepadauginti iš vakaro, tai šiandien viskas liux! :rolleyes:

čia mano sprendimas pažėk gal kas pravers program metro; const Cduom = 'U1.txt'; Crez = 'U1rez.txt'; Cmax1 = 1000; Cmax2 = 100; type masyvas = array[1..Cmax1] of integer; var n, m, i : integer; E, S, St : masyvas;//E/S ijejusiu/isejusiu keleiviu skaicius S stoteles numeris fr : text; {---------------------nuskaitymo procedura-------------------------------------} procedure skaitymas; var fd : text; i, d, n, ieje, iseje : integer; begin assign(fd, Cduom); reset(fd); readln(fd, m); for i := 1 to m do begin readln(fd, n, d, ieje, iseje);

tai kam prašai, kad padėt antra jei ten tik vienas skaičius ir yra. :D tu gal bent užduotį nrml perskaityk, nes čia nei taip nei ne įvedinėt nereik. ir nebeteršk kita kart forumo su tokiom nesąmonėm eik paskalio pasimokyt...

program pirma; var u1, u2, u3 : integer; begin WriteLn('duomenys'); Readln(u1, u2, u3); if (u1 = 1) and (u2 = 1)and(u3 = 1) then writeln('Žilvinas Eglę namų aplankyti išleis') else writeln('Žilvinas Eglės aplankyti namų neišleis'); readln; end. program antra; var k : integer; begin WriteLn('duomenys: '); Readln(k); if k mod 2 <> 0 then writeln('Kambarį tvarkys jaunėlis') else writeln('Kambarį tvarkys vyresnėlis'); readln; end. Bet užduotys tai absurdiškos, gal paskaityk knygų nereiks nesąmoningų temų kurt

program Tyrimai; const Cduom = 'U1.txt'; Crez = 'U1rez.txt'; Cmax = 100; type masyvas = array[1..Cmax] of integer; var A, B,C : masyvas;// A stoteles numeris, B/C ilipe/islipe keleiviai n : integer; fr : text; {--------------------duomenų skaitymo iš failo procedūra-----------------------} procedure skaitymas; var i, st, kel : integer; // st stoteles nr, kel keliaiviai fd : text; begin assign(fd, Cduom); reset(fd); readln(fd, n); for i := 1 to n do begin readln(fd, st, kel); A[st] := 1; if kel > 0 then B[st]

jei nėra ciklas cikle manau naudoti galima visada i, jei prisiskiri nauja reikšmę. viso record'o dažniausiai neprireikia, o jei nereikia tai kam siusti visą? O jei klaidos nerodo ir viska skaičiuoja teisingai, tai reiškia galima.(Negaliu tiksliai pasakyt, nes neteko dar viso siust) Kiek žinau, tai funkcijoje globaliųjų kintamųjų(tie kurie aprašyti tik programoje) naudoti negalima, funkcijai juos reikia siusti. Procedūroje globaliuosius kintamuosius naudoti galima, nebūtina jų siusti. Na bet čia tik mano žinios kurios gali būti klaidingos. :)

jei niekas nepadės parašysiu ryt.

tai apsijuokt nebijau tikrai, nes IT valstybini laikysiu, tai manau nebus sunkiau nei valstybinis egzas. :lol: Šiaip tai gerai sakot, niekada negali žinot ar prireiks ar ne.. Jaučiu reiks išlaikyt tą įskaitą ir bus rami galva :rolleyes: