Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
evgeshka000
0 / 0 / 0
Регистрация: 14.12.2010
Сообщений: 2
#1

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

17.12.2010, 16:54. Просмотров 351. Ответов 1
Метки нет (Все метки)

помогите написать программу, по первой формуле Вилланса, надо, вводиш промежуток пргограмма считает все простые числа, по этой формуле!
0
Миниатюры
Первая формула Вилланса  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2010, 16:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Первая формула Вилланса (Delphi):

Первая программа
Здравствуйте форумчане. Только не давно начал изучать delphi(а верней три дня...

первая форма
Поскажите как сделать так чтобы 10 форма появлялась вместо первой, т.е. 10...

моя первая практика
Дорогие друзья! Я в программировании полный ноль. Помогите выполнить данные...

Первая строка Memo
Ребята, подскажите! Как сделать такую штуку в Memo: Что бы первая строка (то...

Какая буква первая в слове
Подскажите, как написать функцию, которая определяет первую букву в...

Герон - моя первая программа
Приветствую всех, сегодня закрыл сложный проект)) Настроение отличное и...

1
evgeshka000
0 / 0 / 0
Регистрация: 14.12.2010
Сообщений: 2
10.01.2011, 15:51 #2
Написала программу по первой формуле виланнаса но когда пытаюсь что то сосчитаь в ней он выкидывает вроде все правильно помогите разобраться. И правильно ли я написала код.

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.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2011, 15:51
Привет! Вот еще темы с решениями:

Создать второй корабль, первая есть
Создать второй корабль), первый корабль есть...код, в ссылке, и прикрепил саму...

первая буква в верхнем регистре LabelEdit
Как такое сделать? у меня есть конструкция: procedure...

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

Первая, нормальная моя программа на Dlphi
Недавно начал учиться программированию в делфи. И вот думал, думал, чего б...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru