Написать программу. Язык программирования Fortran. Задача номер 4. Помогите написать и объяснить.
Приложения:


Sapsano:
Я это понял. Ну..хоть что-то получается?
Ответы на вопрос
Ответил Аноним
1
program ex4
real::x,y
read *,x,y
if (y<exp(1.) .and. y>exp(-1.) .and. y>x*x) then
print *,"Vnutri"
else if (y<=exp(1.) .and. y>=exp(-1.) .and. y .eq. x*x &
.or. y .eq. exp(1.) .and. y .eq. x*x &
.or. y .eq. exp(-1.) .and. y .eq. x*x) then
print *,"Na granitce"
else
print *,"Vne"
end if
end
real::x,y
read *,x,y
if (y<exp(1.) .and. y>exp(-1.) .and. y>x*x) then
print *,"Vnutri"
else if (y<=exp(1.) .and. y>=exp(-1.) .and. y .eq. x*x &
.or. y .eq. exp(1.) .and. y .eq. x*x &
.or. y .eq. exp(-1.) .and. y .eq. x*x) then
print *,"Na granitce"
else
print *,"Vne"
end if
end
Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
Математика,
2 года назад
Математика,
7 лет назад