Добавил:
zord
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
real t,fn,a,b,c,x,y
integer i
fn(x,y)=sqrt(((x-y)**5)*(x**3)*((x+y)**7)*((2*x+y)**3)*((2*y-x)**5))
write(*,*) 'Vvedite chisla a,b,c'
read(*,*)a
read(*,*)b
read(*,*)c
t=fn(a,b)+fn(b,c)
write(*,*)'Function ravna'
write(*,17)t
17 format ((6x,1(f7.2,x)))
read(*,*)
end
integer i
fn(x,y)=sqrt(((x-y)**5)*(x**3)*((x+y)**7)*((2*x+y)**3)*((2*y-x)**5))
write(*,*) 'Vvedite chisla a,b,c'
read(*,*)a
read(*,*)b
read(*,*)c
t=fn(a,b)+fn(b,c)
write(*,*)'Function ravna'
write(*,17)t
17 format ((6x,1(f7.2,x)))
read(*,*)
end
Соседние файлы в папке 19var