Fortran

[Serebro]

Сообщение от Alexcool

program Q
integer n,i
real a,b,s
read*,n
do i=1,n
a=cos(i)+cos(i+1)
b=sin(i)+sin(i+1)
s=s+a/b
end do
print*,'s=?'
end program Q
вот такую программу сей час пытаюсь править но постоянно эти ошибки...

program Q
integer n,i
real a,b,s
read*,n

s=0.0
a=0.0
b=0.0
do i=1,n
a=a+cos(i*1.0)
b=b+sin(i*1.0)
s=s+a/b
end do

print*,'s=?',s
end program Q

Если нужна книга по FORTRAN-у, напиши мне: serebro.2010@gmail.com
За помощь кликни по рекламе здесь внизу.

P.S. А ошибки значат, что аргументами sin и cos должны быть вещественными числами.

[Alexcool]

Спасибо за помощь и поздравляю с рождеством)

[Alexcool]

Serebro слушай а не знаешь как записать остаток . Для задачи: Даны целые числа p,q, a1....a45. (p>q>=0)В последовательности a1....a45 заменить нулями те модуль которых при делении на p даёт в остатке q.
PROGRAM Z4
INTEGER , PARAMETER::N=45
INTEGER I , N
REAL A(N), P , Q
READ (1,*)A

DO I=1,N

IF (abs(A(I))/P.=.Q) THEN
A(I)=0

END IF
END DO
END PROGRAM Z4
вот записать так чтобы модуль А/P был равен какому то числу с остатком q не знаю как( если знаешь то напиши плиз как можно представить