Код: Выбрать все
program lab1
real a,b,c,d,h,x,y
integer i,N
open(10,file='lab1.txt')
a=-5
b=-13./10.
c=23./10.
d=5
N=31
h=(b-a)/(N-1)
do i=1,N
x=a+(i-1)*h
y=2-(3./4.)*(sqrt(x**2-x-3.))
print*,x,y
write(10,*)x,y
end do
end
Код: Выбрать все
program lab1
real a,b,c,d,h,x,y
integer i,N
open(10,file='lab1.txt')
a=-5
b=-13./10.
c=23./10.
d=5
N=31
h=(b-a)/(N-1)
do i=1,N
x=a+(i-1)*h
y=2-(3./4.)*(sqrt(x**2-x-3.))
print*,x,y
write(10,*)x,y
end do
end
folk писал(а):Source of the post
DO 4 I = 1, 5
J0 = MAX0(1, I - ML)
J1 = MIN0(N, I + MU)
DO 3 J = J0, J1
K = J - I + ML + 1
A(I, K) = FLOAT(I*10 + J)
B(I, J) = A(I, K)
B(I, J + 5) = A(I, K)
3 CONTINUE
4 CONTINUE
Вернуться в «Computer Science»
Количество пользователей, которые сейчас просматривают этот форум: нет зарегистрированных пользователей и 5 гостей