agnek21

na mes tokius per pamokas sprendziam, cia vieni is lengvesniu, nors dar 11-okai mes tai sunkiu ir neduoda :) teisingai pasake kad failo pavadinimas esmes nekeicia ar jis txt ar in ar out, cia kaip mokytojas uzduoti suformuluoja taip ir darom, su ugiais be proceduros darem, nes tiesiog jos dar nesimokeme tuo laiku, bet tavo kodas geras :)

1.Duomenu failo pirmoje eiluteje nurodyta (0 < n < 30) kiek is viso mokiniu mokosi klaseje. Sekanciose eilutese isvardinti mokiniu ugiai. Parasykite programa, kuri atvaizduotu mokiniu ugius ekrane. 2.Duomenu faile stulpeliu yra surasyti 9 skaiciai. Parasyti programa, kuri atrastu: 1) Visu skaiciu suma. 2) Visu skaiciu vidurki. 3) Didziausia skaiciu. 4) Maziausia Skaiciu. 5) Isrinktu ir atspausdintu tik lyginius skaicius. 3.Tekstiniame faile Duomenys.in pirmojoje eilutėje yra nurodyta kiek bus skaičių n. Toliau kitose eilutėse yra išvardinti visi skaičiai atskirose eilutėse. Parašykit

va be jokiu masyvu, profeduru funkciju, paanalizuok ir suprasi visai nesunku ;) program Skaiciai; var x, sks, g, skk, lyg, max, maxs, atb, a : longint; begin WriteLn('Iveskite pirmaji skaitmeni'); Readln (x); While x <> 0 do begin sks := 0; skk := 0; lyg := 0; atb := 0; g := x; while g > 0 do begin sks := sks + g mod 10; g := g div 10; end; WriteLn ('Skaiciaus skaitmenu suma : ',sks); g := x; while g > 0 do begin if g mod 10 mod 2 <> 0 then skk := skk + SQR (g mod 10); g := g div 10; end; WriteLn ('nelyginiø skaièiaus skaitmenø kvadratø suma : ',skk); g := x; while g >

Aciu simonai, padejai :D

vistiek neranda :angry: tiek to gal mano mokytojas pades

susikuriau aplanka butent tai programai,ir ten issaugojau ir programa ir faila duomenu

program ûgiai; var fr, fd : text; i, n : integer; suma, vvu, min, max, x : real; begin Assign (fd,'duom.bin'); reset(fd); Assign (fr,'rez.bin'); rewrite(fr); suma := 0; max := 0; min := 3; ReadLn (fd, n); ReadLn(fd, x); for i := 1 to n do begin suma := suma + x; if x > max then max := x; if x < min then min := x; end; vvu := suma / n; WriteLn (fr, 'vaiku viautinis ugis ', vvu:2:2,' didziausias ugis ', max:2:2,' maziausias ugis ', min:2:2); Close(fd); Close(fr); end. tokia programa dariau ir neranda nors mokykloje viskas gerai, kad issaugot p

turiu tokia bedele, man neranda paskalis rikmenos, seip viska gerai darau, sulei viskas gerai veikia viska ta pati namie darau ir neranda rinkmenos :( gal kas zinot kodel?

taip, sitaip :) aciū ;)

mum su masyvu liepe tai pagal teorija kuria ismokom tai ismasciau taip, tik liko padaryt taip kad atsakyma grziai parasytu :) program mas; Type Masyvas1 = array [1..10] of integer; Masyvas2 = array [1..10] of integer; Var A : Masyvas1; B : Masyvas2; i, j : integer; begin For i := 1 to 10 do A := i; for i := 1 to 10 do For j := 1 to 10 do begin B := A * j; WriteLn (B, ' '); end; Readln; end. tenka man sita kniga paskaityt, naudojuosi ja jau :)

gal kas galite parasyti kaip padaryti, kad masyvas atspausdintu daugybos lentele, tik snd pradejom mokytis ir dar nko panasaus nedarem, gal kas galit padet? :unsure:

