Перейти к содержанию

Stefan Lings

Пользователи
  • Активность

    1
  • Зарегистрирован

  • Посещение

Информация о Stefan Lings

  • Звание
    Новичок
  1. #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(); }
×
×
  • Создать...