Первая формула Вилланса

[Evgeshka000]

Помогите написать программу которая будет считать по первой формуле вилланса, надо, вводиш n например от 10 до 100 программа считает и выводит все P

 

[vital]

старайтесь ВСЕГДА сначала решить задачу САМОСТОЯТЕЛЬНО, ну а когда не выходит ОБЯЗАТЕЛЬНО публикуйте здесь свой код, даже если он не работает. Поверьте, это значительно повышает к вам уважение. Халявщиков, которым нужно, что бы им просто кто-нить нахаляву сделал - здесь не любят. Да и исправить мелкую ошибку в готовом коде легче, чем писать все заново.
5. Ну а те, кто не хочет что-то делать самостоятельно должны понимать, что работа людей стоит денег. Даже самая мелкая. А потому если вы готовы платить за решение своей проблемы, то так же указывайте это в своей теме. Что-то в духе: Нужно решить такую-то задачу. Оплата.

 

[Evgeshka000]

Написала программу по первой формуле виланнаса но когда путаюсь что то сосчитаь в ней он выкидывает вроде все правильно помогите разобраться. И правильно ли я написала код.

program Kursovaya;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
p,y,t,n,x,q,r,e,m:real;
begin
writeln('vvedite n');
readln(n);
n:=exp(n*ln(2));
m:=1;
x:=1;
p:=1;
while m<>n do
begin
while x<>m do
begin
y:=1;
t:=1;
while y<>x-1 do
begin
t:=t*y;
y:=y+1;
end;
q:=cos(pi*((t+1)/x))*cos(pi*((t+1)/x));
x:=x+1;
end;
r:=exp(1/n*ln(q));
e:=exp(1/n*ln(n));
p:=p+r*e;
end;
writeln(p:4:3);
readln(p);
{ TODO -oUser -cConsole Main : Insert code here }
end.