program uzduotis2a; var ziedai, i, n, diena, m : longint; begin WriteLn('iveskite dienas'); Readln(n); WriteLn('iveskite kiek ziedu gali tilpti visame ezere'); ReadLn(m); diena := 0; ziedai := 1; for i := 1 to n do ziedai := ziedai * 3; WriteLn(ziedai); while ziedai <= m / 2 do begin diena := diena + 1; end; WriteLn(diena); ReadLn; end. kazko b nesigauna :unsure: tegul kasnors pataiso, nu nzn as daryciau taip bet as dar tik 11kl, :rolleyes: http://programavimopamokos.net/index.php programavimo vidoe pamokos, man tai praverte, :) http://fliiby.com/file/837

program uzduotis1; var zmones : integer; y : real; begin WriteLn('iveskite valandas'); Readln(y); zmones := 0; while y > 0 do begin zmones := zmones + 2; y := y - 0.5; end; WriteLn( zmones); ReadLn; end.

Labai ačiū Giedriau. :D as truputi perdariau ir gavau, manau, lengvesni varjanta. :rolleyes: program Skaiciai; var x, sks, g, skk, lyg, max, maxs, atb, a : longint; begin WriteLn('Iveskite pirmaji skaitmeni'); Readln (x); While x <> 0 do begin sks := 0; skk := 0; lyg := 0; atb := 0; g := x; while g > 0 do begin sks := sks + g mod 10; g := g div 10; end; WriteLn ('Skaiciaus skaitmenu suma : ',sks); g := x; while g > 0 do begin if g mod 10 mod 2 <> 0 then skk := skk + SQR (g mod 10); g := g div 10; end; WriteLn ('nelyginiø skaièiaus skaitmenø kvadratø suma : ',skk); g := x; w

gal kas galit parasyt programa iki antos uzduoties viska suprantu :rolleyes: Klaviatūra įvedami natūralieji skaičiai (įvedimo pabaiga sk. 0) Parašyti programą, kuri atspausdintų kiekvieno skaičiaus skaitmenų sumą; nelyginių skaičiaus skaitmenų kvadratų sumą; tik tuos skaičius, kurie sudaryti iš lyginių skaitmenų; tik tuos skaičius, kurių didžiausias skaitmuo didesnis už skaičiaus skaitmenų sumą be jo; skaičius perrašytus atbulai; iki antros tai manau taip var x, sum, ks, k : integer; begin WriteLn('iveskite skaicius'); Readln(x); ns := 0; sum := 0; ks := 0; j := 0; while x

vis delto kas galit parasykit programa nes pasiklydau :unsure: , buciau labai dekinga :)

sveiki visi :rolleyes: turiu toki uzdavini; Klaviatūra įvedami natūralieji skaičiai (įvedimo pabaiga sk. 0) Parašyti programą, kuri atspausdintų 1kiekvieno skaičiaus skaitmenų sumą; 2nelyginių skaičiaus skaitmenų kvadratų sumą; 3tik tuos skaičius, kurie sudaryti iš lyginių skaitmenų; 4tik tuos skaičius, kurių didžiausias skaitmuo didesnis už skaičiaus skaitmenų sumą be jo; 5skaičius perrašytus atbulai; na cia pradzia visiskai aiski, taciau nzn kaip surasti lyginius ir nelyginius skaicius :( , o paskutinis tai kiek suprantu su div ir mod. seip cia su ciklu while ir salyga viska daryciau, bet

tai pasikeisiu čia ne bėda, tai dėkui tau :rolleyes:

ačiū Linai, programa skaičuoja viska gerai , tik yra problema, kad mes dar net apie ciklą for nesimokinome :| , manau čia kažkaip paprasčiau reiktu, nes mes dar tik minimaliai apie pascalį mokinomės, ciklą while, loginius duomenis, priskyrimą, reiškiniu reikšmes :rolleyes: , bet dėkui kad nors ant kelio užvedei ;)

sveiki gal galėtumėt padėti su uždaviniu? :blink: Mokinys turėjo 10lt, kiekvieną dieną dar gauna po a lt dienpinigių. Kas antrą dieną jis eina į kiną ir išleidžia b lt. Kiek kartų jis turės pakankamai pinigų, kad galėtų eiti į kiną? Jei dienpinigiai dideli kiek sutaupys per x dienų? Čia su ciklu while reikia padaryti programą, labai būčiau dėkinga jei kas padėtų, :rolleyes: