Этиология. UNTIL <условие_выхода>;

<операторN>;

UNTIL <условие_выхода>;;

REPEAT – «повторять до тех пор»;

UNTIL – «пока не будет выполнено условие».

(PEREAT и UNTIL – зарезервированные слова).

 

<оператор1>...<операторN> - любой оператор ТР

<условие выхода> - выражение логического типа.

 

При истинности значения логического выражения <условие_выхода> выполняется выход из цикла. В данном операторе ключевые слова REPEAT и UNTIL выполняют роль операторных скобок, поэтому точку с запятой перед словом UNTIL не ставят.

Оператор цикла REPEAT отличается от WHILE

во-первых:

здесь условие проверяется после выполнения тела цикла. Иными словами, гарантируется хотя бы однократное его выполнение;

во-вторых:

оператор REPEAT выполняется до тех пор, пока условие равно false, и управление передаётся следующему (за repeat ) оператору, когда условие становится равным true (для оператора while имеет место обратная зависимость).

 

Пример фрагмента программной реализации вычисления значения Y=1+1/2+1/3..+1/N при использовании оператора цикла с постусловием.

.

.

begin

Y:=0;

i:=1;

Repeat

Y:=Y+1/i;

i:=i+1

until i>N;

end.

 

Пример:

Вычислить сумму с точностью E=0.00001

Y=1+x/3+x²/5+x³/7+…+xⁿ/(2n+1)+…

где |x|<1,

т.е. когда очередное слагаемое будет меньше E, мы заканчиваем вычисление.

-------------------------------------------------------------------

Program l5_4;

const e=0.00001;

label M;

var

i, n: byte;

x, y, r: real;

begin

M: writeln('введите x');

read(x);

if abs(x)>=1 then goto M;

y:=1;

n:=1;

repeat

r:=1; {расчёт x в степени n}

for i:=1 to n do { ---\\--- }

r:=r*x; { ---\\--- }

y:=y+r/(2*n+1); {расчёт суммы, к итогу добавляется новое слагаемое}

n:=n+1 {переход к следующему слагаемому}

until(r/(2*n+1))<e;

writeln('y=',y:7:5);

end.

-------------------------------------------------------------------

Ответ:

введите x

0.5

y=1.24644

введите x

введите x

0.9

y=1.91674

--------------------------------------------------------------------

Или эта же задача, но без r

 

Program l5_4;

const e=0.00001;

label M;

var

i, n: byte;

x, y: real;

begin

M: writeln('введите x');

read(x);

if abs(x)>=1 then goto M;

y:=1;

n:=1;

repeat

y:=y+exp(n*ln(x))/(2*n+1); {расчёт суммы, к итогу добавляется новое слагаемое}

n:=n+1 {переход к следующему слагаемому}

until(exp(n*ln(x))/(2*n+1))<e;

writeln('y=',y:7:5);

end.

--------------------------------------------------------------------------

Ответ: тот же

 

 

АТЕРОСКЛЕРОЗ. ГИПЕРТОНИЧЕСКАЯ БОЛЕЗНЬ. ИБС

 

АТС – название от 2 слов:

- atheros – кашица,

- sclerosis – уплотнение за счет разрастания СТк

Название хорошо отражает сущность заб-ния,

п.ч. в основе АТС –

- накопление липидов с образованием некроза (кашицы) +

- разрастание СТк (склероз)

 

Этиология

Как таковая не известна, но представление о ней дает изучение факторов риска развития АТС:

v возраст –

- чем старше человек, тем > вероятность развития АТС, п.ч. снижаются

- репродуктивная ф-ция

- двигательная активность

- новообразование тканей

- синтез мембран

Ø т.е. те процессы, при которых расходуются липиды

Ø липиды накапливаются в крови, особенно ЛПНП и ЛПОНП

 

v генетические факторы –

- предрасполагают, поэтому

- у нек-рых гомозигот АТС

- м.б. в молодом возрасте

 

v нарушение обмена в-в с повышением в крови холестерина вследствие

Ø экзогенных ф-ров:

- диета, богатая холестерином

Ø эндогенных ф-ров:

- изменение гормонального статуса

- СД – гиперхолестеринемия

 

- гипертония

- ГБ

- вторичные гипертензии

Аничков в начале ХХ века в экспериментальной модели на кроликах доказал роль повышения уровня ХС в сочетании с ГТ в развитии АТС

 

- курение

- токсические агенты

- инфекционные агенты

- микоплазменнная

- вирусная

- хламидийная

- – все повреждают эндотелий

- иммунные механизмы – гипотетически

 

Отсюда – меры профилактики:

- возраст – изменить нельзя, НО:

- нормализация уровня ХС

- снижение АД

- отказ от курения

- диета

- адекватная физическая нагрузка

- лечение хламидиоза

 

ИТОГ – снижение частоты АТС и риска развития смертельных ОСЛ АТС с 50% до 20-25%