//Аритмии диагностика
Переменные: продолжительность, КуРС, зубцы_П, тахикардия, гемодинамика

БЛОК ВХОД
	продолжительность=0.0
	тахикардия=0.0
	гемодинамика=1.0
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 3сек)
	АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_ЧСС, 3 сек) 
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 1 мин)
	АКТИВИРОВАТЬ_БЛОК(ОБРАБОТКА_АД, 1мин)
	продолжительность=ВЫБОР("Продолжительность приступа более 30 сек?", "Да", 1, "Нет", 0)
	ЕСЛИ продолжительность==1 и ЧСС>=100 то
		КуРС=ВЫБОР("По данным ЭКГ оцените комплексы QRS.", "более 120 мс", 1, "менее 120 мс", 0)
		ЕСЛИ КуРС==1 то
			зубцы_П=ВЫБОР("Зубцы P по отношению к QRS", "не связаны, величины интервалов PQ различаются  более, чем на 15% за 1 минуту", 1, "не связаны, зубцы P не всегда предшествуют комплексам QRS", 2, "связаны", 0)
			ЕСЛИ зубцы_П>0 то
				ВЫЗОВ_ВРАЧА("Диагностирована устойчивая Желудочковая тахикардия.", 2 мин)
				тахикардия=1.0
			КОНЕЦ_ЕСЛИ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ САД<90 то 
		гемодинамика=0.0
	иначе
		гемодинамика=ВЫБОР("Оцените гемодинамику.", "Гемодинамика стабильна", 1, "систолическое АД снизилось более чем на 30 мм.рт.ст.", 0)
	КОНЕЦ_ЕСЛИ 
	
	//ЕСЛИ гемодинамика==0 то
	//	ВЫЗОВ_ВРАЧА("Гемодинамика нестабильна.", 2мин)
	//иначе
	//	ВЫЗОВ_ВРАЧА("Гемодинамика стабильна.", 2мин)
	//КОНЕЦ_ЕСЛИ
	ЕСЛИ тахикардия==1 то
		тахикардия=ВЫБОР("По данным ЭКГ уточните:", "ширина QRS стабильна, отличия от среднего на 20 мс", 1, "нестабильная ширина QRS с изменением электрической оси сердца на 180 градусов", 3, "нестабильная ширина QS без изменения электрической оси сердца на 180 градусов", 2)
		ЕСЛИ тахикардия==1 то
			ВЫЗОВ_ВРАЧА("Диагностирована мономорфная Желудочковая тахикардия, начните лечение.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ тахикардия==2 то
			ВЫЗОВ_ВРАЧА("Диагностирована полиморфная Желудочковая тахикардия, начните лечение.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
		ЕСЛИ тахикардия==3 то
			ВЫЗОВ_ВРАЧА("Диагностирована Желудочковая тахикардия torsades de pointes, начните лечение.", 2мин)
			ОСТАНОВИТЬ_АЛГОРИТМ
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ВЫЗОВ_ВРАЧА("Желудочковая тахикардия отсутствует.", 2мин)
	ОСТАНОВИТЬ_АЛГОРИТМ
КОНЕЦ_БЛОКА

//========================
БЛОК ОБРАБОТКА_АД()    
	ЕСЛИ СРАД<=55 то  
		ВЫЗОВ_ВРАЧА("Критически низкое среднее АД (СРАД). Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ  // СДЕЛАТЬ ВЫХОД СРАЗУ ИЗ ВСЕХ НИТЕЙ!!!
	КОНЕЦ_ЕСЛИ
	ЕСЛИ СРАД>=120 то  
		ВЫЗОВ_ВРАЧА("Критически высокое среднее АД (СРАД). Завершение работы алгоритма.", 10мин)
		ОСТАНОВИТЬ_АЛГОРИТМ  // СДЕЛАТЬ ВЫХОД СРАЗУ ИЗ ВСЕХ НИТЕЙ!!!
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА
//=========================
БЛОК ОБРАБОТКА_ЧСС()
	ЕСЛИ ЧСС >= 220 то  
		ВЫЗОВ_ВРАЧА("Критически высокая ЧСС (ЧСС). Начать алгоритм сердечно-лёгочной реанимации", 20 мин)
	КОНЕЦ_ЕСЛИ
	ЕСЛИ ЧСС <= 50 то  
		ВЫЗОВ_ВРАЧА("Критически низкая ЧСС (ЧСС). Начать алгоритм брадикардии.", 20 мин)
		СПАТЬ(5 мин)
	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА