Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > C# (си шарп)
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.01.2014, 21:15   #1
SERGO123
 
Регистрация: 25.12.2013
Сообщений: 7
По умолчанию помогите перевести

function Delta( ): Real;
var
Sum: Real;
i: Integer;
begin
i:=1;
Sum:=0;
repeat
Sum:=ABS(Ln(i))*0.0002+Sum;
i:=i+1;
until i>A;
Delta:=Sum;
end;
SERGO123 вне форума Ответить с цитированием
Старый 07.01.2014, 21:43   #2
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,011
По умолчанию

легко:
дельта-функция (): Реальный;
вар
Сумма: Реальный;
я: Целое;
начинать
я: = 1;
Сумма: = 0;
повторение
Сумма: = ABS (Ln (я)) * 0,0002 + Сумма;
я: = я +1;
не, пока я>A;
Дельта: = Сумма;
конец;
eval вне форума Ответить с цитированием
Старый 07.01.2014, 21:45   #3
SERGO123
 
Регистрация: 25.12.2013
Сообщений: 7
По умолчанию

это то понятно, но мне надо на C#
SERGO123 вне форума Ответить с цитированием
Старый 07.01.2014, 22:26   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
public double Delta( ){
double Sum=0;
int i=1;
do{ Sum+=Math.Abs(Math.Ln(i++))*0.0002;}while(i>A);
 return Sum;
}
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите перевести код программы из с++ в с# ollien Помощь студентам 1 02.12.2013 17:30
Помогите перевести на VBA never_mind Microsoft Office Excel 23 13.04.2010 07:58
Помогите перевести на C++ Пaвeл Общие вопросы C/C++ 2 12.11.2009 19:02
Помогите перевести с C++ на Delphi Gerzs Общие вопросы Delphi 3 16.10.2009 02:20
Помогите перевести на С Foxtrot_1 Помощь студентам 1 20.06.2009 21:42