//Общая диагностика
Переменные: ДИАГН, ЗНАЧ, МАССА, РОСТ, ЭКГ, ПОЛ, ИД_МАССА, ДИУРЕЗ, ВРЕМЕНИ_ПРОШЛО, ДОЗА_НИТРО, \
            ДОЗА_НОРА, НИВЛ_подключен=0.0, Инсуфляция=0, \
            счетчик_нитро=0, счетчик_нора=0, сч_таймер=0,прежнее_АД=0, \
            КОЭФФ_ФУРОСЕМИД=0.1, \
            КОЭФФ_НИТРО=0.05,  \
            КОЭФФ_НОРА=0.2,  \
            ИНФ_НОМЕР_НИТРО, ИНФ_НОМЕР_НОРА, ПикСкоростьВыдоха, Лейкоцитоз, ГлюкозаКрови, \
            Использ=0,Исп[20]={0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0}, к

БЛОК ВХОД 
	//установка интервалов измерения переменных параметров (стандартных //переменных)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧСС, 10сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ЧДД, 10сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(ТЕМП, 10сек)
	УСТАНОВИТЬ_ИНТЕРВАЛ(АД, 5мин)
	УСТАНОВИТЬ_ИНТЕРВАЛ(СПО2, 10сек) 
        ПОКА (Истина)
        Использ=истина
        ДИАГН = -1  
        //-- 
        к=0
        пока(к<20)
         Исп[к]=0
         к=к+1
        конец_пока
        //-- 
        ПОКА(Использ)
        Использ=Ложь
        ЕСЛИ ((ЧСС >= 60) И (ЧСС <= 70) И (ЧДД >= 16) И (ЧДД <= 22) И \
              (ТЕМП >= 36.0) И (ТЕМП <= 36.91) И \
              (САД >= 115) И (САД <= 125) И \
              (ДАД >= 75) И (ДАД <= 85) И \
              (СПО2 >= 96) И Исп[0]==0) то
              ЗНАЧ = ВЫБОР ("Форма колебаний: NSR-Нормальный синусовый и Ритм(HCP)-Взрослый", "Да", 1, "Нет", 0, "Неизвестно", 0.5)
              Исп[0]=1
              Использ=Истина 
              ЕСЛИ (Знач >0.5) то
               ВЫЗОВ_ВРАЧА("Диагностировано: нормальное состояние", 10мин)
               ДИАГН = 1
              КОНЕЦ_ЕСЛИ
        ИНАЧЕ ЕСЛИ ((ЧСС >= 120) И (ЧСС <= 130) И (ЧДД >= 25) И (ЧДД <= 35) И \
              (ТЕМП >= 36.0) И (ТЕМП <= 36.91) И \
              (САД >= 190) И (САД <= 200) И \
              (ДАД >= 140) И (ДАД <= 150) И \
              (СПО2 >= 96) И Исп[1]==0) то
              ЗНАЧ = ВЫБОР ("Форма колебаний: NSR-Нормальный синусовый и Ритм(HCP)-Взрослый", "Да", 1, "Нет", 0, "Неизвестно", 0.5)
              Исп[1]=1
              Использ=Истина 
              ЕСЛИ (Знач >0.5) то
               ВЫЗОВ_ВРАЧА("Диагностировано: гипертензия", 10мин)
               ДИАГН = 2
              КОНЕЦ_ЕСЛИ
        ИНАЧЕ ЕСЛИ ((ЧСС >= 130) И (ЧСС <= 140) И (ЧДД >= 30) И (ЧДД <= 40) И \
              (ТЕМП >= 35.89) И (ТЕМП <= 36.91) И \
              (САД >= 60) И (САД <= 70) И \
              (ДАД >= 30) И (ДАД <= 40) И \
              (СПО2 >= 96) И Исп[2]==0) то
              ЗНАЧ = ВЫБОР ("Форма колебаний: NSR-Нормальный синусовый и Ритм(HCP)-Взрослый", "Да", 1, "Нет", 0, "Неизвестно", 0.5)
              Исп[2]=1
              Использ=Истина 
              ЕСЛИ (Знач >0.5) то
               ВЫЗОВ_ВРАЧА("Диагностировано: геморрагический шок", 10мин)
               ДИАГН = 3
              КОНЕЦ_ЕСЛИ
        ИНАЧЕ ЕСЛИ ((ЧСС >= 170) И (ЧСС <= 180) И (ЧДД >= 30) И (ЧДД <= 40) И \
              (ТЕМП >= 36.0) И (ТЕМП <= 36.91) И \
              (САД >= 140) И (САД <= 150) И \
              (ДАД >= 80) И (ДАД <= 90) И \
              (СПО2 >= 85) И (СПО2 <= 90) И Исп[3]==0) то
              Исп[3]=1
              Использ=Истина 
              ЗНАЧ = ВЫБОР ("Результат рентгенографии: данные за отек легких", "Да", 1, "Нет", 0, "Неизвестно", 0.5)
              ЕСЛИ (Знач > 0) то
                  ВЫЗОВ_ВРАЧА("Диагностировано: острая сердечная недостаточность", 10мин)
                  ДИАГН = 4
              КОНЕЦ_ЕСЛИ
        ИНАЧЕ ЕСЛИ ((ЧСС >= 60) И (ЧСС <= 70) И (ЧДД >= 27) И (ЧДД <= 37) И \
              (ТЕМП >= 36.0) И (ТЕМП <= 36.91) И \
              (САД >= 120) И (САД <= 130) И \
              (ДАД >= 65) И (ДАД <= 70) И \
              (СПО2 >= 80) И (СПО2 <= 85) И Исп[4]==0) то
              ЗНАЧ = ВЫБОР ("Форма колебаний: NSR-Нормальный синусовый и Ритм(HCP)-Взрослый", "Да", 1, "Нет", 0, "Неизвестно", 0.5)
              Исп[4]=1
              Использ=Истина 
              ЕСЛИ (Знач >0.5) то
               ВЫЗОВ_ВРАЧА("Диагностировано: РДСВ", 10мин)
               ДИАГН = 5
              КОНЕЦ_ЕСЛИ
        ИНАЧЕ ЕСЛИ ((ЧСС >= 100) И (ЧСС <= 110) И (ЧДД >= 16) И (ЧДД <= 20) И \
              (ТЕМП >= 36.0) И (ТЕМП <= 36.91) И \
              (САД >= 120) И (САД <= 130) И \
              (ДАД >= 70) И (ДАД <= 80) И \
              (СПО2 >= 93) И (СПО2 <= 97) И Исп[5]==0) то
              Исп[5]=1
              Использ=Истина 
              ЗНАЧ = ВЫБОР ("Форма колебаний: изменена", "Да", 1, "Нет", 0, "Неизвестно", 0.5)
              ЕСЛИ (Знач > 0.5) то
                  ВЫЗОВ_ВРАЧА("Диагностировано: аритмия", 10мин)
                  ДИАГН = 6
              КОНЕЦ_ЕСЛИ
        ИНАЧЕ ЕСЛИ ((ЧСС >=0 ) И (ЧСС <= 2) И (ЧДД >= 0) И (ЧДД <= 1) И \
              (ТЕМП >= 32.0) И (ТЕМП <= 34.0) И \
              (САД >= 0) И (САД <= 10) И \
              (ДАД >= 0) И (ДАД <= 10) И \
              (СПО2 >= 45) И (СПО2 <= 80) И Исп[6]==0) то
              Исп[6]=1
              Использ=Истина 
                  ВЫЗОВ_ВРАЧА("Диагностировано: асистолия", 10мин)
                  ДИАГН = 7
        ИНАЧЕ ЕСЛИ ((ЧСС >=100 ) И (ЧСС <= 110) И (ЧДД >= 30) И (ЧДД <= 35) И \
              (ТЕМП >= 36.0) И (ТЕМП <= 36.91) И \
              (САД >= 150) И (САД <= 180) И \
              (ДАД >= 80) И (ДАД <= 90) И \
              (СПО2 >= 93) И (СПО2 <= 96) И Исп[7]==0) то
              Исп[7]=1
              Использ=Истина 
              ЗНАЧ = ВЫБОР ("Нарушение сознания или очаговая неврологическая симптоматика", "Да", 1, "Нет", 0, "Неизвестно", 0.5)
              ЕСЛИ (Знач > 0.5) то
                  ВЫЗОВ_ВРАЧА("Диагностировано: общее нарушение мозгового кровообращения", 10мин)
                  ДИАГН = 8
              КОНЕЦ_ЕСЛИ
        ИНАЧЕ ЕСЛИ ((ЧСС >=80 ) И (ЧСС <= 110) И (ЧДД >= 35) И (ЧДД <= 40) И \
              (ТЕМП >= 36.) И (ТЕМП <= 36.91) И \
              (САД >= 90) И (САД <= 100) И \
              (ДАД >= 70) И (ДАД <= 80) И \
              (СПО2 >= 70) И (СПО2 <= 80) И Исп[8]==0) то
              ПикСкоростьВыдоха=ВВОД("Пиковая скорость выдоха", 0, 100)
              Исп[8]=1
              Использ=Истина 
              ЕСЛИ (ПикСкоростьВыдоха >= 35 И ПикСкоростьВыдоха <= 45) то
                  ВЫЗОВ_ВРАЧА("Диагностировано: обострение бронхиальной астмы", 10мин)
                  ДИАГН = 9
              КОНЕЦ_ЕСЛИ
        ИНАЧЕ ЕСЛИ ((ЧСС >=110 ) И (ЧСС <= 120) И (ЧДД >= 20) И (ЧДД <= 25) И \
              (ТЕМП >= 36.0) И (ТЕМП <= 36.91) И \
              (САД >= 140) И (САД <= 150) И \
              (ДАД >= 90) И (ДАД <= 100) И \
              (СПО2 >= 96) И (СПО2 <= 100) И Исп[9]==0) то
              Исп[9]=1
              Использ=Истина 
              ЗНАЧ = ВЫБОР ("Жалобы на боли в грудной клетке", "Есть", 1, "Нет", 0, "Неизвестно", 0.5)
              ЕСЛИ (Знач > 0.5) то
                  ВЫЗОВ_ВРАЧА("Диагностировано: острый коронарный синдром", 10мин)
                  ДИАГН = 10
              КОНЕЦ_ЕСЛИ
        ИНАЧЕ ЕСЛИ ((ЧСС >=130 ) И (ЧСС <=135) И (ЧДД >= 28) И (ЧДД <= 34) И \
              (ТЕМП >= 36.0) И (ТЕМП <= 36.91) И \
              (САД >=  80) И (САД <=  90) И \
              (ДАД >= 50) И (ДАД <=  60) И \
              (СПО2 >= 88) И (СПО2 <= 93) И Исп[10]==0) то
              ЗНАЧ = ВЫБОР ("Клинические симптомы тромбоза глубоких вен нижних конечностей", "Есть", 1, "Нет", 0, "Неизвестно", 0.5)
              Исп[10]=1
              Использ=Истина 
              ЕСЛИ (Знач > 0.5) то
                  ВЫЗОВ_ВРАЧА("Диагностировано: тромбоэмболия легочной артерии", 10мин)
                  ДИАГН = 11
              КОНЕЦ_ЕСЛИ
        ИНАЧЕ ЕСЛИ ((ЧСС >=90 ) И (ЧСС <=110) И (ЧДД >= 21) И (ЧДД <= 29) И \
              (ТЕМП >= 38.) И (ТЕМП <= 39.) И \
              (САД >=  80) И (САД <=  100) И \
              (ДАД >= 50) И (ДАД <=  70) И \
              (СПО2 >= 92) И (СПО2 <= 98) И Исп[11]==0) то
              Лейкоцитоз=ВВОД("Лейкоцитоз (x 10^9)", 0, 20)
              Исп[11]=1
              Использ=Истина 
              ЕСЛИ (Лейкоцитоз >= 12 И Лейкоцитоз <= 20) то
                  ВЫЗОВ_ВРАЧА("Диагностировано: сепсис", 10мин)
                  ДИАГН = 12
              КОНЕЦ_ЕСЛИ
        ИНАЧЕ ЕСЛИ ((ЧСС >=80 ) И (ЧСС <=90) И (ЧДД >= 28) И (ЧДД <= 34) И \
              (ТЕМП >= 36.0) И (ТЕМП <= 36.91) И \
              (САД >=  80) И (САД <=  90) И \
              (ДАД >= 40) И (ДАД <=  50) И \
              (СПО2 >= 96) И (СПО2 <= 100) И Исп[12]==0) то
              ГлюкозаКрови=ВВОД("Глюкоза Крови", 1, 100)
              Исп[12]=1
              Использ=Истина 
              ЕСЛИ (ГлюкозаКрови >= 8 И ГлюкозаКрови <= 10) то
                  ВЫЗОВ_ВРАЧА("Диагностировано: диабетическая кома", 10мин)
                  ДИАГН = 13
              КОНЕЦ_ЕСЛИ
        // ИНАЧЕ ЕСЛИ	
         КОНЕЦ_ЕСЛИ
         КОНЕЦ_ПОКА

         ЕСЛИ (ДИАГН == -1) то
                  ВЫЗОВ_ВРАЧА("Диагноз не определен", 10мин)
         КОНЕЦ_ЕСЛИ

         ВЫЗОВ_ВРАЧА("ПЕРЕУСТАНОВИТЕ ЗНАЧЕНИЯ ПАРАМЕТРОВ", 10мин)
         КОНЕЦ_ПОКА
КОНЕЦ_БЛОКА // конец БЛОК ВХОД
