Задача 7.

Тема: Венотоники.

Литература:

• Виноградов В.М., Каткова Е.Б., Мухин Е.А. Фармакология с рецептурой: Учебник для фармацевтических училищ и колледжей, 3-е изд., испр. – СПб.: СпецЛит, 2004. – 804 с.: ил.
• Гаевый М.Д., Петров В.И., Гаевая Л.М., Давыдов В.С. Фармакология с рецептурой: учебник. – Изд. 7-е, исправ. и дополн. – М.: ИКЦ «МарТ»; Ростов н/Д: Издательский центр «МарТ», 2009. – 464с.
• Машковский М.Д. Лекарственные средства: 16 изд., перераб., испр. и доп. – М.: ООО «Издательство Новая волна», 2010. – 1216с.

 

Список использованной литературы:

1. Аляутдин Р.Н. Фармакология: Учебник. – 2-е изд., испр. – М: ГЭОТАР – МЕД, 2004. – 592с.: ил.

2. Зиганшин А.У. Избранные лекции по фармакологии и клинической фармакологии. – Казань, КГМУ, 2002.

3. Харкевич Д.А. Фармакология: Учебник. – 9-е изд., перераб., доп. и испр. – М: ГЭОТАР – Медиа, 2006. – 736с.: ил.

4. Lullman H., Mohr K., Hein L., Bieger D. Color Atlas of Pharmacology. - 3rd edition, revised and expanded. - Stuttgart · New York: Thieme, 2005. – 492p.

Лабораторная работа № 7.

Программирование алгоритмов циклической структуры

с неизвестным числом повторений.

 

При выполнении работы необходимо знать:

• Знать и уметь строить алгоритмы циклической структуры.
• Знать операторы цикла (смотри лаб. работу № 5).
• Уметь составить схему программы (алгоритм) циклической структуры для данной задачи и записать программу по готовому алгоритму.

Теоретический минимум:

При программировании алгоритмов циклической структуры с неизвестным числом повторений можно пользоваться оператором цикла while p do s; (с предусловием) или оператором цикла repeat s until p; (с постусловием).

Напомним синтаксис этих операторов на примере вычисления суммы ряда:

 

Цикл WHILE Цикл REPEAT

i:=2; S:=0; i:=2; S:=0;

While i<100 do repeat

begin S:=S+1/i;

S:=S+1/i; i:=i+1;

i:=i+1; until i>=100;

end;

Задача 7.

Вычислить приближенное значение числа с заданной точностью, если известно, что сумма ряда: приближается к значению при достаточно большом количестве членов ряда.

Математическая формулировка задачи:

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

Каждый член ряда вычисляется по формуле и помножается на -1, если n четное, и на +1, если n нечетное. Вычисления заканчиваются тогда, когда значение очередного члена ряда становится меньше, чем заданная точность вычислений.

Алгоритм задачи 7: Текст программы к задаче 7:

Program Ex_7;

Uses Crt;

Var

P: real; { сумма }

t: real; { точность }

el: real; { элемент ряда }

n: integer;

{ знаменатели дробей }

Begin

ClrScr;

P:=0;

n:=1;

el:=1;

write(‘ Задайте точность вычислений ’);

readln(t);

While el>=t do

Begin

el:=1/(2*n-1);

if (n mod 2)=0

then P:=P-el;

else P:=P+el;

n:=n+1;

End;

P:=P*4;

Writeln(‘Значение ПИ равно ’, P);

Readln;

End.