Мазмұны кіріспе 3 Қорытынды Пайдаланылған әдебиеттер кіріспе
Download 0.71 Mb.
|
1 2
Bog'liqKalmahan Zh
- Bu sahifa navigatsiya:
- ҚОРЫТЫНДЫ ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР
Do while циклі
Do while циклі while циклына өте ұқсас. Жалғыз айырмашылық - do while циклі орындалған кезде циклдің бір өтуі шартқа қарамастан орындалады. Цикл
Label 1, Label 2, Label 3, Label 4, Edit 1, Edit 2, Edit 3,Edit 4, Memo 1, Button 1, Button 2. 5-сурет. 6-сурет. 7-сурет. Функция. 8-сурет. Нәтижесі. #include "math.h" typedef double (*TFun)(double); double fun1 (double); double fun2 (double); void Out_Rez(TFun , double, , double, , double, Tmemo*); #include #pragma hdrstop #include "math.h" #include "Unit2.h" typedef double (*TFun)(double); //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" double fun1 (double); double fun2 (double); void Out_Rez(TFun ,double, double, double, TMemo*); TForm2 *Form2; //--------------------------------------------------------------------------- __fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm2::Button1Click(TObject *Sender) { double a,b,h; a=StrToFloat(Edit1->Text); b=StrToFloat(Edit2->Text); h=StrToFloat(Edit3->Text); switch(RadioGroup1->ItemIndex){ case 0:Out_Rez (fun1,a,b,h,Memo1); break; case 1:Out_Rez (fun2,a,b,h,Memo2); break; } } double fun1(double r) { return 2*exp(r*r); } double fun2(double r) { return pow(sin(r),2); } void Out_Rez(TFun f,double xn,double xk,double h,TMemo *mem) { for(double x=xn; x<=xk; x+=h) mem->Lines->Add("x="+FloatToStrF(x,ffFixed,8,2)+"y="+FloatToStrF(f(x),ffFixed,8,4)); }
//--------------------------------------------------------------------------- ҚОРЫТЫНДЫ ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР file:///C:/Users/BIB-516169/Downloads/C++%20Builder%206.%20%D0%9A%D0%BD%D0%B8%D0%B3%D0%B0%201.%20%D0%AF%D0%B7%D1%8B%D0%BA%20C++%20(%20PDFDrive%20).pdf http://codenet.ru/progr/bcb/borland_builder/3.php Download 0.71 Mb. Do'stlaringiz bilan baham: |
1 2
Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling
ma'muriyatiga murojaat qiling