Задать циклы для решения : формирует массив е из 162 случайных чисел принадлежащих промежутку[15: 30]. параметром цикла является переменная x. нумерация начинается с 1.
Var x: byte; e: array [1..162] of integer; begin for x: =1 to 162 do e[x]: =random(15,30); end.
Vrezh
05.07.2020
Qbasic: declare function l# (x1#, y1#, x2#, y2#) declare function s3# (x1#, y1#, x2#, y2#, x3#, y3#) cls input "координаты точки а через запятую: ", ax#, ay# input "координаты точки b через запятую: ", bx#, by# input "координаты точки c через запятую: ", cx#, cy# input "координаты точки m через запятую: ", mx#, my# s# = s3#(ax#, ay#, bx#, by#, cx#, cy#) sab# = s3#(ax#, ay#, bx#, by#, mx#, my#) sbc# = s3#(bx#, by#, cx#, cy#, mx#, my#) sca# = s3#(cx#, cy#, ax#, ay#, mx#, my#) eps# = s# - (sab# + sbc# + sca#) eps% = int(eps# * 10000) / 10000 if eps% = 0 then print "внутри" else print "не внутри" end function l# (x1#, y1#, x2#, y2#) l# = sqr((x2# - x1#) ^ 2 + (y2# - y1#) ^ 2) end function function s3# (x1#, y1#, x2#, y2#, x3#, y3#) a# = l#(x1#, y1#, x2#, y2#) b# = l#(x2#, y2#, x3#, y3#) c# = l#(x3#, y3#, x1#, y1#) p# = (a# + b# + c#) / 2 s3# = sqr(p# * (p# - a#) * (p# - b#) * (p# - c#)) end function тестовое решение: координаты точки а через запятую: 2,1 координаты точки b через запятую: 15,10 координаты точки c через запятую: 12,4 координаты точки m через запятую: 9,5 внутри
sirenashop25
05.07.2020
Азия является самым большим континентом в современном мире с территорией около 45 млн. кв. км и населением более 3 млрд. человек. на материке около 50 независимых государств. до недавнего времени азия являлась одним из самых нестабильных регионов в современном мире. за весь бурный xx в. здесь прогремело немало войн, произошли десятки революций, военных переворотов, восстаний, путчей.в политическом отношении страны азии составляют сложный комплекс демократических и авторитарных режимов. в большинстве развивающихся государств азии до недавнего времени господствовали авторитарные режимы. власть опиралась на три основных политических института: государство, унаследованное от колонизаторов и осуществляющее жесткое централизованное обществом; однопартийную систему (в большинстве случаев единственная партия создавалась сверху национальными лидерами для получения общественной поддержки); армию, которая в результате частых военных переворотов устанавливала власть армейских кругов и отстраняла от руководства гражданских лидеров. в дальнейшем в ряде государств началось движение в направлении утверждения принципов демократического устройства. этому способствовали общемировые тенденции политического развития.