Стесненная позаВторым по вредности фактором, влияющим на здоровье при работе с компьютером, является стесненная поза. Сидя за компьютером, ребенок (или взрослый) должен смотреть с определенного расстояния на экран и одновременно держать руки на клавиатуре или органах управления. Это вынуждает его тело принять определенное положение, и не изменять его до конца работы. В этом отношении компьютер гораздо опаснее телевизора, который позволяет свободно двигаться. Из-за стесненной позы возникают следующие нарушения:2.1.Затрудненное дыхание. Это самый коварный из всех врагов. Вынесенные вперед локти не дают свободно двигаться грудной клетке, и это приводит к астме, развитию приступов кашля и иным проявлениям.2.2. Боли в мышцах спины, шеи и головные боли. Человеческое тело не при для того, чтобы проводить долгие часы в фиксированном положении. Длительные периоды неподвижности снижают приток крови к мышцам, что приводит к накоплению продуктов метаболизма, раздражающих нервы задействованных мышц. Если этот застой случается в мышцах плеч, спины или шеи, может возникнуть головная боль, поскольку мышцы передают “сигналы дискомфорта” нервам чувствительных тканей лица, головы и кожи черепа. 2.3.Остеохондроз. При длительном сидении с опущенными плечами возникает стойкое изменение костно-мышечной системы. Иногда возникает искривление позвоночника.2.4.Заболевания суставов кистей рук. Это профессиональное заболевание, ранее преследовавшее машинисток в редакциях, а ныне – операторов компьютеров. При работе за компьютером рука человека вынуждена совершать множество мелких движений, сильно устает, а при длительной работе развиваются хронические заболевания.
Чтобы не загромождать программу, предполагаем без поверки, что x2>x1 и dx>0. Либо, x2<x1 и dx<0. В любых иных вариантах программа зациклится.
В приведенной программе описана функция для подвопроса а); прочие варианты закомментированы. Для получения других вариантов достаточно закомментировать строку y:=2*x; и снять комментарий с нужной строки.
function f(x:real):real; begin f:=2*x; { f:=x/3+9; f:=x-4; f:=x/8-6; } end;
var x,x1,x2,dx,y:real; begin Writeln('Введите начальное значение, шаг табуляции, конечное значение'); Read(x1,dx,x2); x:=x1; repeat y:=f(x); Writeln('x=',x,', y=',y); x:=x+dx until x>x2+dx/2 { +dx/2 - это защита от накопления погрешности } end.
Сомневающиеся в пользе "довеска" dx/2 в последней формуле, могут попробовать выполнить этот же контрольный пример, изменив предпоследнюю строку на более привычное until x>x2. И убедиться, что решение для х=3.3 пропадет.
