Тема:Програми з розгалуженням

1. Розв’язок програми мовою C++ R=8,269.

1. Розв’язок програми мовою C++ R=2.892

3. Код програми

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

#include <vcl.h>

#include <math.h>

#pragma hdrstop

#include "Unit1.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

float t,a=6.347,b=21.4,r1=8.269,r2=2.892;

if (RadioButton1->Checked) t=(a*a+sqrt(r1))/log(r1+b)*log(r1+b);

if (RadioButton2->Checked) t=sqrt(a*exp(r2))/r2;

Edit3->Text=FloatToStr(t);

}

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