|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.03.2013, 23:46 | #1 |
Новичок
Джуниор
Регистрация: 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; } |
04.03.2013, 23:47 | #2 |
Старожил
Регистрация: 16.12.2011
Сообщений: 2,329
|
|
04.03.2013, 23:52 | #3 |
Новичок
Джуниор
Регистрация: 04.03.2013
Сообщений: 2
|
понятно
понятно
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевести задачу из 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 |