//Калькулятор нормального значения ПСВ
Переменные: псв_реф, возраст, рост, пол

блок ВХОД
	возраст=ввод("Укажите возраст пациента", 5, 130, станд_возраст)
	рост=ввод("Введите рост пациента, (см)", 120, 220,станд_рост)
	пол=выбор("Укажите пол пациента", "мужской", 1, "женский", 0, 1-станд_пол)
	ЕСЛИ пол==1 то
	ЕСЛИ 187<рост то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.4*возраст*возраст+26*возраст+210+12+10
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <50 то
		псв_реф=-1/6*возраст*возраст+12.5*возраст+1205/3+13+13
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=50 то
		псв_реф=-1/175*возраст*возраст-143/35*возраст+5800/7+12+12
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ 179<рост и рост<=187 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.4*возраст*возраст+26*возраст+210+10
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <50 то
		псв_реф=-1/6*возраст*возраст+12.5*возраст+1205/3+13
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=50 то
		псв_реф=-1/175*возраст*возраст-143/35*возраст+5800/7+12
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ 171<рост и рост <=179 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.4*возраст*возраст+26*возраст+210
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <50 то
		псв_реф=-1/6*возраст*возраст+12.5*возраст+1205/3
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=50 то
		псв_реф=-1/175*возраст*возраст-143/35*возраст+5800/7
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ 163<рост и рост<=171 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.4*возраст*возраст+26*возраст+210-12
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <50 то
		псв_реф=-1/6*возраст*возраст+12.5*возраст+1205/3-17
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=50 то
		псв_реф=-1/175*возраст*возраст-143/35*возраст+5800/7-13
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	ЕСЛИ рост<=163 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.4*возраст*возраст+26*возраст+210-14-12
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <50 то
		псв_реф=-1/6*возраст*возраст+12.5*возраст+1205/3-16-17
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=50 то
		псв_реф=-1/175*возраст*возраст-143/35*возраст+5800/7-12-13
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ
	иначе 
	ЕСЛИ 179<=рост то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.28*возраст*возраст+15.2*возраст+245+9
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <40 то
		псв_реф=-53/420*возраст*возраст+3389/420*возраст+2290/7+9
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=40 то
		псв_реф=-14/1125*возраст*возраст-52/45*возраст+7712/15+7
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	
	ЕСЛИ 171<рост и рост<=179 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.28*возраст*возраст+15.2*возраст+245
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <40 то
		псв_реф=-53/420*возраст*возраст+3389/420*возраст+2290/7
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=40 то
		псв_реф=-14/1125*возраст*возраст-52/45*возраст+7712/15
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	
	ЕСЛИ 163<рост и рост<=171 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.28*возраст*возраст+15.2*возраст+245-9
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <40 то
		псв_реф=-53/420*возраст*возраст+3389/420*возраст+2290/7-10
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=40 то
		псв_реф=-14/1125*возраст*возраст-52/45*возраст+7712/15-7
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	
	ЕСЛИ 156<рост и рост<=163 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.28*возраст*возраст+15.2*возраст+245-9-9
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <40 то
		псв_реф=-53/420*возраст*возраст+3389/420*возраст+2290/7-10-10
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=40 то
		псв_реф=-14/1125*возраст*возраст-52/45*возраст+7712/15-7-7
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	
	ЕСЛИ  рост<=156 то
		ЕСЛИ возраст <=25 то
		псв_реф=-0.28*возраст*возраст+15.2*возраст+245-11-18
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >25 и возраст <40 то
		псв_реф=-53/420*возраст*возраст+3389/420*возраст+2290/7-12-20
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
		ЕСЛИ возраст >=40 то
		псв_реф=-14/1125*возраст*возраст-52/45*возраст+7712/15-9-14
		ВЫЗОВ_ВРАЧА("Пиковая скорость выдоха равна "+строка(псв_реф)+" л/мин.", 2 мин)
		КОНЕЦ_ЕСЛИ
	КОНЕЦ_ЕСЛИ	

	КОНЕЦ_ЕСЛИ
КОНЕЦ_БЛОКА