Перейти к содержанию
Fire Monkey от А до Я
  • 0

Перевод кода из Delphi/Pascal в C++


Stefan Lings

Вопрос

#include <vcl.h>
#pragma hdrstop
#include <math.h>

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Memo1->Clear();
Memo1->Lines->Add("Лабораторная работа №3");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double a,b,x,h,s,y,m;
int n,zn=-1,k,f,i;
a=StrToFloat (Edit1->Text);
b=StrToFloat (Edit2->Text);
n=StrToInt (Edit3->Text);
h=StrToFloat (Edit4->Text);
for (x=a;x<=b;x+=h){
y=cos(x);
for (k=s=1;k<=n;k++){
for(i=f=1;i<=2*k;i++)
f*=i;
s+=pow(zn,k)*pow(x,(2*k))/f;
m=fabs(y-s);

}

Memo1->Lines->Add(" при x= "+FloatToStrF(x,ffFixed,8,2)+" сумма= "
+FloatToStrF(s,ffFixed,8,5)+" y= "+FloatToStrF(y,ffFixed,8,5)
+" |Y(x)-S(x)|= "+FloatToStrF(m,ffFixed,8,5));
}
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Clear();
}

Ссылка на комментарий

Рекомендуемые сообщения

Ответов пока нет

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...