Актуальність теми. Обґрунтування теми. Вызов процедуры является отдель

End.

Begin

Writeln

Else

Then

Begin

Begin

Else

Begin

Begin

Вызов процедуры является отдельным оператором.

ОПРЕДЕЛЕНИЕ И ИСПОЛЬЗОВАНИЕ ПОДПРОГРАММ ТИПА ПРОЦЕДУРА

В списке формальных параметров перечисляют имена переменных и указывают их типы.

Begin

операторы;

end;

С помощью параметров осуществляется передача входных данных в процедуру, а также передача результатов работы назад в вызывающую программу.

Параметры, которые указывают в заголовке подпрограммы при ее объявлении, называют формальными.

Различают:

ü параметры-аргументы (другой термин: параметр-значение) – входные данные для процедуры;

ü параметры-результаты (другой термин: параметр-переменные), через которые можно возвращать результаты работы процедуры в основную программу.

Перед списками параметров-результатов каждого типа должно стоять зарезервированное слово var.

Синтаксис вызова процедуры имеет вид:

имя_процедуры (список_фактических_параметров);

Параметры, которые указывают при вызове подпрограммы, называют фактическими параметрами. Типы данных в команде вызова не указывают. Параметры перечисляют через запятую.

Задача 2. Решить два квадратных уравнения. Уравнения невырожденные.

program Pract_procedure;

var a1, b1, c1, x11, x21:real;

ok1:boolean;

procedure EnterKoef(var a,b,c:real);

writeln('Enter koeficient yravnenia');

write('a=');readln(a);

write('b=');readln(b);

write('c=');readln(c);

writeln;

writeln('Yravnenie:');

writeln(a:4:1,'*x2+(',b:4:1,')*x+',c:4:1,')=0');

writeln;

end;

{ У процедуры SqRoot шесть параметров:

первые три предназначенных для передачи в процедуру входных данных – коэффициентов уравнения.

Параметры х1 и х2 используются для возвращения результата – корни решения; параметр оk служит для передачи информации о том, что решение существует. }

procedure SqRoot(a,b,c:real; var x1,x2:real;

var ok:boolean);

var d:real;

d:=sqr(b)-4*a*c;

if d<0 then ok:=false

ok:=true;

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

end;

end;

procedure Rezultat(x1,x2:real; ok:boolean);

if ok=true

writeln ('x1=',x1:4:1,' x2=',x2:4:1)

writeln('Net resheniya');

writeln;

end;

Задача 2. Решить два квадратных уравнения. Уравнения невырожденные.

EnterKoef(a1,b1,c1);

SqRoot(a1,b1,c1,x11,x21, ok1);

rezultat(x11,x21, ok1);

EnterKoef(a1,b1,c1);

SqRoot(a1,b1,c1,x11,x21, ok1);

rezultat(x11,x21, ok1);

Здоров’я – найбільший дар природи. Людина отримала від природи надзвичайно досконалий організм, прекрасної форми з універсальною стійкістю до труднощів життя – холоду і спеки, ран і отрут, страхів і нервових потрясінь, голоду та захворювань. З роками здоров’я все слабшає, а хвороб стає все більше. Кожна людина являє собою єдність двох протилежностей - здоров’я і захворювання. Стан здоров’я і стан хвороби можуть багаторазово переходити один в одний, причому в одних випадках цей перехід очевидний, в інших - прихований, і його можна виявити лише шляхом всебічного і глибокого обстеження організму.

2. Цілі лекції (мета):

- навчальні:

Зрозуміння студентами теоретичних основ і сучасних принципів охорони здоров’я, методів вивчення та оцінки стану здоров’я насе­лення у взаємозв’язку з чинниками, що на нього впливають,органі­зації діяльності закладів охорони здоров’я, методів аналізу та оцінки якості надання медичної допомоги населенню,технологій розробки управлінських рішень, спрямованих на поліпшення стану здоров’я населення та якості медичної допомоги.

- виховні:

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

Дата добавления: 2014-01-07