3. Programų rašymas | |
Užduotys Nr. 1 Parašykite programą, kuri apskaičiuotų:
Nr. 2 Parašyta programa, kuri randa skaičiaus a kubinę šaknį sveikųjų skaičių tikslumu. Sutvarkykite ją.
program kubsaknis;
var a, ..., ... : integer; begin writeln('Iveskite a'); read(...); i := ...; while a >= i * ... * ... do i := i + ...; skn := i - ...; writeln(' ... = ', ...) end. Nr. 3 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ų:
2 tikrinamasis darbas Nr. 4 Jaunasis matematikas, pastebėjęs gobšaus turtuolio bukumą pasiūlė tokį sandėrį: Pirmą dieną jis turtuoliui duos 1 mln. dolerių, o tas jam už tai sumokės 2 centus. Kitą dieną matematikas ir vėl duos turtuoliui 1 mln. dolerių, o tas jam užmokės dvigubai daugiau negu praėjusią dieną, t.y. 4 centus. Ir taip jie darys visą mėnesį (31 dieną), matematikas kasdien duos po milijoną dolerių, o turtuolis mokės dvigubai daugiau negu praėjusią dieną. Parašykite programą, kuri suskaičiuotų kiek pinigų duos matematikas turtuoliui ir kiek turtuolis sumokės matematikui. Nr. 5 Patobulinkite programą, kad ji tiktų bet kurioms sutartoms pinigų sumoms ir laikotarpiams. Nr. 6 |
|