Advertisement
Guest User

Untitled

a guest
Mar 26th, 2019
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.60 KB | None | 0 0
  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5.  
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13. : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17. void __fastcall TForm1::N1Click(TObject *Sender)
  18. {
  19. Close ();
  20. }
  21. //---------------------------------------------------------------------------
  22. void __fastcall TForm1::N3Click(TObject *Sender)
  23. {
  24. Memo1->Clear();
  25.  
  26. }
  27. //---------------------------------------------------------------------------
  28. void __fastcall TForm1::Button1Click(TObject *Sender)
  29. {
  30. float x, y;
  31. float a = StrToFloat(Edit1->Text);
  32. float b = StrToFloat(Edit2->Text);
  33. float h = StrToFloat(Edit3->Text);
  34. if (CheckBox1->Checked==true) {
  35. Memo1->Lines->Append(CheckBox1->Caption);
  36. Memo1->Lines->Append("X\tY");
  37. for (x = a; x<b+h/2; x+=h)
  38. {
  39. y=sin(x);
  40. Memo1->Lines->Append(FloatToStrF(x, ffFixed,2,2)+'\t'+FloatToStrF(y, ffFixed, 2, 2));
  41. }
  42. } else if (CheckBox2->Checked==true) {
  43. Memo1->Lines->Append(CheckBox1->Caption);
  44. Memo1->Lines->Append("X\tY");
  45.  
  46. for (x = a; x<b+h/2; x+=h)
  47. {
  48. y=cos(x);
  49. Memo1->Lines->Append(FloatToStrF(x, ffFixed,2,2)+'\t'+FloatToStrF(y, ffFixed, 2, 2));
  50. }
  51. }
  52. }
  53. //---------------------------------------------------------------------------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement