Fortran

[Alexcool]

Помогите плиз с программой фортран 6 а точнеее с одним примерчиком . Мучаюсь в написании уже несколько дней. Вообщем дано такое задание: Дано натуратьное число n . Вычислить Cos1/sin1+(cos1+cos2)/(sin1+sin2)+(cos1+cos2+cos3)/(sin1+sin2+sin3)+(cos1+cos2+cos3+.. .+cosn)/(sin1+sin2+sin3+...+sinn) вот такой примерчик . Циклический процесс...саму программу конечно легче простого написать а вот сам пример представить машине не знаю как... помогите кто сможет .

[evg_m]

1 cos1/sin1
2 (cos1+cos2)/(sin1+sin2)
3 (cos1+cos2+cos3)/(sin1+sin2+sin3)
...
n (cos1+cos2+cos3+.. .+cosn)/(sin1+sin2+sin3+...+sinn)

s1(j)=s1(j-1)+cos(j)
s2(l)=s2(k-1)+sin(j)
r(j)=s1(j)/s2(j)

[Deamonig]

program sincos;
var
a,b,s,n,i:integer;
begin
writeln('vvedite n');
readln(n);
for i:=0 to n-1 do
begin
a:=cos(i)+cos(i+1);
b:=sin(i)+sin(i+1);
s:=s+a/b;
end;
writeln('symma = ',s);
end.

[Alexcool]

А есть у кого-нибудь методические материалы по фортрану ? В интернете нашёл только мануалы на англ. языке . Если кто может то выложите плиз . А за ответы большое спасибо=)

[Serjuk]

На фортране код будет такой:

program sincos
integer a,b,s,n,i
print*,'vvedite n'
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*,'symma = ',s
end programm sincos

[Alexcool]

мммм мне качется эта запись не будет работать так как данное выражение с каждым шагом увеличивается на синус и косинус на 1 добавляясь к предидущим суммам и так n раз.....я голову уже сломал блин как представить эту запись....по ночалу я и сам думал задать таким образом это выражение но не получается. cos1/sin1+(cos1+cos2)/(sin1+sin2)+....+(cos1+...+cosn)/(sin1+.....+sinn) вот..... ну например n=4 то будет так
Do I=1,4
S=cos1/sin1+(cos1+cos2)/(sin1+sin2)+(cos1+cos2+cos3)/(sin1+sin2+sin3)+(cos1+cos2+cos3+co s4)/(sin1+sin2+sin3+sin4) .
скоро защита этого задания а у меня не получается ..... атата в институте вставят...)

[Alexcool]

C:\laba\G\L.F90(6) : Warning: Arguments' data types are incompatible with intrinsic procedure, assume EXTERNAL. [COS]
a= cos(i)+cos(i+1)
---^
C:\laba\G\L.F90(7) : Warning: Arguments' data types are incompatible with intrinsic procedure, assume EXTERNAL. [SIN]
b= sin(i)+sin(i+1)

и вот что выдаёт в фортране (
если пользоваться записью Serjuk....(

[Serjuk]

Попробуй изменить :

integer a,b,s,n,i

на

integer n,i
real a,b,s

[Alexcool]

C:\laba\qq\Q.F90(8) : Warning: Arguments' data types are incompatible with intrinsic procedure, assume EXTERNAL. [COS]
a=cos(i)+cos(i+1)
--^
C:\laba\qq\Q.F90(9) : Warning: Arguments' data types are incompatible with intrinsic procedure, assume EXTERNAL. [SIN]
b=sin(i)+sin(i+1)
--^
я изменил и вот что получилось....почиму то ему не нравится эта запись.... а ещё думаю надо ввести такую строку в запись
integer , parameter::n=(любое натуральное число)

[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
вот такую программу сей час пытаюсь править но постоянно эти ошибки...