Головна

АТЕРОСКЛЕРОЗ

  1.  КЛІНІКО-МОРФОЛОГІЧНІ ФОРМИ АТЕРОСКЛЕРОЗУ

Приклад 1. Створити файл f.dat з цілих чисел. Переписати в файл g.dat з файлу f.dat негативні елементи.

Перша програма створює файл f.dat.

program lab10_1;

uses CRT;

var f : File of integer;

i, n, x : Integer;

begin clrscr;

assign {f, 'F.dat');

rewrite (f);

writeln ('введіть число елементів у файлі');

readln (n);

for i : = 1 to n do

begin

writeln ('введіть значення', i, '-го Елемента');

readln (x);

write (f, x)

end;

close (f)

end.

Наступна програма буде читати елементи файлу f.dat, вибирати тільки ті елементи, значення яких негативні, переписувати їх у файл g.dat. Виводити елементи файлу g.dat на екран ПК.

program lab10_11;

uses CRT;

var f, g: File of integer;

i, x: Integer;

begin clrscr;

assign {f, 'F.dat');

reset (f);

assign {g, 'G.dat');

rewrite (g);

while not eof (f) do

begin

read (f, x);

if x<0 then write (g, x)

end;

{Висновок елементів файлу g.dat на екран}

reset (g);

while not eof (g) do

begin

read (g, x);

writeln (x)

end;

close (f);

close (g)

end.

Приклад 2. Вміст файлу f.dat не змінилося. Замінити елементи даного файлу з негативними значеннями на -1. Інші елементи залишити без зміни.

program lab10_2;

uses СRT;

var f: File of integer;

 i, x: Integer;

begin clrscr;

assign (f, 'F.dat');

reset (f);

while not eof (f) do

begin

read (f, x);

if x<0 then

begin

x : = -1;

seek (f, Filepos (f) -1);

write (f, x)

end

end;

{Висновок елементів файлу f.dat на екран}

reset (f);

while not eof (f) do

begin

read (f, x);

writeln (x)

end;

close (f)

end.

Приклад 3. На диску в файлі з ім'ям FV розміщені вектора, кожен з яких містить по 8 дійсних елементів. Обчислити максимальні значення для кожного з векторів, записати їх в файл GM і вивести на екран ПК.

program file12;

type vect = array [1..8] of real;

fil1 = file of vect;

fil2 = file of real;

var a: Vect;

i: Integer;

 аmax, b: Real;

 f1: Fil1;

 f2: Fil2;

begin clrscr;

assign (f1, 'FV.DAT');

assign (f2, 'GM.DAT');

reset (f1 );

rewrite (f2 );

while not eof (f1 ) do

begin

read (f1, a); amax : = a[1];

for i : = 1 to 8 do

if a[i]> amax then amax : = a[i];

write (f2, amax );

end;

close (f2 );

reset (f2 );

while not eof (f2 ) do

begin read (f2, B);

writeln (b : 7: 2)

end;

close (f1);

close (f2);

end.


ЗМІСТ

 Тема 1.  Основи побудови программи.Вичісленіе значення аріфметіческоговираженія  
 Тема 2.  Логічні вирази. умовний оператор
 Тема 3.  Використання циклічних структур. Оператори циклу з передумовою і з умовою поста.
 Тема 4.  Використання циклічних структур.Оператор циклу з параметром.
 Тема 5.  Використання і обробка одномерногомассіва.
 Тема 6.  Використання і обробка двумерногомассіва.
 Тема 7.  Організація програм з використанням функцій.
 Тема 8.  Організація програм з іспользованіемпроцедур.
 Тема 9.  Текстові файли.
 Тема 10.  Робота з комбінованими типами даних (записами)
 Тема 11.  Типізовані файли.

Редактор Н. Н. Калініна

Вид. осіб. ВД №02558 від 18.08.2000 р

Підписано до друку 2010 Формат 60 * 84 1/16

Папір офсетний. Обсяг п. Л. Уч.-вид. л.

Тираж 350 прим. замовлення

Редакційно-видавничий відділ СПбГУКіТ

192102. Санкт-Петербург, вул. Бухарестська, 22

Підрозділ оперативної поліграфії СПбГУКіТ

