Шін (a,b), (a,c), (a,d) жптарыны ЕОБ-тері аныталсын.

39. NOD2 функциясын пайдалана отырып (38-есеп), a/b блшегін асартылмайтын p/q блшегіне трлендіретін Frac1(a,b,p,q) функциясын сипаттау керек (a,b – ену параметрлері, p,q – шыу параметрлері, барлыы бтін типті). Нтижелік p/q блшегіні табасы оны алымына тіркеледі, (яни q>0). Frac1 функциясын олданып, мндері берілген бтін a,b,c,d,e,f,g,h шін a/b+c/d, a/b+e/f, a/b+g/h рнектеріне те ысартылмайтын блшектер табылсын.

40. a жне b бтін сандарыны е кіші орта еселігі (ЕКОЕ) келесі формула кмегімен аныталатынын ескере отырып жне 38-есептегі NOD2 функциясын олдана отырып, a жне b бтін сандарыны е кіші орта еселігін табатын NOK2(a,b) бтін функциясын сипаттау керек. Сипатталан функция кмегімен мндері берілген бтін a,b,c,d сандары шін (a,b), (a,c), (a,d) жптарыны ЕКОЕ-тері аныталсын.

41. ЕОБ(a,b,c)= ЕОБ(ЕОБ(a,b),c) атынасын жне 38-есептегі NOD2 функциясын олдана отырып, a, b жне с бтін о сандарыны е лкен орта блгішін табатын NOD3(a,b,c) бтін функциясын сипаттау керек. Осы функцияны олданып, мндері берілген a,b,c,d шамалары шін (a,b,c), (a,c,d), (b,c,d) штіктеріні ЕОБ-рі аныталсын.

42. Секундпен берілген t уаыты бойынша ондаы саат (h), минут (m) жне секунд (s) клемін анытайтын TimeToHMS(t,h,m,s) процедурасын сипаттау керек (t – ену параметрі, h,m,s – рі ену, рі шыу параметрлері, барлыы о бтін сандар). Осы процедураны пайдаланып, t1,t2,…,t5 уаыт аралыындаы саат (h), минут (m) жне секунд (s) клемі аныталсын.

43. Саат (h), минут (m) жне секунд (s) арылы берілген уаытты t секунда арттыратын IncTime(h,m,s,t) процедурасын сипаттау керек (t – ену параметрі, h,m,s – рі ену, рі шыу параметрлері, барлыы о бтін сандар). Бтін t шамасы жне андай да бір уаыт аралыы саат (h), минут (m) жне секунд (s) арылы берілген. IncTime процедурасыны кмегімен берілген уаыт t секунда арттырылсын жне h,m,s-ті жаа мндері шыарылсын.

44. О бтін y саны кібісе жыла сйкес келсе (апанда 29 кн болса) – TRUE, йтпесе – FALSE мнін айтаратын логикалы IsLeapYear(y) функциясын сипаттау керек. у параметріні бес мні шін IsLeapYear функциясы орындалсын. Кібісе жылды белгісі – 4-ке алдысыз блінеді (100-ге блінетін жне 400-ге блінбейтіндерінен басасы).

45. IsLeapYear функциясын пайдаланып (44-есеп), у-ші жылды m-ші айындаы кндер санын анытайтын бтін MonthDays(m,y) функциясын сипаттау керек (1m12, y>0). Берілген у жылы мен m1,m2,m3 айлары шін MonthDays функциясыны мндері табылсын.

46. MonthDays функциясын пайдаланып (45-есеп), кн (d), ай (m) жне жылды (y) амтитын дрыс млімет бойынша осы кннен алдыы кнді анытайтын PrevDate(d,m,y) процедурасын сипаттау керек (d,m,y – рі ену, рі шыу параметрлері, барлыы бтін типті). Сипатталан процедура ш кнге олданылсын жне оларды алдындаы кндер шыарылсын.

47. MonthDays функциясын пайдаланып (45-есеп), кн (d), ай (m) жне жылды (y) амтитын дрыс млімет бойынша осы кннен кейінгі кнді анытайтын NextDate(d,m,y) процедурасын сипаттау керек (d,m,y – рі ену, рі шыу параметрлері, барлыы бтін типті). Сипатталан процедура ш кнге олданылсын жне олардан кейінгі кндер шыарылсын.

48. штарыны координаттары арылы берілген АВ кесіндісіні зындыын анытайтын наты типті Leng(xa,ya,xb,yb) функциясын сипаттау керек (xa,ya,xb,yb – наты параметрлер). Кесінді зындыы келесі формула кмегімен аныталады: . Егер A,B,C,D нктелеріні координаттары берілген болса, онда AB, АC, АD кесінділеріні зындытары аныталсын.

49. Leng функциясын пайдаланып (48-есеп), тбелеріні координаттары арылы берілген АВС шбрышыны периметрін есептейтін наты типті Perim(xa,ya,xb,yb,xc,yc) функциясын сипаттау керек (xa,ya,xb,yb,xc,yc – наты параметрлер). Егер A,B,C,D нктелеріні координаттары берілген болса, онда ABC, АCD, АBD шбрыштарыны периметрі аныталсын.

50. Leng жне Perim функцияларын пайдаланып (48 жне 49-есептер), тбелеріні координаттары арылы берілген АВС шбрышыны ауданын есептейтін наты типті Area(xa,ya,xb,yb,xc,yc) функциясын сипаттау керек (xa,ya,xb,yb,xc,yc – наты параметрлер). шбрыш ауданы келесі формула арылы аныталады:

,

мндаы р – жарты периметр. Егер A,B,C,D нктелеріні координаттары

берілген болса, онда ABC, АCD, АBD шбрыштарыны ауданы аны-

талсын.