{"id":1327,"date":"2012-06-12T16:36:23","date_gmt":"2012-06-12T13:36:23","guid":{"rendered":"http:\/\/newage.ql.lt\/blog\/?p=1327"},"modified":"2022-01-19T08:34:42","modified_gmt":"2022-01-19T06:34:42","slug":"apie-paskali-mokyklose-ir-valstybinius-it-egzaminus","status":"publish","type":"post","link":"https:\/\/9v.lt\/blog\/apie-paskali-mokyklose-ir-valstybinius-it-egzaminus\/","title":{"rendered":"Apie Paskal\u012f mokyklose ir valstybinius IT egzaminus"},"content":{"rendered":"

\u0160iek tiek pagalvojau para\u0161ysiu apie paskal\u012f (Pascal) kalb\u0105 kuri\u0105 mokina mokyklose, kadangi ne visi supranta ir sugeba pilnaverti\u0161kai i\u0161naudoti \u0161i\u0105 kalb\u0105 ir duotus \u012frankius kaip kad debuger\u012f (debugger).
\n
\nGal kiek pav\u0117luotai \u010dia a\u0161, kadangi egzaminai jau pra\u0117jo, bet vistiek…<\/p>\n

Kadangi esu narys ne viename forume, tame tarpe ir Lietuvi\u0161kuose, pastebiu prie\u0161 IT egzaminus pagaus\u0117jusi\u0173 klausim\u0173 apie t\u0105 ar an\u0105, o kad pad\u0117ti tenka skaityti kod\u0105, o kai kodas b\u016bna baisus, tai da\u017enai tenka ir neatsakyti nes sunku yra suprasti. Visos problemos yra itin paprastai i\u0161sprend\u017eiamos jeigu esate apsiskait\u0119 apie kodo stili\u0173 ir suprantate debuger\u012f<\/a> (apie tai v\u0117liau).<\/p>\n

K\u0105 mokina mokyklose teko pa\u010diam patirti. Neketinu sakyti kad mokytojai yra kvaili ir \u017eino tik pagrindus nes to jiems u\u017etenka darbui, ta\u010diau tokia b\u016bt\u0173 tiesa :P nors a\u0161 mokykloje tur\u0117jau \u012fdom\u0173 mokytoj\u0105, kuris suprato k\u0105 daro, o prie\u0161 j\u012f buvo kitas, mokytoja kurios pavard\u0117s nemin\u0117siu, ta\u010diau ji ne\u017einojo kaip para\u0161yti “boolean”, ne\u017einojo skirtumu tarp proced\u016bros ir funkcijos, ir apskritai nieko ne\u017einojo.<\/p>\n

Klausimas – kod\u0117l apskritai mokintis t\u0105 paskal\u012f, juk tai kalba kurios niekas nebenaudoja. Standartai pasen\u0119, kompiliatori\u0173 niekas nebedaro ir pana\u0161iai. Lietuvos \u0161vietimas m\u0117gsta sakyti “jeigu tai veik\u0117 iki \u0161iol ir dar vis veikia, tai kod\u0117l gi keisti!<\/em>“. Gal tai n\u0117ra visi\u0161ka tiesa, bet a\u0161 taip \u012fsivaizduoju. Bet yra kalb\u0173 kad paskalis bus panaikintas ir vietoje jo \u012fsigal\u0117s C++. I\u0161 vienos pus\u0117s tai but\u0173 labai gerai.
\nKai pasikeis programavimo kalba tai mokytojai tur\u0117s mokintis nauj\u0105 dalyk\u0105. IT mokytoj\u0173 gali ir gerokai suma\u017e\u0117ti, kadangi visokios pagyvenusios moteri\u0161k\u0117s ateina d\u0117styti, kurios t\u0105 pat\u012f paskal\u012f vos i\u0161moko.
\nGry\u0161tam prie pirmutinio klausimo. Kiek teko kalb\u0117ti su u\u017esienie\u010diais per IRC’\u0105 (senas geras…), Ispanijoje irgi mokina paskaliu programuoti – kolegijoje pirmais metais, kadangi paskalis turi labai paprast\u0105 strukt\u016br\u0105 ir sintaks\u0119, tod\u0117l lengva suprasti algoritmus. \u0160tai kaip paai\u0161kino vienas ispanas:<\/p>\n

They teach us pascal because they say is a good example of what structural programming is. They assumed no one knew anything about programming and wanted to start from the very basics. And since pascal is simplier than C, they choose pascal<\/p><\/blockquote>\n

Bet gana apie tai dabar, \u0161ituo klausimu galima diskutuoti am\u017einai.<\/p>\n

Tai tiek pasak\u0173 i\u0161 mokyklos laik\u0173, ta\u010diau a\u0161 paai\u0161kinsiu kod\u0117l tai k\u0105 mokina mokyklose vos u\u017etenka i\u0161laikyti egzamin\u0105. Tai yra tod\u0117l kad mokytojai mokina labai paprastus dalykus. Pasteb\u0117jau kad mokina perra\u0161in\u0117ti \u012fvairias funkcijas kurios yra standartin\u0117s RT (Run time) bibliotekos dalys. Ai\u0161ku tai i\u0161 vienos pus\u0117s yra gerai kai supranti kas vyksta tose funkcijose\/proced\u016brose kurias naudoji, ta\u010diau kai jau visk\u0105 supranti – kam i\u0161radin\u0117ti dvirat\u012f? Jeigu pasidom\u0117tum\u0117t kitomis kalbomis tai su\u017einotum\u0117t kad Pitonas<\/a>, Lietuvoje viena i\u0161 populiaresni\u0173 kalb\u0173, vien tik tuo ir remiasi. Jam yra prikurta \u012fvairi\u0173 bibliotek\u0173 beveik visiems gyvenimo atvejams, tod\u0117l pa\u010diam ka\u017ek\u0105 rim\u010diau teks itin retai perra\u0161yti.
\nPats paskalis galiausiai i\u0161 proced\u016brin\u0117s kalbos patapo objektine, taip gim\u0117 Delphi arba “Object Pascal”<\/a>.<\/p>\n

Dabar keletas pavyzd\u017ei\u0173 apie k\u0105 eina kalba.
\nTarkim reikia sud\u0117ti visus skai\u010dius esan\u010dius kokiam tai masyve. Jus mokina ra\u0161yti cikl\u0105, apsira\u0161yti begal\u0119 kintam\u0173j\u0173, eiti per kiekvien\u0105 element\u0105, sud\u0117ti visus skai\u010dius ir galiausiai para\u0161yti atsakym\u0105.
\nVisa tai galima pakeisti \u012f vien\u0105 funkcij\u0105. Tod\u0117l toks kodas:<\/p>\n

program Noname0;\r\nconst skaiciai : array[0..4] of integer = (1,2,3,4,5);\r\nvar i, res : integer;\r\nbegin\r\n  for i := 0 to length(skaiciai) do\r\n    begin\r\n      res := res + i;\r\n    end;\r\n   write(res);\r\n   readLn;\r\nend.<\/pre>\n
Pavirsta tokiu kodu:<\/p>\n
program Noname0;\r\nuses math;\r\nconst skaiciai : array[0..4] of int64 = (1,2,3,4,5);\r\nvar res : integer;\r\nbegin\r\n  res := math.sumInt(skaiciai);\r\n  write(res);\r\n  readLn;\r\nend.<\/pre>\n
Daug papras\u010diau, ar ne? Pakeiskim dar vien\u0105 da\u017eniausiai naudojam\u0105 kodo gabaliuk\u0105.
\nTarkim reikia mums surasti ma\u017eiausi\u0105 bei did\u017eiausi\u0105 skai\u010di\u0173 masyve. Ir dar surasti vidurk\u012f.
\nMokyklose sakyt\u0173 perra\u0161in\u0117ti \u0161itaip:<\/p>\n
program Noname0;\r\nconst skaiciai : array[0..4] of integer = (1,2,3,4,5);\r\nvar didz, maz, vid, i : integer;\r\nbegin\r\n  \/\/ randam didziausia\r\n  didz := skaiciai[0];\r\n  for i := 0 to length(skaiciai) do\r\n    begin\r\n      if (didz < i) then\r\n        didz := i;\r\n    end;\r\n    \r\n  \/\/ randam maziausia\r\n  maz := skaiciai[0];\r\n  for i := 0 to length(skaiciai) do\r\n    begin\r\n      if (maz > i) then\r\n        maz := i;\r\n    end;\r\n    \r\n  \/\/ randam vidurky\r\n  vid := 0;\r\n  for i := 0 to length(skaiciai) do\r\n    begin\r\n      vid := vid+i;\r\n    end;\r\n  vid := vid div length(skaiciai);\r\n    \r\n  writeLn('Didziausias: ',didz);\r\n  writeLn('Maziausias: ',maz);\r\n  writeLn('Vidurkis: ',vid);\r\n  \r\n  readLn;\r\nend.<\/pre>\n
Labai ilgas ir dar trys ciklai… Supaprastinta versija b\u016bt\u0173 tokia:<\/p>\n
program Noname0;\r\nuses math;\r\nconst skaiciai : array[0..4] of integer = (1,2,3,4,5);\r\nvar didz, maz, vid, i : integer;\r\nbegin\r\n  \/\/ randam didziausia\r\n  didz := math.maxIntValue(skaiciai);\r\n  \/\/ randam maziausia\r\n  maz := math.minIntValue(skaiciai);\r\n  \/\/ randam vidurky\r\n  vid := 0;\r\n  for i := 0 to length(skaiciai) do\r\n    vid := vid+i;\r\n  vid := vid div length(skaiciai);\r\n    \r\n  writeLn('Didziausias: ',didz);\r\n  writeLn('Maziausias: ',maz);\r\n  writeLn('Vidurkis: ',vid);\r\n  \r\n  readLn;\r\nend.<\/pre>\n
Vidurkio deja nebuvo galima \u0161iuo atveju pilnai suma\u017einti.<\/p>\n
Manau supratot k\u0105 nor\u0117jau pasakyti. Tai yra tik labai paprasti pavyzd\u017eiai, \u012fsivaizduokit jeigu ra\u0161ytum\u0117t normalias, dideles programas, tai tas kodas pasidaryt\u0173 beprasmi\u0161kai didelis. O visas RT bibliotekas galima per\u017ei\u016br\u0117ti \u0161tai \u010dia<\/a> ir \u0161iuose pavyzd\u017eiuose naudojau MATH<\/a> bibliotek\u0105.<\/p>\n
Abidvi nuorodos kurias daviau veda \u012f FreePascal svetain\u0119. Galb\u016bt galvojat kod\u0117l? juk j\u016bs mokot\u0117s tiesiog Paskal\u012f, ne jok\u012f Free. Tai yra tod\u0117l kad senokai i\u0161kilo organizacija<\/a> kuri taip ir vadinasi – FreePascal, kuri suk\u016br\u0117 nemokam\u0105 ir atviro kodo Paskalio kompiliatori\u0173 bei IDE (Integrated development environment)<\/a>. Originalus paskalis, kuris kai buvo i\u0161leistas Borland kompanijos vadinosi “Turbo Pascal<\/a>” ir jis jau yra itin pasen\u0119s ir dar mokamas. Tuo tarpu FreePascal yra nemokamas, ir juo yra remtas j\u016bs\u0173 FPS IDE<\/a>, kuris taip pla\u010diai naudojamas egzamine bei mokyklose ir turi laaaabai pasenusi\u0105 FreePascal kompiliatoriaus versij\u0105.<\/p>\n
Pats FPS n\u0117ra blogas, ta\u010diau kurti rimtas programas su juo yra sunku, kadangi jis palaiko tik konsolin\u0119 versij\u0105 ir norint programuoti objektiniu paskaliu, tekt\u0173 labai pasistengti.
\nBe to, jis turi labai primityv\u0173 debuger\u012f<\/a> kuris leid\u017eia sekti kod\u0105, bet neleid\u017eia steb\u0117ti kintamuosius.<\/p>\n
Tad jeigu ra\u0161ot koki\u0105 tai ilg\u0105 program\u0105, jeigu tarkim sprend\u017eiat IT egzamino u\u017eduotis, tai galiausiai kodas pasidaro ilgas ir logikos b\u016bna tiek privelta kad sunku akimis visk\u0105 su\u017ei\u016br\u0117ti. Kadangi FPS turi labai prast\u0105 debuger\u012f, a\u0161 naudoju FreePascal i\u0161leist\u0105 daug geresn\u0119 alternatyv\u0105 – Lazarus<\/a>, kur\u012f galima parsisi\u0173sti \u010dia<\/a> (jeigu pas jus Windows sistema, Lazarus galima \u012fsira\u0161yti ir ant Linux, UNIX bei MAC).<\/p>\n
Galiu dabar ramiai paai\u0161kinti kaip naudotis tuo debugeriu pagaliau! O juo naudotis yra taip pat paprasta kaip naudotis FPS.<\/p>\n
Kai ra\u0161ot program\u0105 ir i\u0161kyla problema, o gal \u012ftariat kad n\u0117ra vykdoma viena ar kita programos dalis, tuomet sudedat ta\u0161kus (breakpoints) tose eilut\u0117se kur manot kad yra problema. Kad juos sud\u0117ti pel\u0117s mygtuku spaud\u017eiat ties ta eilute kair\u0117je pus\u0117je kur pilka juosta, tuomet atsiras raudonas ta\u0161kas. Dabar galima spausti F9 (arba Run) kad paleisti m\u016bs\u0173 program\u0105 ir jis automagi\u0161kai sustos ties ta eilute. Dabar galima spaudin\u0117ti F7 arba F8 ir sekti kod\u0105.
\nJeigu spausit F7, tuomet debugeris seks kiekvien\u0105 eilut\u0119 eidamas ir \u012f proced\u016bras\/funkcijas kurios yra pagrindiniam kode ir seks kod\u0105 tenai kol gr\u012f\u0161 \u012f pirmin\u012f kod\u0105 ir taip toliau…
\nSpaud\u017eiant F8 bus tas pat tik debugeris ne\u0161okin\u0117s i\u0161 pirminio kodo \u012f \u0161alutines proced\u016bras\/funkcijas.
\nJeigu jau nebereikia sekti kodo, galit spausti F9 ir programa t\u0119s darb\u0105 iki kol pasieks kita ar t\u0105 pat\u012f sustojimo ta\u0161k\u0105 (breakpoint).
\nSu Lazarus u\u017evedus pel\u0119 ant kintamojo bus parodyta jo gauta reik\u0161m\u0117.<\/p>\n
Vatepva toks tas debugerio naudojimas. Paprasta ir labai naudinga.<\/p>\n
Tai k\u0105 a\u0161 paai\u0161kinau auk\u0161\u010diau d\u0117l bibliotek\u0173 naudojimo galb\u016bt nevisai tinka egzamine, kadangi tikrintojai irgi pagyven\u0119 snobai ir \u017eino kiek u\u017etenka egzaminui i\u0161taisyti, ta\u010diau taisykl\u0117se n\u0117ra para\u0161yta kad tai draud\u017eiama, o jei nedraud\u017eiama – tai galima ir papildomi ta\u0161kai yra skiriami u\u017e tvarking\u0105 kod\u0105, tad jeigu netinka RT bibliotek\u0173 naudojimas kad kodas pasidaryt\u0173 gra\u017eesnis ir atlikt\u0173 u\u017eduot\u012f pilnai, tuomet jau atsipra\u0161au bet tai yra visi\u0161ka kvailyst\u0117.<\/p>\n
Dar d\u0117l gra\u017eesnio kodo, esu labai daug kur pasteb\u0117j\u0119s kad \u017emon\u0117s visi\u0161kai nesilaiko taip vadinam\u0173 konvencij\u0173 arba kitaip – priimtiniausio kodo ra\u0161ymo.
\nTai sakydamas turiu omeny kad naudoja tik raides kintam\u0173j\u0173 vardams arba beprasmes kombinacijas, kodas neb\u016bna tinkamai paslinktas tarpais nuo kra\u0161to, pradeda ra\u0161yti bet kaip, naudoja statines funkcijas ir pana\u0161iai ir pana\u0161iai.
\nPabandysiu paai\u0161kinti kiekvien\u0105 atskirai.<\/p>\n
Kintam\u0173j\u0173 vardams turi b\u016bti naudojama ne raid\u0117s<\/em> (nebent tai ciklo<\/em> laikinas kintamasis<\/em>) o pilni \u017eod\u017eiai<\/strong>, fraz\u0117s<\/strong> arba trumpiniai<\/strong>. Paimkim viena i\u0161 auk\u0161\u010diau pateikt\u0173 kod\u0173 ir pervadinkim visus kintamuosius raid\u0117mis:<\/p>\n
program Noname0;\r\nconst a : array[0..4] of integer = (1,2,3,4,5);\r\nvar b, c : integer;\r\nbegin\r\n  for b := 0 to length(a) do\r\n    begin\r\n      c := c + b;\r\n    end;\r\n   write(c);\r\n   readLn;\r\nend.<\/pre>\n
I\u0161kart sunkiau pasidaro skaityti kai reik nuolatos \u017ei\u016br\u0117ti \u012f prad\u017ei\u0105 kad \u017einotum koks kintamasis yra kokio tipo.<\/p>\n
Dar jei nenaudoja tarp\u0173 atskirti \u017eod\u017eiams ar simboliams, ir nededa atitinkamai tarp\u0173 prad\u017eioje eilut\u0117s tai b\u016bna i\u0161vis ko\u0161maras:<\/p>\n
program Noname0;\r\nconst a : array[0..4] of integer = (1,2,3,4,5);\r\nvar b, c : integer;\r\nbegin\r\nfor b:=0 to length(a) do\r\nbegin\r\nc:=c+b;\r\nend;\r\nwrite(c);\r\nreadLn;\r\nend.<\/pre>\n
Ta\u0161k\u0173 u\u017e gra\u017e\u0173 kod\u0105 tikrai negausit.<\/p>\n
O sakydamas statines funkcijas, turiu omeny darb\u0105 su masyvu. Ai\u0161ku darbui su IT u\u017eduotimis \u012fvesties failas pirmoje eilut\u0117je turi du skai\u010dius – kiek eilu\u010di\u0173 ir kiek element\u0173 atskirt\u0173 tarpais kiekvienoje eilut\u0117je (ne visuomet), tod\u0117l jaudintis d\u0117l per ma\u017eo ar per didelio masyvo netenka. O kas jeigu mes ne\u017einom kokio ilgio tas masyvas? tokiu atveju naudojama length(masyvas)<\/code> kodas.<\/p>\n
Vatepva nor\u0117jau truput\u012f ap\u0161viesti. Jeigu kyla koki\u0173 nors neai\u0161kum\u0173 ar \u0161iaip klausim\u0173 – laukiu komentaru \u017eemiau :)<\/p>\n
Dabar para\u0161ysiu kelias nuorodas kurias tur\u0117tum\u0117t per\u017ei\u016br\u0117ti norint labiau \u012fsigilinti:<\/p>\n