agnek21

program Bevarde0; var d, r : text; s, suma, n, k : integer; // k - kaina begin assign(d,'Duom.txt'); reset(d); readln(d, s); while not eof (d) do; begin readln(d, n, k); s += n * k; end; close(d); assign(r,'rez.txt'); rewrite(r); writeln(r, s); close(r); end. pataisiau kaip man atrodo, patikrink ar skaicuoja

imesk uzduoti pazesiu kur problema. ir savo duomenu failiuka ;)

program palukanos; var n : integer; q, m : real; begin WriteLn('iveskite q ir m'); readln(q, m); if q > m then begin while m < q do begin m := m + 0.1 * m; n += 1; end; writeln('po ', n, ' metų'); end else writeln('klaida'); Readln; end. manau taip

program uzduotis; type masyvas = array[1..15] of integer; var i, y, sk, n : integer; A : masyvas; begin readln(sk); n := sk; while n > 0 do begin i := i + 1; A[i] := n mod 10; y := y * 10 + n mod 10; n := n div 10; end; if (sk = y) then WriteLn('Palindromas'); Readln; end. na masyvo cia nereiktu bet jei to reikalauja salyga taitada reik :)

kaip suprast tikrini?, tai čia ta prasme kad lygini kuris didesnis? ir ką daryt jei skaičius yra pvz 5, 7, 9 skaitmenų?

{Parašykite programą: c) su procedūra 12 elementų masyvui užpildyti klaviatūra renkamais sveikaisiais skaičiaus; d) ir procedūra šį masyvą spausdinti vienoje eilutėje; e) ir procedūra kitoje eilutėje spausdinti masyvo elementus atvirkščia tvarka.} program Buzduotis2; type masyvas = array[1..12] of integer; var i : integer; A : masyvas; {-------------------procedura uzpildyti masyva---------------------------------} procedure uzpildymas; var i : integer; begin for i := 1 to 12 do readln(A[i]); end; {------------------procedura spausdinti vienoje eiluteje-----------------------} procedu

Ačiū sameon :) supratau ir jau padariau šią programėlę :)

duomenys: 'Egle' 3 (keliones pavadinimas ir grupes dydis d) Jonas Petraitis 38808080099 10 500 20 500 100 20 20 20 10 10 50 Petras Jonaitis 38099820014 8 20 10 50 100 500 10 50 10 Aidas Briedis 38956854245 5 10 20 50 200 100 bandysiu daryt su masyvu įrase,

program uzduotis; type asmuo = record kazkas, pavad, vard, pav : string[10]; d, akod, bkiek : longint; end; masyvas = array[1..100] of asmuo; mas = array[1..100] of integer; var A : masyvas; B : mas; {------------------procedura failo nuskaitymui---------------------------------} procedure skaitymas; var fd : text; i, j, sk : longint; begin assign(fd, 'duomenys.txt'); reset(fd); read(fd, A[1].pavad); readln(fd, A[1].d); for i := 1 to A[1].d do read(fd,A[i].vard, A[i].pav, A[i].akod, A[i].bkiek); for j := 1 to A[1].bkiek do

nu tai cia nuo x iki (to) y vygdys (do) sakin esanti po ciklo,

program sksuma; var sk : integer; function suma : integer; begin suma := 0; while sk <> 0 do begin suma += sk mod 10; sk := sk div 10; end; end; begin readln(sk); writeln(suma); Readln; end.

netingiu patikėt ir neprašau visko rašyti tik procedūrą nuskaitymui.Fps, stringu ties įrašo nuskaitymu kaip kiekvieno banknotus nuskaityt?

tokia sąlyga:Duomenų failo pirmoje eilutėje įrašytas kelionės pavadinimas ir turistų grupės dydis. Kitose eilutėse - turistų Vardas Pavardė, Asmens kodas, turimų banknotų Kiekis, banknotai, nurodant jų nominalą. (Pvz.: Jonas Petraitis 38808080099 10 500 20 500 100 20 20 20 10 10 50). Parašyti programą, kuri apskaičiuotų, kokias pinigų sumas į kelionę pasiėmė kiekvienas turistas, visa grupė, kiek vidutiniškai pinigų turi grupės narys bei atspausdintų turtingiausiojo pavardę. (jei tokie yra keli – visų jų pavardes). Rezultatų faile atspausdinti kelionės pavadinimą, grupės dydį. Sąrašo pabaigoje

na matai kaip buna :D jus 10 mes 11kl ta pati, mes pernai nesimokem pascalio tai siemet tik pradejom normaliai. :)

aš iš Minties gimnazijos :) na mes gal dar dėl to iškarto paskali ėmėm, nes mums sudarė sąlygas pasirinkti A lygiu ar programavimą ar multimedija,tinklalapiu kūrima rinktis. aš programavimą pasiėmus, daug dėmesio jam skyriam, dabar 2 pusmeti pradėsim bendra kursą mokytis. šiais metais kiek žinau net 10-okai pas mus galėjo jau rinktis programavimą :huh:

