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

Тема в разделе "Pascal and Delphi", создана пользователем Evgeshka000, 17 дек 2010.

  1. Evgeshka000

    Evgeshka000 Гость

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

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
     
  3. Evgeshka000

    Evgeshka000 Гость

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

    Код (Delphi):
    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.
     
Загрузка...

Поделиться этой страницей