Программирование циклических процессов

[KnighTeX]

Помогите написать программу для заданого n:
cosx + 2 cosx + ... + ncosx
y= --------------------------
sinx + sin2x + ... + sinnx

[Скарам]

#include "iostream"
using namespace std;
===================
{
cout<<"Vvedite n ";
int n;
cin>>n;
cout<<"\n Vvedite x=";
double x=0;
cin>>x; 
double sumcos=0;double sumsin=0;
for(int i=0;i<n;i++)
{
   sumcos+=(i+1)*cos(x);
   sunsin+=sin((i+1)*x);
}
double y=0;
y=sumcos/sumsin;
cout<<"\n y="<<y;
return 0;
}

Писал прямо в окне ответа,могут быть мелкие ошибки.

[KnighTeX]

А это программа для Паскаля?

[Скарам]

ты не писал какой язык,я написал на c++.

Program lab;
uses crt;
Var sumsin,sumcos,y,x:real;
     n,i:integer;
begin
writeln('Enter X');
readln(x);
writeln('Enter N');
readln(n);
sumcos:=0;
sumsin:=0;
for i:=1 to n do
  begin
     sumcos:=sumcos+i*cos(x);
     sumsin:=sumsin+sin(i*x);
  end;
y:=sumcos/sumsin;
writeln('y=',y);
end.

В следующий раз пиши сразу какой язык.

[KnighTeX]

Можеш это проверить:

13.jpg

Program LAB_1;
var a:real; x,y:integer;
const e=2.7;
begin
writeln(‘BBECTI x’);
readln(x);
writeln(‘BBECTI y’);
readln(y);
a:=(1+y)*(x+(y/sqr((x-4)*(x+4))))/exp((-x-2)*ln(e))+(1/sqr((x-2)*(x+2)));
writeln(‘a=’,a);
end.
Тоже Паскаль

[Скарам]

Program LAB_1;
var a:real; x,y:integer;
begin
writeln('BBECTI x');
readln(x);
writeln('BBECTI y');
readln(y);
a:=(1+y)*(x*(sqr(x)+4)+y)/((sqr(x)+4)*exp(-x-2)+1);
writeln('a=',a);
end.

Ты бы сначала упростил выражение ручками,а потом бы вбивал...С тебя 2 положительных отзыва)))