Вычислить Cos1/sin1+(cos1+cos2)/(sin1+sin2)+(cos1+cos2+cos3)/(sin1+sin2+sin3)+(cos1+cos2+cos3+.. .+cosn)/(sin1+sin2+sin3+...+sinn)

@Alexcool · Регистрация: 05.01.2010

Author24 — интернет-сервис помощи студентам

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

@Alexcool · 06.01.2010, 20:59 **[ТС]**

Разве не кто не знает как это записать?

@Андрей Борисови · 06.01.2010, 21:11

первый язык программирования высокого уровня, имеющий транслятор. Создан в период с 1954 по 1957 год группой программистов под руководством Джона Бэкуса в корпорации IBM. (Педивикия)

я 1976 года рождения... так вот - этот язык умер еще ДО моего рождения

я даже боюсь спросить сколько лет вашему лектору/преподавателю

расскажи ему про Бэйсик/Паскаль...

@Alexcool · 06.01.2010, 21:19 **[ТС]**

да я бы и сам рад не работать с фортраном но вот так получилось.....

@asiar · 12.01.2010, 14:47

Fortran

program F1
 
integer, parameter :: n=5 
real a, b, c
 
a=0; b=0; c=0
 
do i=1,n
 
a=a+cos(1.*i)
b=b+sin(1.*i)
c=c+a/b
enddo
print*, "c=",c 
 
end program F1

не знаю, может быть, вот так ....

@Alexcool · 13.01.2010, 09:36 **[ТС]**

Fortran

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

вот вот так будет вернее)

@alex_x_x · 10.04.2010, 20:15

Сообщение от Андрей Борисови

я 1976 года рождения... так вот - этот язык умер еще ДО моего рождения

судя по Fortran 2008 вы в дичайшей юности

@Alexcool 0 / 0 / 0 Регистрация: 05.01.2010 Сообщений: 4
		1
	Вычислить Cos1/sin1+(cos1+cos2)/(sin1+sin2)+(cos1+cos2+cos3)/(sin1+sin2+sin3)+(cos1+cos2+cos3+.. .+cosn)/(sin1+sin2+sin3+...+sinn) 05.01.2010, 18:12. Показов 7135. Ответов 6 Метки нет (Все метки) Помогите плиз с программой фортран а точнеее с одним примерчиком . Мучаюсь в написании уже несколько дней. Вообщем дано такое задание: Дано натуратьное число n . Вычислить Cos1/sin1+(cos1+cos2)/(sin1+sin2)+(cos1+cos2+cos3)/(sin1+sin2+sin3)+(cos1+cos2+cos3+.. .+cosn)/(sin1+sin2+sin3+...+sinn) вот такой примерчик .сам процесс понятен а вот представить машине не знаю как... помогите кто сможет . 0

@Alexcool 0 / 0 / 0 Регистрация: 05.01.2010 Сообщений: 4
	06.01.2010, 20:59 [ТС]	2
	Разве не кто не знает как это записать? 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	06.01.2010, 21:11	3
	первый язык программирования высокого уровня, имеющий транслятор. Создан в период с 1954 по 1957 год группой программистов под руководством Джона Бэкуса в корпорации IBM. (Педивикия) я 1976 года рождения... так вот - этот язык умер еще ДО моего рождения я даже боюсь спросить сколько лет вашему лектору/преподавателю расскажи ему про Бэйсик/Паскаль... 0

@Alexcool 0 / 0 / 0 Регистрация: 05.01.2010 Сообщений: 4
	06.01.2010, 21:19 [ТС]	4
	да я бы и сам рад не работать с фортраном но вот так получилось..... 0

@alex_x_x бжни 2473 / 1684 / 135 Регистрация: 14.05.2009 Сообщений: 7,162
	10.04.2010, 20:15	7
	Сообщение от Андрей Борисови я 1976 года рождения... так вот - этот язык умер еще ДО моего рождения судя по Fortran 2008 вы в дичайшей юности 0

Опции темы