Вычислить значение выражения

@Студентка · Регистрация: 26.05.2014

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

Пожалуйста помогите решить задачку!!! Дано натуральное n. Вычислить Cos1/Sin1+(Cos1+cos2)/(Sin1+Sin2)+..+(Cos1+..+Cosn)/(Sin1+..+Sinn)

@mamedovvms · 19.06.2009, 10:49

Pascal

uses crt;
var i,n:integer;
     y,c,s:real;
begin
 clrscr;
 writeln('n ');
 readln(n);
for i:=1 to n do
 begin
  c:=c+cos(i);
  s:=s+sin(i);
  y:=y+c/s;
 end;
 
writeln(y:5:3);
readln;
end.

@Puporev · 19.06.2009, 11:25

Все таки нужно инициализировать переменные с,s.

Pascal

1
2
3

c:=0;s:=0;
for i:=1 to n do
 begin

@mamedovvms · 19.06.2009, 11:36

согласен не досмотрел

@Студентка · 19.06.2009, 12:53

Спасибо большое!

@Студентка 0 / 0 / 0 Регистрация: 26.05.2014 Сообщений: 3
		1
	Вычислить значение выражения 19.06.2009, 10:34. Показов 2695. Ответов 4 Метки нет (Все метки) Пожалуйста помогите решить задачку!!! Дано натуральное n. Вычислить Cos1/Sin1+(Cos1+cos2)/(Sin1+Sin2)+..+(Cos1+..+Cosn)/(Sin1+..+Sinn) 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	19.06.2009, 11:36	4
	согласен не досмотрел 0

@Студентка 0 / 0 / 0 Регистрация: 26.05.2014 Сообщений: 3
	19.06.2009, 12:53	5
	Спасибо большое! 0

Вычислить значение выражения

Решение