4. Skaičių sekos | |
Nagrinėsime uždavinius, kuriuose pradinius duomenis sudaro skaičių sekos. Sekos pvz. 25 45 -365 10 547 3 479 21 4789 6 472 12 6987 2 -4 36548 Pvz. 4.1 Parašykite programą, kuri rastų duotos skaičių sekos sumą. Sekos pabaigos požymis yra nulis, pagal jį kompiuteris sužino, kad seka jau baigėsi.
program sekossuma;
var n, sum : integer; begin read(n); sum := 0; while n <> 0 do begin sum := sum + n; read(n) end; writeln ('sum = ', sum) end. Užduotys Nr.1 Įveskite išnagrinėtąją programą, sukompiliuokite ir patikrinkite, ar gerai skaičiuoja. Tikrinant programos veikimą, visą skaičių seką įvedame iš karto, skaičius atskirdami tarpu, seką užbaigdami nuliu. Nr. 2 Pakeiskite programą taip, kad ji skaičiuotų visų sekos skaičių sandaugą. Programoje pakeiskite kintamųjų tipą integer į tipą longint. 1 tikrinamasis darbas Nr. 3 Pakeiskite programą taip, kad ji suskaičiuotų ir atspausdintų:
Nr. 4 Parašykite programą, kuri atspausdintų:
Nr. 5 Pirmą mėnesį programuotojui moka a litų atlyginimą. Darbdavys pažadėjo kiekvieną kitą mėnesį padidinti atlyginimą x litų. Parašykite programą (būtinai naudodami ciklą while), kuri surastų:
|
|