Вводятся 3 квадратные вещественные матрицы а, размерностью n< =20, b, размерностью m< =25 и c, размерностью k< =30. сдвинуть циклически на 3 позиции вправо ту матрицу, в которой наибольшая сумма элементов строк (т.е. нужно посчитать в каждой матрице сумму элементов в каждой строке и сравнить между собой) находится в последней строке. если есть гении напишите код(желательно в паскале). надо делать с процедур
const
nDay:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
type
Date=record
Day,Month,Year:integer
end;
function DOW(Dat:Date):integer;
// день недели по дате. 0-Вс. 1-Пн, 7-Сб
var
a,y,m:integer;
begin
With Dat do begin
a:=(14 - month) div 12;
y:=Year-a;
m:=month+12*a-2;
DOW:=(7000+(day+y+y div 4-y div 100+y div 400+(31*m) div 12)) mod 7
end
end;
procedure DMY2Date(d,m,y:integer; var data:Date);
// Преобразует к дате заданные день, месяц и год
begin
data.Day:=d; data.Month:=m; data.Year:=y
end;
procedure LastDays(month,year:integer; var Wd,Fr:Date);
// даты последней среды (Wd) и пятницы (Fr) для месяца в году }
var
LastDay:Date;
n:integer;
begin
n:=nDay[month];
if (month=2) and (year mod 4 = 0) then Inc(n);
DMY2Date(n,month,year,LastDay);
n:=DOW(LastDay); // номер последнего дня недели
Wd.Month:=month; Wd.Year:=year;
if n<3 then Wd.Day:=LastDay.Day-(n+4)
else
if n=3 then Wd.Day:=LastDay.Day
else Wd.Day:=LastDay.Day+3-n;
Fr.Month:=month; Fr.Year:=year;
if n<5 then Fr.Day:=LastDay.Day-(n+2)
else
if n=3 then Fr.Day:=LastDay.Day
else Fr.Day:=LastDay.Day-1
end;
var
Wd,Fr:Date;
ff,mf:Text;
m:integer;
begin
Assign(ff,'father.txt'); Rewrite(ff);
Assign(mf,'mother.txt'); Rewrite(mf);
// Сентябрь-декабрь 2015 года
for m:=9 to 12 do begin
LastDays(m,2015,Wd,Fr);
if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2015 - 1 класс')
else Writeln(ff,Wd.Day,'.',m,'.2015 - 1 класс');
if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2015 - 5 класс')
else Writeln(ff,Fr.Day,'.',m,'.2015 - 5 класс')
end;
// Январь - май 2016 года
for m:=1 to 5 do begin
LastDays(m,2016,Wd,Fr);
if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2016 - 1 класс')
else Writeln(ff,Wd.Day,'.',m,'.2016 - 1 класс');
if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2016 - 5 класс')
else Writeln(ff,Fr.Day,'.',m,'.2016 - 5 класс')
end;
Close(ff); Close(mf)
end.
Содержимое выходных файлов:
father.txt
30.9.2015 - 1 класс
28.10.2015 - 1 класс
30.10.2015 - 5 класс
30.12.2015 - 1 класс
24.2.2016 - 1 класс
26.2.2016 - 5 класс
30.3.2016 - 1 класс
mother.txt
25.9.2015 - 5 класс
25.11.2015 - 1 класс
27.11.2015 - 5 класс
25.12.2015 - 5 класс
27.1.2016 - 1 класс
29.1.2016 - 5 класс
25.3.2016 - 5 класс
27.4.2016 - 1 класс
29.4.2016 - 5 класс
25.5.2016 - 1 класс
27.5.2016 - 5 класс
Электромагнитті сәулелердің адам ағзасына әсері
Жаңа білім
Электромагнит өрісі – материяның ерекше түрі және оның көмегімен электрлік зарядталған бөлшектер өзара әрекетке түседі. Жұмыс істеп тұрған электр құрылғылар молекула, электрондар мен иондарды, атомдарды қозғалысқа әкеледі. Адамның жасушалары да молекулалардан тұратынын ескерсек, күшті электрмагнит ағзада жасуша молекулаларының тербелісін, қозғалысын тудырады. Осындай қозғалыс ағза жасушаларының жағымсыз өзгерістеріне алып келеді.
Біз күнделікті өмірде қолданатын электр құралдардың денсаулығымызға қаншалықты зиян келтіретінін кейде білмей де қаламыз. Электромагниттік толқындар кез келген үйде, мекемеде жалпы адам өмір сүретін барлық ортада бар. Электромагниттік толқындарды тұрғын үйдің теледидарында, үтікте, мұздатқышта, микротолқынды пеште, шаңсорғышта, компьютерде, ұялы телефонда да болады.
Электромагниттік өрістер барлық тіршілік көздеріне, оның ішінде адам ағзасына өте үлкен зардап тигізеді. Биологиялық және медициналық зерттеу нәтижелері көрсеткендей, электромагниттік өрістердің адамның жүйке жүйесіне, ішкі мүшелеріне, физиологиялық дамуына тигізетін теріс зардаптары анықталған. Сонымен қатар, кейінгі кезде шетел мамандарымен бірігіп өткізілген зерттеулер нәтижелеріне сүйенетін болсақ, онда электромагниттік өрістердің әсерінен жүздеген ауру түрлерінің жаппай таралуы анықталып, қалаларда өзіне қол жұмсау фактілері көптеп тіркелген. Себебі, электромагниттік өрістер адамның ми құрылысына өте қатты әсер ете отырып, дұрыс ойлау, есте сақтау қабілетін бұзады. Электр құрылғыларының электромагниттік сәуле шығарудың өзіндік қалыптасқан нормалары бар (1-кесте).
1-кесте. Электромагниттік сәуле шығару нормасы
Компьютердің электромагниттік толқындарының адам ағзасына тигізер әсері өте көп.
Негізінен, компьютердің алдында отырып, жұмыс істейтіндердің шағымданатын сырқат белгілері екі топқа бөлінеді:
Көздің көру қабілетінің нашарлауы.
Бастың желке тұсының (қарақұсының), мойын мен иық, жауырын, білектің ауыруы. Көру қабілетінің нашарлауы, оның бұлдырлап, анық көрмеуі, көзіне түскен салмақтан күйген тәрізді ашып, қызаруы. Мамандар оны компьютерлік көру қабілетінің синдромы деп атайды. Дәрігерлердің айтуынша, компьютерлік көру қабілетінің синдромдары уақытша рефракцияның нашарлауына немесе күшеюіне, аккомодация көлемінің кішіреюіне, қарама-қарсылық сезімталдығының, сезіну қабілетінің әлсіреуіне әкеліп соқтырады.
Компьютерден таралатын электромагниттік толқынның адам ағзасына залалы, тигізетін зиянды факторлары мынадай:
көздің көру қабілетін төмендетеді;
омыртқаның қисаюына әкеледі;
жүйкеге салмақ түсіреді;
адам тез шаршап, денені әлсіздік басады;
иммунитет төмендейді, адам көп отырған кезде қан айналымы бәсеңдейді.
Осындай ауруларға шалдыққың келмесе, компьютердің алдында көп отырмауға тырыс, ал егер жұмыс бабымен талап етілсе, арнайы ережелерді сақтап, жаттығу жасап отыру қажет. Өз денсаулығыңа көп көңіл бөлгенің жөн.
Тағы да осы тақырып бойынша Басқа іс-әрекеттер
Компьютер экранының электромагниттік сәулеленуінің әсері
Жұмыс iстеуге отырғанда, сағат сайын демалыс ұйымдастырып, жаттығулар жасап отыру керек. Ноутбукты тiзе үстiне алып отыруға болмайды. Күштi радиация тарайтындықтан, бедеу болып қалу қаупi бар. Компьютерде, ноутбукта отырғанда, көзге қорғаныс көзiлдiрiгiн кию қажет. Мысалы, суға түсiп келгеннен кейiн компьютердiң алдында отыру радиацияны қабылдау мөлшерiн азайтады екен. Компьютер, ноутбук сатып аларда «S» белгiсiнің бар-жоғына қарау керек. Бұл белгi – компьютерде, ноутбукта радиацияға қарсы қорғаныстың бар екенiнiң дәлелi. Есіңде болсын, компьютердiң жанына немесе артына отыруға болмайды, оның радиацияны ең көп тарататын бөлiгi – сол тұстары.
Компьютердi орналастырғанда, артқы жағын терезеге немесе қабырға жаққа қаратқан жөн, одан таралған радиация сыртқа кетедi. Компьютерден, ноутбуктан жылы бу шығады, оның әсерiнен адам ағзасындағы кальций мөлшерi азаяды. Соның салдарынан тырнақ – сынғыш, шаш – түскiш келедi. Компьютер, ноутбук, теледидар және басқа да тұрмыстық заттар орналасқан бөлмелерде мүмкiндiгiнше пластик терезелерге қарағанда ағаш терезелер болғаны дұрыс. Себебi, бөлмедегi радиацияны пластик терезе сыртқа шығармай, тосқауыл болады.
Объяснение: