Выполнение сразу двух условий

@Filesss · Регистрация: 01.04.2010

Author24 — интернет-сервис помощи студентам

Задача такая: летит частица, попадает сначала в крышку, потом в в сцинтиллятор. Меня интересует выделенная энергия частиц в сцинтилляторе в случае, если они в крышке выделили меньше 300 кэВ.

Fortran

if (объём.eq.крышка.and.потеря энергии.le.300) then
if (обхём.eq.сцинтиллятор.and.потеря энергии.gt.0) then
write(№,'(1f11.4)') потеря энергии
end if
end if

вроде так должно выглядеть. но не работает. Если всё правильно, то надо искать ошибку в другом месте.
Правильно записал?

@_Илья_ · 30.10.2010, 15:41

А в каком смысле оно у тебя не работает? Не выдает энергию частиц, для которых ты точно знаешь что условие выполняется?
Можно попробовать выделять логические блоки в скобки

Fortran

1	if ((a.gt.b).and.(c.lt.d)) then ...

В условии у тебя прописано, что "объем" в точности равен "крышке". Это так и есть? может быть - меньше "крышки" - то есть, что частица уже пролетела "крышку" ?
ЗЫ: Зачем у тебя 1 перед f11.4 ?

	30.10.2010, 15:41