1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программирован. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление
  2. Чат codeby в telegram перезагрузка. Обсуждаем вопросы информационной безопасности и методы защиты информации, программирование. Задавайте свои вопросы и комментируйте чужие. Подробнее ...

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем Evgeshka000, 17 дек 2010.

  1. Evgeshka000

    Evgeshka000 Гость

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

    vital Больной Компом Детектед

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

    Evgeshka000 Гость

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

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

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