192102. Санкт-Петербург, вул. Бухарестська, 22

АТЕРОСКЛЕРОЗ

визначення. атеросклероз (атеро - кашка, склероз - ущільнення) - Хронічне захворювання, що виникає при порушенні білково-ліпідного обміну. При атеросклерозі відбувається відкладення в стінках великих артерій (аорта, мозкові, ниркові, коронарні артерії, артерії нижніх кінцівок) белов і ліпідів і розростання сполучної тканини (склероз).

Етіологія. Виділяють фактори ризику по атеросклерозу:

1. Гіперхолестеринемія (високий вміст холестерину в крові),

2. Ожиріння,

3. Високе АТ,

4. Куріння,

5. Цукровий діабет,

6. Малорухливий спосіб життя,

7. Стрес.

теорії атеросклерозу:

1. Аліментарна (передбачає, що атеросклероз пов'язаний з неправильним харчуванням),

2. Нервова (вважає, що до хвороби ведуть стреси),

3. Вікова (ця теорія пояснює розвиток хвороби віковими змінами).

Морфогенез. При атеросклерозі внутрішня оболонка артерій стає горбистої за рахунок щільних атеросклеротичних бляшок, які звужують просвіт судини.

Макроскопічні стадії:

1. Жирові плями,

2. Фіброзні бляшки,

3. Стадія ускладнень (атероматоз, виразка, крововилив, тромбоз),

4. Атерокальциноз.

жирові плями - Це ділянки жовтого кольору на внутрішній оболонці артерій (інтиму), які не виступають в просвіт судини.

фіброзні бляшки - Щільні, круглі, білі освіти, які виступають в просвіт судини. За рахунок бляшок внутрішня поверхня нерівна, просвіт судини звужений (стенозирующий атеросклероз).

стадія ускладнень - Починається з розпаду і розм'якшення центральній частині атеросклеротичної бляшки з появою в ній атероматозні детриту (Кашіцообразние маси) - це атероматозні бляшка. атероматозний детрит бляшки відділений від просвіту судини покришкою зі сполучної тканини. Руйнування покришки бляшки або виразка призводить до утворення атероматозной виразки, Крововиливів в бляшку, тромбозу на місці атероматозной виразки. З цією стадією пов'язані:

- гостра закупорка артерій тромбо або емболом і розвиток інфаркту,

- освіту аневризми,

- кровотеча.

Атерокальциноз - Остання стадія, що характеризується відкладенням солей кальцію (петрифікація) в бляшку. Бляшки мають щільність каменю.

Мікроскопічні стадії:

1. доліпідна стадія,

2. ліпідоз,

3. ліпосклероз,

4. атероматоз,

5. виразка,

6. атерокальциноз.

Доліпіднастадія характеризується підвищенням проникності інтими артерії і розвитком в ній мукоїдного набухання. Макро - змін немає.

ліпідоз- Відбувається відкладення в інтимі ліпідів, холестерину, що веде на Макропрепарат до утворення жирових плям. Ліпіди відкладаються дифузно і в клітинах (ксантомні або жовті клітини).

ліпосклероз- Характеризується розростанням сполучної тканини в ділянках відкладення білків, ліпідів і холестерину, що на макропрепарате призводить до фіброзної бляшці.

атероматоз- Розпад центральній частині бляшки і освіту атероматозні детриту(Кашкоподібна маса), який відмежований покришкою бляшки. При атероматозі може бути крововилив в бляшку. Макро - стадія ускладнень.

виразка- Руйнування покришки бляшки і освіту атероматозной виразки, Де часто виникають тромби. Макро - стадія ускладнень.

Атерокальциноз- Остання стадія з відкладенням солей кальцію.




 гастриту |  Морфогенез виразки. |  АПЕНДИЦИТ |  гепатоз |  ГЕПАТИТИ |  Класифікація. |  Реді повітряно-крапельних інфекцій розглядаються дифтерія, скарлатина, менінгококова інфекція. |  Пошкодження нирок токсином може завершитися некротическим нефрозом і гострою нирковою недостатністю. |  Порушення функції. |  Проліферативне (продуктивне). |

© 2016-2022  um.co.ua - учбові матеріали та реферати