Kompiuterių struktūros ir programavimas. Laboratorinis darbas.



Y rekšmei skaičiuoti patogu pasidaryti funkciją. Bp,bg,bh gali būti realūs todėl for ciklo naudoti negalima. Labiausiai čia tinka repeat. Until ciklas. Prieš jį vykdant, reikia patikrinti ar duomenys nėra tokie, kad ciklas iš vis nevykdytinas ir ar nėra amžinas. Duomenų tikrinimui galima naudoti procedūrą. Kadangi x gaunamas ištraukus šaknį iš reiškinio kuris gali būti neigiamas, prieš skaičiuojant reikia patikrinti ar x egzistuoja (ar a*b*b-10). Jei x neegzistuoja,tai neegzistuoja ir y ,nes y galima syskaičiuoti tik turint x. Tokiu atveju ū ir y vietose spausdinama neegzistuoja . Masyvo įvedimui patogu naudoti procedura. Kadangi lenteliu formavimą reikia daryti n kartu, kai n žinomas geriausia tam panaudoti cikla for. Rezultatus galima surasti n kartu padariuslenteles=array[. Maxl] of record irašų masyvo tipas kuvisi pradiniai ir galutiniai kintamieji realūs nes vartotojas gali pateikti realius pirminius duomenis (afunkcija kuri apskaiciuoja x reikšmę. Jei x neegzistuoja gražina (-10). Rezultatas (-10) negali būt gautas iš ši funkcija ieško loginių klaidų pradiniuose duomenyse. Radusi paklausia vartotojo ar jas ištaisytši procedūra atspausdina zinute ekrane ir rezultfunkcija kuri naudojama vienos lenteles narių reikšmes radimui. Funkcija gražina lenteles esminiu eilučiu skaičių. Jei reikšmės į lentelę nebetelpa programa baigia darba,informuodama vartotoją. Šią funkprocedura, kuri suformuoja viena lentelę. Jiprocedura naudojama visų lentelių format\ t\ programa gali suskaičiuoti reiškinio y:=b*x*x*sin(a*x)-1 reikšmę iki 2000 kartų per vieną programos paleidimą. Kai a,b, realūs skaičiai, n:sveikas. Reikia neužmiršti, kad a,x reikšmės tverta atsiminti, kad a,b,x reikšmės neturi išeiti už real tipo ribų. 9e-39<=real<=. 7e38,taip pat kaip ir rezultato reikšmė (y). Todėl nepatariama naudoti pernelyg didelių ar per mažų skaičių. Duomenys įvedami iš klaviatūros. Jei bh reikšmė bus įvesta nelogiška (amžinas ciklas) , programa gali ištaisyti šią klaida if ieskokklaidu(bp,bg,bh,n) then nutraukdarba('klaida:amz
- Microsoft Word 23 KB
- 2012 m.
- 13 puslapių (1657 žodžiai)
- Universitetas
- Aleksandra
-