Free Pascal paskaitos teorija

6. Ciklai ir jų naudojimai 6.1. Kiekio kaupimas. Skaitiklis Duomenų apdorojimo metu labai dažnai reikia žinoti atitinkamų duomenų kiekį. Pvz. kiek buvo iš vis įvesta skaičių arba kiek įvesta lyginių skaičių arba teigiamų ir t.t. Skaitiklis – tai kintamasis, kuris kaupo kiekį atitinkamų duomenų. Skaitikliai dažnai yra naudojami programavime. Atitinkamų duomenų kiekio apsikačiavimui priimta naudoti kintamąjį vardu Skaitiklis (angl. Counter). Jam būtinai reikia suteikti pradinę reikšmę 0 (nulį) ir tada galima kaupti kiekį priskyrimu: Skaitiklis:=Skaitiklis + 1; Uždavinys Į kompiuterį klaviatūrą įvedami skaičių seka. Po kiekvieno įvedimo kompiuteris turi atspausdinti kiek yra tarp įvestų skaičių teigiamų. Iš anksto nežinoma kiek skaičių bus įvesta, todėl duomenų pabaiga nurodo nulis. Programoje panaudokite ciklo operatorių repeat … until. 6.1. Programa program Teigiamų_skaičių_kiekis; var Skaitiklis, {Kintamasis kiekio kaupimui } x:Integer; {Sekos narys} begin Skaitiklis:=0; {Skaitikliui suteikiama nulinį reikšmę} repeat ReadLn(x); {Nuskaitome x – sekos narį} if x>0 then Skaitiklis:=Skaitiklis+1; Writeln('Teigiamų skaičių kiekis=>', Skaitiklis); WriteLn; until x=0; ReadLn; end. Kaip veikia ši programa Kintamasis Skaitiklis kaupo kiek kartų buvo įvesti teigiami skaičiai. Jam būtinai reikia suteikti pradinę reikšmę 0 (nulį) prieš ciklo veikimą repeat … until ir tada jis gali kaupti teigiamų skaičių kiekį. Ciklo darbo metu kiekvienas įvestas skaičius tikrinamas sąlyginių operatorių if x>0 then Jei įvestas skaičius teigiamas, tai kintamojo Skaitiklis reikšmė Skaitiklis:=Skaitiklis+1 modifikuojama – didinama vienetui. Vadinasi, ląstelė vardu Skaitiklis saugo įvestų teigiamų skaičių kiekį. Uždavinys Klaviatūrą įvedama seka – 10 skaičių. Kompiuteris turi pranešti kiek yra nelyginių skaičių tarp įvestų. Programoje panaudokite funkcija Odd() ir ciklo operatorių for … to … do. 6.2. Programa program Nelyginių_skaičių_kiekis; var Skaitiklis, {Kintamasis nelyginių skaičių kiekio kaupimui} i, {Kintamasis ciklo for skaitikliui} x:Integer; {Sekos narys} begin Skaitiklis:=0; {Skaitikliui suteiksime pradinę reikšmę} for i:=1 to 10 do begin Write('Įveskite skaičių x=>'); ReadLn(x); {Nuskaitome x – sekos nario reikšmę} if Odd(x) then Skaitiklis:=Skaitiklis+1; {Didiname skaitiklį} end; Writeln('Nelyginių skaičių kiekis=>', Skaitiklis); ReadLn; end. Kaip veikia ši programa Mes žinome iš anksto kiek kartų klaviatūra įvedami skaičiai – 10. Sekcijoje var aprašome kintamąjį Skaitiklis. Prieš ciklo veikimą kintamasis Skaitiklis įgauna pradinę reikšmę 0 (nulį) ir tada jis gali kaupti neliginiu skaičių kiekį. Ciklo darbo metu kiekvienas įvestas skaičius tikrinamas sąlyginių operatorių if Odd(x) then Čia funkcija Odd(x) loginė ir turi reikšmė True, kai skaičius nelyginis. Jei įvestas skaičius nelyginis, tai kintamojo Skaitiklis reikšmė Skaitiklis:=Skaitiklis+1 modifikuojama – didinama vienetui. Vadinasi, ląstelė vardu Skaitiklis saugo įvestų nelyginių skaičių kiekį. Programos “Nelyginių_skaičių_kiekis” blok-schema 6.2. Sumos kaupimas. Sumatorius Skaičiaus srautus apdorojimui labai dažnai taikomi sumos kaupimo algoritmai. Nagrinėsime sumos kaupimo algoritmą plačiau. Sumos kaupimas tai ciklas kuriame mes kartojam vieną veiksmą - sumos operaciją. Pvz., apskaičiuoti sumą: Suma = 1+1/2+1/3+1/4+ … Skaičių sumavimui reikalingi du kintamieji: • kintamasis Suma – sumos kaupimui (jos reikšmė yra skaičiuojama), • kintamasis Narys – kitas sumos narys (jo reikšmės gali būti įvedami). Sumos skaičiavimui kintamajam Suma būtina suteikti pradinę reikšmę 0 (nulį). Sumos kaupimo veiksmas aprašomas priskyrimo operatoriumi: Suma:=Suma + Narys; Čia priskyrimo operatorius nurodo, kad senoji kintamojo reikšmė Suma turi būti padidinama kintamojo Narys didžiu. Vadinasi, sumos kaupimo prasmė yra: Sumanauja:=Sumasena + Narys; Kintamasis Suma arba Sumatorius kaupo sumos kieki programos darbo metu. Kitaip sakant, kintamasis Suma tai atminties ląstelė, kuri saugo sumos kiekį. Uždavinys Parašyti programą apskaičiuoti N sekos narių sumai Suma = 1+1/2+1/3+1/4+ …+1/N ciklu for … to … do, kai N =10, 20, 30, 50. 6.3. Programa program Apskaičiuoti_suma; var i, {Kintamasis i – ciklo for skaitiklis} N: Integer; Narys, {kintamasis Narys – kitas sumos narys} Suma:Real; {Kintamasis Suma – sumos kaupiklis} begin Write('Keliu nariu suma apskaičiuoti=>'); ReadLn(N); Suma:=0; {Sumai suteiksime pradinę reikšmę} for i:=1 to N do begin Narys:=1/i; {Apskaičiuojame kitą sekos narį} Suma:= Suma + Narys; {Kaupiame sumą} end; WriteLn(N,' nariu suma ',Suma:2:5); ReadLn; end. Kaip veikia ši programa Mes žinome iš anksto keliu nariu suma apskaičiuoti: narių kiekis – kintamasis N įvedamas klaviatūrą. Vadinasi, jo reikšmė apibudino kiek kartų ciklas yra kartojamas. Ciklo for … to … do kūnas – du operatoriai: Narys:=1/i; Suma:= Suma + Narys; Pirmojoje eilutėje apskaičiuojamas kitas sekos narys, o antrojoje suma. Pvz., jei kaupti sumą iki kol ji bus dagiau už 4.5 (Suma>4.5), tuomet ciklas for sukamas beveik 55 kartų. Programos “Apskaičiuoti suma” blok-schema 6.3. Sandaugos kaupimas Sandaugos kaupimas – tai ciklas kuriame kartojamas vienas veiksmas – sandaugos operaciją. Pvz., apskaičiuoti faktorialą: n! = 1*2*3* …*n = (n-1)!*n. Skaičių sandaugai reikalingi du kintamieji: • kintamasis Sandauga – sandaugos kaupimui (jos reikšmę skaičiuojama). • kintamasis Narys – kitas sandaugos narys (jo reikšmės gali būti įvedami), Sandaugos skaičiavimui kintamajam Sandauga būtina suteikti pradinę reikšmę 1 (vienetą). Sandaugos kaupimo veiksmas aprašomas priskyrimo operatoriumi: Sandauga:=Sandauga * Narys; Čia priskyrimo operatorius nurodo, kad senoji kintamojo reikšmė Sandauga turi būti padauginta kintamojo Narys didžiu. Todėl sumos kaupimo prasmė yra: Sandauga nauja:=Sandauga sena * Narys; Kintamasis Sandauga kaupo sandaugos kieki programos darbo metu. Kitaip sakant, kintamasis Sandauga tai atminties ląstelę, kurioje yra saugoma sandaugos kieki. Uždavinys Skaičiaus n faktorialas n!=1*2*3* … *(n-1) *n=(n-1)!*n tai paeiliui pateiktu natūriniu skaičių nuo 1 iki n sandauga. Pvz., 1!=1 2!=1*2 3!=1*2*3 …… n!=1*2*3*…(n-1)*n Parašyti programą apskaičiuoti skaičiaus n faktorialą ciklu for … to … do, kai n =10, 11,12,13. 6.4. Programa program Apskaičiuoti_faktorialą; var i, {Kintamasis i – ciklo for skaitiklis} n, Narys, {Kintamasis Narys – kitas sandaugos narys} Sandauga: LogInt; {Kintamasis Sandauga – sandaugos kaupiklis} begin Write('Įveskite skaičių n=>'); ReadLn(N); Sandauga:=1; {Sandaugai suteiksime pradinę reikšmę} for i:=1 to N do begin Narys:=i; Sandauga:= Sandauga*Narys; {Kaupiame sandauga} end; WriteLn(N, '!=', Sandauga); ReadLn; end. Pastaba. Akivaizdžiai sandauga sparčiai didėja, ir greitai galimas persipildymas. Taigi šitokia programa gali rasti tik palyginti nedidelių skaičių faktorialą. Todėl programoje iš karto kintamuosius aprašome Longint tipu. Deja ir čia, kai n=13, kintamojo dydis viršija MaxLongInt=2147483647 ir turime persipildymą. 6.4. Eilučių sumavimas Matematikoje dažnai yra sumojamos begalinių eilučių sumas. Pvz.,: suma=1+1/1 + 1/2 + 1/3 + 1/n+…. Kuo daugiau eilutės narių sudėsime (kompiuteriui nesunku sudėti jų labai daug), tuo tikslesnę sumos reikšmę gausime. Kiek jų reikia sudėti, programoje galima nurodyti įvairiai. Paprasčiausia sumuoti tam tikrą iš anksto nustatytą pirmųjų narių skaičių. Tačiau programos dažniausiai sudaromos taip, kad būtų sumuojami eilutės nariai tol, kol jie pasidaro mažesni už tam tikrą, labai mažą, iš anksto pasirinktą dydį. Šis dydis ir apibūdina sumavimo paklaidą. Uždavinys Parašyti dvi programos apskaičiuoti sumai Suma=1+1/1 + 1/2 + 1/3 + 1/n+…. su sumos paklaida 1/n'); ReadLn(E); Suma:= 0; Narys:=1; k:=0; while Narys>=E do begin Suma:=Suma+Narys; k:=k+1; Narys:=1/k; end; WriteLn('Suma=>',Suma); Write('Sumuota narių=>', k); ReadLn; end. Programos “Sumos_apskaičiavimas” blok-schema while … do Sudarykime programą ciklu repeat … until. Šio ciklo sąlyga Narys

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!