контрольная работа

Белорусский государственный университет информатики и радиоэлектроники

КОНТРОЛЬНАЯ РАБОТА №1

по дисциплине ОАиП

Вариант №8

Выполнил: студент

1 курса заочного факультета

Минск 2009 г.

Задание 1

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "math.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Edit1->Text = "-2,235e-2";

Edit2->Text = "2,23";

Edit3->Text = "15,221";

Memo1->Clear();

Memo1->Lines->Add("задание ¹ 1");

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

double x, y, z, a, b, c, e, rez;

x = StrToFloat(Edit1->Text);

y = StrToFloat(Edit2->Text);

z = StrToFloat(Edit3->Text);

a = exp(fabs(x-y));

b = pow(fabs(x-y),x+y);

e = (atan(x)+atan(z));

c = pow(pow(x,6)+log(y)*log(y),1/3);

rez = a*b/e+c;

Memo1->Lines->Add("Ïðè õ = "+FloatToStrF(x,ffFixed,7,3)

+ "; y = "+FloatToStrF(y,ffFixed,7,3)+"; z = "+FloatToStrF(z,ffFixed,7,3));

Memo1->Lines->Add("Результат = "+FloatToStr(rez));

}

//---------------------------------------------------------------------------

Задание 2

//---------------------------------------------------------------------------

#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)

{

Edit1->Text="введите a";

Edit2->Text="введите c";

Edit3->Text="введите z";

Memo1->Clear();

Memo1->Lines->Add("задание ¹2");

RadioGroup1->ItemIndex = 0;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

double a,b,c,g,x,y,z,u,k,rez;

a=StrToFloat(Edit1->Text);

c=StrToFloat(Edit2->Text);

z=StrToFloat(Edit3->Text);

{

if(z>=0)x=2*z+1;

if(z<0)x=log(pow(z,2)-z);

Memo1->Lines->Add("x="+FloatToStrF(x,ffFixed,8,3));

}

switch(RadioGroup1->ItemIndex){

case 0: g=2*x;

Memo1->Lines->Add("g= "+FloatToStrF(g,ffFixed,8,3));

break;

case 1: g=pow(x,2);

Memo1->Lines->Add("g= "+FloatToStrF(g,ffFixed,8,3));

break;

case 2: g=x/3;

Memo1->Lines->Add("g= "+FloatToStrF(g,ffFixed,8,3));

break;

}

b=sin(g)*sin(g);

u=a*pow(cos(pow(x,3)),5);

k=c*log(pow(x,2/5));

rez=b+u+k;

Memo1->Lines->Add("Ïðè a = "+FloatToStrF(a,ffFixed,8,3)

+ "; c = "+FloatToStrF(c,ffFixed,8,3)+"; z = "+FloatToStrF(z,ffFixed,8,3));

Memo1->Lines->Add("y = "+FloatToStr(rez));

}

//---------------------------------------------------------------------------

Задание 3

//---------------------------------------------------------------------------

#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)

{

Edit1->Text="0,1"; Edit2->Text="1,0";

Edit3->Text="10"; Edit4->Text="0,1";

Memo1->Clear();

Memo1->Lines->Add("задание ¹3");

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

double a, b, x, h, r, s,z,q;

int n, k;

a = StrToFloat(Edit1->Text);

b = StrToFloat(Edit2->Text);

n = StrToInt(Edit3->Text);

h = StrToFloat(Edit4->Text);

for(x = a; x<=b; x+=h) {

r = s = 1;

for(k = 1; k<=n; k++) {

r = r*2*x/k;

s+=r;

z=exp(2*x);

q=s+fabs(z-s);

}

Memo1->Lines->Add("ïðè x= "+FloatToStrF(x,ffFixed,8,2)

+" S(x)= "+FloatToStrF(s,ffFixed,8,4));

Memo1->Lines->Add("Y(x) "+FloatToStrF(z,ffFixed,8,4));

Memo1->Lines->Add("Сумма= "+FloatToStrF(q,ffFixed,8,4));

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Memo1->Clear();

}

//---------------------------------------------------------------------------

Задание 4

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "math.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

typedef double (*TFun)(double);

double fun1(double);

double fun2(double);

void Out_Rez(TFun, double, double, double, TMemo*);

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

Edit1->Text="0,1"; Edit2->Text="1,0";

Edit3->Text="0,3";

Memo1->Clear();

Memo1->Lines->Add("Задание №4");

Memo2->Clear();

Memo2->Lines->Add("Задание №4");

RadioGroup1->ItemIndex=0;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::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 x){

return x;

}

double fun2(double x){

return exp(2*x);

}

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));

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Memo1->Clear();

Memo2->Clear();

}

//---------------------------------------------------------------------------