Ciklo sakiniai

Užduotis: Sudaryti žemiau pateiktų matematinių operacijų skaičiavimo programą. Ją rašyti Nazarus aplinkoje. Naudojant PASCAL programavimo kalbos sintaksę ir taisykles. Matematinės operacijos: 1. y=1/(sqrt2*x-3) skaičiavimas intervale [a...b] (a,b – įvedimas klaviatūra). 2. y=x! 3. Paskaičiuoti n klaviatūra įvestų skaičių aritmetinį vidurkį. Įvedimo pabaigą žymi įvestas 0. 4. Sn=1k+2k+…+nk, kur n ir k – duoti natūriniai skaičiai. Užduoties analizė: Darant šį laboratorinį darbą teko susidurti su meniu, teko viską aiškinti komentuojant tekstu, parašyti sąlygas aritmetinio vidurkio, naudotis procedūromis, funkcijų sąlygomis, naudoti ciklus, tikrinimo sąlygomis, sudėtingesnes pasikartojančias dalis išskirti į atskiras procedūras ir funkcijas. Taip pat reikėjo apskaičiuoti faktoriala, kai y = x !, pakelti laipsniu kai n ir k natūriniai skaičiai ir skaičiuoti funkcija kai jos intervalas [a..b]. Programa pradėjau procedūra ir funkcijų priskirimu kintamiesiems a1,a2,a3,a4 tikrinimo sąlygos pagalba, taip pat priskyrėm ir tokia funkcija jei vartotojas nenori nieko skaičiuoti tiesiog baigti darbą klavišo paspaudimu arba įvedęs meniu nurodytą baigimo sąlygos skaičių. Programos aprašymas: Naudoti tipai ir kintamieji: Kintamųjų aprašymui buvo panaudoto realiųjų, natūrinių ir sveikųjų skaičių sąlygos (real, string, integer ). Programos algoritmas: Algoritmo pradžia Aprašomieji kintamieji Dialogas su vartotoju, prašymas pasirinkti pageidautina funkciją Jeigu pasirinktas variantas teisingas programa toliau prašo įvesi kintamuosius priklausančius tam tikrai funkcijai Jeigu pasirinktas variantas neatitinka programos aprašymo (pasirinkta klaidinga komanda) Vartotojui pasirinkus raktiniu žodžiu pirmą funkciją, ji pradeda skaičiavimą Vartotojui pasirinkus raktiniu žodžiu antrą funkciją, ji pradeda skaičiavimą Vartotojui pasirinkus raktiniu žodžiu trečią funkciją, ji pradeda skaičiavimą Vartotojui pasirinkus raktiniu žodžiu ketvirtą funkciją, ji pradeda skaičiavimą Funkcijai baigus darbą, išmetamas užrašas su sėkminga darbo pabaiga Algoritmo pabaiga Atmintinė vartotojui: Šioje programoje meniu lange reikia pasirinkti funkciją, ją nusako raktinis žodis „Pirma, Antra ir t.t.“ tačiau jeigu netyčia suklysite ir parašysite vietoj raktinio žodžio „Pirma“ žodį „pirma“ tokiu atveju bus pakartotinas žodžio įvedimas reapet pagalba. Kintamuosius nebūtina rašyti sveikuosius skaičius (integer) programa puikiausiai priima ir realiuosius skaičius (real). Išvados: Programa atitinka keliamus reikalavimus ir yra parašyta be jokiu trukumu ir visas funkcijas skaičiuoja be klaidu. Programos tekstas: program if060125LD3; {$mode objfpc}{$H+} uses Classes { add your units here }; var i,n, x, j, a, b, suma, ch : integer; y, vidurkis, faktorialas: real; veik : char; //--------------------pirma procedura----------------------------- procedure pasirinkimas; {proceduros pavadinimas} var {kintamuju aprasai} veik : char; {raidinio duomenu tipo kintamasis} begin //veiksmo pasirinkimas Writeln('jei norit skaiciuoti funkcija y:=1-sqrt(2*x-3) spauskite 1'); writeln('jei norit skaiciuot funkcija y:=x! spauskite 2'); writeln('jei norit rasti n skaiciu vidurki spauskite 3'); writeln('jei norite spresti lygti Sn:=1^k+2^k+...+n^k spauskite 4'); end; {pirmos proceduros pabaiga} //---------------- pirma funkcija--------------------------------------------- function y1(x: integer) : real; {funkcijos aprasymas} begin y:=1-sqrt(2*x-3); {funkcijos skaiciavimai} y1:=y; end; {funkcijos pabaiga} //------------------antra procedura--------------------------------------- procedure pasirinkimas_2; {proceduros pavadinimas} var a, b, x, ch, c : integer; {proceduros kintamuju aprasymas} begin //kintamuju ivedimai ir nuskaitymai writeln('iveskite intervalo pradzios reiksme a'); readln(a); writeln('jusu ivesta a reiksme: ', a:5); writeln('iveskite intervalo pabaigos reiksme b'); readln(b); writeln('jusu ivesta b reiksme: ', b:5); writeln('iveskite intervalo kitimo zingsni ch'); readln(ch); if a > b then {salygos tikrinimas} begin writeln('intervalo pradzia didesne uz pabaiga'); end else c:=a; while c 1.5 then begin Writeln('atsakymas yra:'); writeln(y1 (x) : 5: 2); {funkcijos y1 iskvietimas} c:=c+ch; end else writeln('neigiamas posaknis'); end; end; {proceduros pabaiga} //----------------------antra funkcija------------------------------------------ function y2 (x: integer) : real; {funkcijos aprasymas} var i, faktorialas : integer; {kintamuju aprasymas} begin Writeln( 'iveskite naturaluji skaiciu x'); {x ivedimas} readln(x); {x nuskaitymas} faktorialas:=1; for i:=1 to x do {ciklo pradzia} faktorialas:= faktorialas*i; writeln(x, '!=', faktorialas); {atsakymo spausdinimas} y2:=faktorialas; end; {funkcijos pabaiga} //----------------------trecia funkcija--------------------------------------- function y3(x: integer) : real; {funkcijos aprasymas} var i, n, sk, suma : integer; {kintamuju aprasymas} vidurkis : real; begin writeln('Iveskite sumuojamu skaiciu kieki'); {kiekio ivedimas} readln(n); suma:=0; for i := 1 to n do {ciklo pradzia} begin //skaiciavimu atlikimas writeln('iveskite', i:5 , ' skaiciu'); readln(sk); suma:=suma+sk; end; //skaiciavimu spausdinimas writeln('suma :', suma:5); vidurkis := suma/n; writeln('vidurkis :', vidurkis:9:2); y3:=vidurkis; end; {funkcijos pabaiga} //----------------------------ketvirta funkcija----------------------------- function y4(x: integer) : real; {funkcijos aprasymas} var n, k, j, s, i : integer; {kintamuju aprasymas} Sn : real; begin writeln('iveskite n reiksme'); readln(n); writeln('iveskite k reiksme'); readln(k); suma := 0; for i := 1 to n do {pirmojo ciklo pradzia} begin s := 1; for j := 1 to k do {antrojo ciklo pradzia} s := s * i; suma := suma + s; y4:=suma; end end; {funkcijos pabaiga} //-----------------------PAGRINDINE PROGRAMA------------------------------------ begin WriteLn('Sia programa sukure Rolandas Pralgauskas, if060125'); WriteLn('programa skaiciuoja keturias funkcijas'); Writeln('Jus galesite pasirinkti ka programa skaiciuos'); WriteLn('pasirinkite ka toliau noresite daryti: '); pasirinkimas; {proceduros iskvietimas} readln(veik); if veik = '1' then begin pasirinkimas_2; {antros proceduros iskvietimas} end else if veik = '2' then begin Writeln(y2(x) : 5:2); {antros funkcijos iskvietimas} end else if veik = '3' then begin writeln(y3(x) :5:2); {trecios funkcijos iskvieimas} end else if veik = '4' then begin writeln(y4(x) : 6:2); {ketvirtos funkcijos iskvietimas} end else writeln('neteisingai pasirinktas veiksmas'); Writeln('programa skaiciavimus baige'); {programos pabaiga} Writeln('paspauskite

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!