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

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

Вернуться   Форум программистов > C/C++ программирование > Общие вопросы C/C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.03.2013, 23:46   #1
Ennchik
Новичок
Джуниор
 
Регистрация: 04.03.2013
Сообщений: 2
По умолчанию перевести с С++ на Delphi

Здравстуйте!Нужна помощь, надо перевести програму с С++ на язык Delphi!
С++ вообще не понимаюПомогите пожалуйста

Вот программа на С++

#include <iostream>

using namespace std;

const int n=10;
double IA[2][n];

double difference(int s, int n) //Возвращает значение разделенной разности от аргументов Xs,...Xn
{
if (n-s==1)
{
return ((IA[1][n]-IA[1][s])/(IA[0][n]-IA[0][s]));
}
else
{
return ((difference(s+1,n)-difference(s,n-1))/(IA[0][n]-IA[0][s]));
}
}

int main()
{
double X, Result, K=1;
//
cout<<"Таблица значений функции введена статично.\n"; //Для функции f(x)=x^2+3x
cout<<"Укажите точку, в которой необходимо интерполировать функцию.\n";
cin>>X;
IA[0][0]=-4; IA[1][0]=4;
IA[0][1]=-3; IA[1][1]=0;
IA[0][2]=-2; IA[1][2]=-2;
IA[0][3]=-1; IA[1][3]=-2;
IA[0][4]=0; IA[1][4]=0;
IA[0][5]=1; IA[1][5]=4;
IA[0][6]=2; IA[1][6]=10;
IA[0][7]=3; IA[1][7]=18;
IA[0][8]=4; IA[1][8]=28;
IA[0][9]=5; IA[1][9]=40;

Result=IA[1][0];

for(int i=0; i<(n-1); i++)
{
K*=(X-IA[0][i]);

Result+=K*difference(0, i+1);
}

cout<<"\nИнтерполированное значение:\nP(x)="<<Result<<"\n";

//Все работает, я проверил. Вообще говоря неплохо было бы написать класс для хранения и вывода многочленов, но задача того не стоит.


return 0;
}
Ennchik вне форума Ответить с цитированием
Старый 04.03.2013, 23:47   #2
_Bers
Старожил
 
Регистрация: 16.12.2011
Сообщений: 2,329
По умолчанию

http://programmersforum.ru/showthread.php?t=34061
_Bers вне форума Ответить с цитированием
Старый 04.03.2013, 23:52   #3
Ennchik
Новичок
Джуниор
 
Регистрация: 04.03.2013
Сообщений: 2
По умолчанию понятно

понятно
Ennchik вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевести задачу из C# в Delphi Надежда_ИСУ Помощь студентам 41 08.02.2013 14:37
перевести код на С++ из Delphi yakuza Общие вопросы C/C++ 1 24.04.2011 00:06
Перевести с языка Си на Delphi Ermowkin Общие вопросы Delphi 1 21.04.2011 19:09
перевести из C++ в Delphi FileExists Помощь студентам 2 06.12.2008 21:17
Перевести с С++ на Delphi DeFaber Общие вопросы C/C++ 2 12.01.2008 06:02