Algoritmų užduotys

Velykų algoritmas M = 2000 1. Aukso skaičius: G = M mod 19 + 1 = 2000 mod 19 + 1 = 6 2. Šimtmetis: C = M div 100 + 1 = 2000 div 100 + 1 = 21 3. Pataisos: X = 3 * C div 4 - 12 = 3 * 21 div 4 - 12 = 3 Z = (8 * C + 5) div 25 - 5 = (8 * 21 + 5) div 25 - 5 = 1 4. Pataisa sekmadieniui: D = 5 * M div 4 - X - 10 = 5 * 2000 div 4 - 3 - 10 = 2487 5. Epakta: E = (11 * G + 20 + Z - X) mod 30 = (11 * 6 + 20 + 1 - 3) mod 30 = 24 Koreguota epakta: E = E +1 = 24 + 1 = 25 6. Pilnatis: N = 44 - E = 44 - 25 = 19 Koreguota pilnatis: N = N + 30 = 19 + 30 = 49 7. Perėjimas prie sekmadienio: N = N + 7 - ((D + N) mod 7) = 49 + 7 - ((2487 + 49) mod 7) = 54 8. Velykos 2000 metais buvo balandžio mėn.  N - 31 = 54 -31 = 23 dieną. Ats.: 04.23 Algoritmas ir programa 1 Pvz.: Parašykite programą, kuri pakeltų kvadratu bet kurį natūralųjį skaičių. program Pvz_1; {antraštė}    var x, y: real;   {kintamųjų aprašai}    begin               {programos pradžia}        writeln ('Ivesk skaiciu:');  {įvedimo užklausa}        readln (x);    {įvedimas}        y := x * x;     {skaičiavimai}        writeln ('Kvadratas:', y:10:2);  {rezultatų išvedimas}        readln {laukti Enter paspaudimo}    end. {programos pabaiga}  2 Pvz.: Parašykite programą, kuri apskaičiuotų kvadrato perimetrą, kai duota kvadrato kraštinė. program perimetras;    var a, P: real;       begin                       writeln ('Ivesk kvadrato krastine:');          readln (a);            P := 4 * a;            writeln (P);          readln     end. Kintamieji ir jų reikšmės  Paskalio kalboje su skaičiais atliekami įprastiniai aritmetiniai veiksmai. Sudėtis ir atimtis žymima kaip ir matematikoje: + ir -. Daugyba programose žymima žvaigždute *. Paskalio kalboje dalyba yra trijų rūšių: viena atliekama su realiaisiais skaičiais ir dvi - su sveikaisiais skaičiais. Realiųjų skaičių dalyba atliekama taip kaip ir matematikoje, ir žymima įstrižu brūkšniu /. Dalijant sveikiuosius skaičius, galima gauti du rezultatus: dalmenį ir liekaną. Šios dalybos operacijos žymimos santrumpomis div ir mod. 1 Apibrėžimas Jeigu dalojame sveikuosius skaičius ir norime gauti dalmenį - tik sveikąjį skaičių, tai dalybos operaciją žymime div, o jei norime gauti tik liekaną - žymime mod. 1 Pvz.: 4 div 2 = 2 4 mod 2 = 0 17 div 4 = 4 17 mod 4 = 1 Iš nulio dalyti negalima. 2 Apibrėžimas Duomenys, kurių reikšmės gali keistis atliekant programą, vadinami kintamais duomenimis, arba tiesiog kintamaisiais. Kintamasis apibūdinamas vardu. Užrašant kintamojo vardą turi būti nurodoma, kokias reikšmes gali įgyti kintamasis. Tai apibūdinama užrašant duomenų tipą. Sveikųjų skaičių tipas nurodomas žodžiu integer, o realiųjų - žodžiu real. 3 Apibrėžimas Reiškinys - tai konstantos ir kintamieji, sujungti operacijų (veiksmų) ženklais bei lenktiniais skliaustais. Veiksmų atlikimo tvarka reiškiniuose įprasta: pirmiausia atliekami veiksmai skliaustuose, po to - dauginama ir dalijama, o galiausiai - sudedama ir atimama. 2 Pvz.: 10 div 6 +1 = 1 + 1 = 2 10 - (8 + 4 mod 3) = 10 - 9 = 1 Reikšmių priskyrimas 1 Pvz.: Pradinis duomuo - triženklis natūralusis skaičius. Parašykite programą šio skaičiaus skaitmenų sumai rasti. Paskalio kalba neturi operacijos, kuri išskirtų skaičiaus skaitmenis - tai reikia išreikšti aritmetinėmis operacijomis. Pirmąjį triženklio skaičiaus skaitmenį gauname dalydami šį skaičių iš 100. Antrąjį skaitmenį galima gauti taip: pirma atmesti trečiąjį skaitmenį, po to - pirmąjį. Trečiasis skaitmuo lygus liekanai, gautai padalijus skaičių iš 10. program trizenklis;    var tr, s1, s2, s3, suma: integer; {triženklis sk., jo skaitmenys, skaitmenų suma} begin    read (tr);    s1 := tr div 100;    {pirmasis skaitmuo}    s2 := tr div 10 mod 10;   {antrasis skaitmuo}    s3 := tr mod 10;   {trečiasis skaitmuo}    suma := s1 + s2 + s3;    writeln (suma); end. 2 Pvz.: Pradinis duomuo - keturženklis natūralusis skaičius. Parašykite programą, kuri pašalintų paskutinįjį skaitmenį. program trizenklis;    var ket, s1, s2, s3, s4, rez: integer; {keturženklis sk., jo skaitmenys, rezultatas} begin    read (ket);    s1 := ket div 1000;    {pirmasis skaitmuo}    s2 := ket div 100 mod 10;   {antrasis skaitmuo}    s3 := ket div 10 mod 10;  {trečiasis skaitmuo}    s4 := ket mod 10;   {ketvirtasis skaitmuo}    rez := s1 * 100 + s2 * 10 + s3;    writeln (rez); end. 3 Pvz.: Pradinis duomuo - dviženklis natūralusis skaičius. Parašykite programą, kuri sukeistų skaitmenis vietomis (pvz., jei pradinis duomuo 15, tai rezultatas - 51). program dvizenklis;    var s, s1, s2, rez: integer; {dviženklis sk., jo skaitmenys, rezultatas} begin    read (s);    s1 := s div 10; {pirmasis skaitmuo}    s2 := s mod 10; {antrasis skaitmuo}    rez := s2 * 10 + s1;    writeln (rez); end. Loginiai duomenys Programuojant naudojami ne tik sveikųjų bei realiųjų skaičių, bet ir loginio tipo duomenis. Loginiai kintamieji gali įgyti tik dvi reikšmes: true (teisinga) ir false (neteisinga). Su jais galima atlikti logines operacijas: neigimą, sudėtį ir daugybą. Kintamieji, galintys įgyti logines reikšmes, aprašuose žymimi žodžiu boolean. Pvz.:  Pradiniai duomenys - trys skaičiai. Parašykite programą, patikrinti, ar tų skaičių suma dalijasi iš 5. Jei taip, atsakymas - true. program tikrinti;    var a, b, c: integer; r: boolean;       begin                       writeln ('Iveskite skaicius');          readln (a, b, c);         suma := a + b + c;           r := suma mod 5 = 0;            writeln (r);          readln;     end. Pasirinkimas: vienas iš dviejų veiksmų, vienas iš keleto veiksmų 1 Pvz.: Parašykite programą mažesniajam iš dviejų skaičių rasti. program mazesnis;    var a, b, min: real;       begin                       writeln ('Iveskite skaicius');          readln (a, b);            if a b          then if a 0 do {tikrina ar dar yra skaitmenų}           begin             skk := sk mod 10; {jauniausios skilties atskyrimas}              x := x *10 + skk;     {rezultato papildymas}             sk := sk div 10 {skilties atmetimas - atmetama po vieną skaitmenį}           end;        writeln (x)        readln     end. 2 Pvz.: (8 pratimas a. atvejis) x = 0, y = 10; 1) while 0

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!