Добавил:
zord
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
real t,x,a,y,n
fn(y,n)=alog(n**y+n**(y**2)+n**(y**3)+n**(y**4))
write(*,*)'Vvedite X'
read(*,*)x
write(*,*)'Vvedite A'
read(*,*)a
t=fn(x,a)-fn(a,x)
write(*,*)' T = ',t
read(*,*)
end
fn(y,n)=alog(n**y+n**(y**2)+n**(y**3)+n**(y**4))
write(*,*)'Vvedite X'
read(*,*)x
write(*,*)'Vvedite A'
read(*,*)a
t=fn(x,a)-fn(a,x)
write(*,*)' T = ',t
read(*,*)
end
Соседние файлы в папке 17var