cia manau visose mokyklose skirtingai, va as 11-oke pirmas pusmetis paskalis antras excelis, wordas nu abejoju ar pain'tas bus, va imesiu pora uzdavinuku su paskaliu kuruos mes sprendem su ciklais :) 1.Mokinys turėjo susitaupęs 100 litų. Kiekvieną dieną berniukas dar gauna po x litų dienpinigių. Kas antra diena jis eina i kina ir išleidžia y pinigų suma. Kiek kartų jis turės pakankamai pinigų, kad galėtų eiti i kina? Jei dienpinigiai yra pakankamai dideli, tai kokią sumą jis sukaups per n dienų?(cia ciklas while) 2.Sudarykite programą, spausdinančią visus triženklius skaičius, kurie lygûs sa

turiu klausymą, man mano mokytojas pasiūlė kitąmet pradėti lankyti papildomas pamokas ir mokytis c++ kalbos, bet nežinau ar sutikti ar ne? na aš su programavimu paskaliu nesipykstu, atrodo suprantu palyginus su kitais, su matematika taip pat gerai sekasi, bet nežinau ar man prireiks to c++ nes nežinau ką studijuosiu, šeip apie matematika galvoju, tačiau nesu tikra, taigi, ar verta pradėti lankyti papildomas pamokas ir mokytis c++ ar aš taip tik be reikalo apsikrausiu papildomomis pamokomis?

ktu, taikomoji matematika galbut, bet reikia dometis kas ten gero.. matiekoj a lygiu 9 praeita pusmeti turejau si turetu but 10, nu gal dar informatika truputi suprantu irgi a lygiu mokaus 9 turiu, tik vat beda bedele anglu kalba, su mano mokytoja egzo tikrai neislaikysiu nors metini ir 8-9 turesiu :) na as dar tik 11-oke tai egzai kitamet parodys kas busiu..

program eilute; type masyvas =array[1..10] of integer; var i : integer; A : masyvas; begin Writeln('skaicius vesk eilute atskirdamas tarpais'); for i := 1 to 10 do read(A[i]); for i := 1 to 10 do if A[i] mod 2 <> 0 then write(A[i],' '); Readln; readln; end. jei mokeisi masyvus ir cikla for tai taip turi buti, manau galima ir be masyvo :)

program gyventojai; type masyvas = array[1..499] of integer; var n, des, kair, skk, skd : integer; A, B, C, D, nerk, nerd : masyvas; {-----------------------procedura failo nuskaitymui----------------------------} procedure skaitymas; var i, nr, kk : integer; //kk-gyv. skaicius, nr- namo numeris fd : text; begin assign(fd,'gyventojai.txt'); reset(fd); readln(fd, n); for i := 1 to n do begin readln(fd, nr, kk); if nr mod 2 = 0 then begin des += 1; A[des] := kk; C[d

tu gerai supranti, as cia nieko nesuprantu tam programavime:D bamdysiu taisyt :)

uzuotis: tekstiniame faile pirmoje eiluteje irasytas skaicius nurodantis kiek gatveje yra namu.toliau eina n eiluciu, kuriu kiekvienoje yra du skaiciai 1.namo numeris 2.kiek gyventoju gyvena name. namai kurie lyginiai stovi desineje, nelyginiai kaireje. reikejo parasyti programa kuri atspausdintu: kiek gyventoju gyvena gatveje, kiek kaireje kiek desineje, kiek vidutiniskai kaireje ir kiek desineje,kuriame kairiosios ir kuriame desiniosios puses name gyvena daugiausi, maziausia gyventoju,kiek ju yra., VISUS KAIRIOSIOS IR DESINIOSIOS PUSES NAMUS DIDEJANCIAI,KURUOSE NIEKAS NEGYVENA.(cia nurodyta

program uzduotis2; Type Masyvas = array [0..10] of integer; var A : Masyvas; i, min, max, suma :integer; fd : text; vid : real; begin Assign (fd,'Duom.txt');reset(fd); vid := 0; suma := 0; max := 0; min := 100; write('lyginiai : '); for i := 1 to 9 do begin Readln(fd, A); suma := suma + A; if max < A then max := A; if min > A then min := A; if A mod 2 = 0 then Write(A,' '); end; vid := suma / i; writeln; writeln('skaiciu suma : ',suma); WriteLn('skaiciu vidurkis :',vid:2:2); Writeln('didziausias skaicius :',max); Writeln('maziausias

jei ivedi 4 tai faktorialas 1 * 2 * 3 * 4 = 24 o jei sandauga tai typo taip pat? o jei kaip rasei sandaugos faktorialas tai tada kaip? tu jei gali paskaicuok ka programa turi atspausdint pvz ivedus 4, nes cia programa tai manau nera sunki B-) tik salyga bent jau man tai nesuprantama :|

cia is pradziu skaiciu sandauga rasti o paskui gauto rezultato faktoriala? ar as ne taip supratau?