KOD cpp: UKRYJ
//---------------------------------------------------------------------------
#include <vcl.h>
#include <math.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
class trojkat
{
private:
double bok1;
double bok2;
double bok3;
public:
trojkat();
trojkat(float a, float b, float c);
float obwd() ;
float pole() ;
void spr () ;
};
//--------------------------------------------------------------------------------
trojkat dane;
//--------------------------------------------------------------------------------
trojkat::trojkat()
{
}
//--------------------------------------------------------------------------------
trojkat::trojkat(float a, float b, float c)
{
bok1==a;
bok2==b;
bok3==c;
}
//--------------------------------------------------------------------------------
float trojkat::obwd(){
float suma1=0;
suma1=bok1+bok2+bok3;
return(suma1);
}
//--------------------------------------------------------------------------------
float trojkat::pole(){
float polowa=0;
float pole_s=0;
polowa=(bok1+bok2+bok3)/2;
pole_s=sqrt(polowa*(polowa-bok1)*(polowa-bok2)*(polowa-bok3));
return(pole_s);
}
void trojkat::spr()
{
if ((bok1<0)||(bok2<0)||(bok3<0)){
MessageBox(NULL, "Długosc nie może byc ujemna!!!", NULL, MB_ICONWARNING);
}
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try{
trojkat(Edit1->Text.ToDouble(),Edit2->Text.ToDouble(),Edit3->Text.ToDouble());
}
catch(...){
MessageBox(NULL, "Upwenij sie czy aby napewno wpisałes liczbe!!!", NULL, MB_ICONWARNING);
}
dane.spr();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit4->Text=dane.pole();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Edit4->Text=dane.obwd();
}
//---------------------------------------------------------------------------
#include <vcl.h>
#include <math.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
class trojkat
{
private:
double bok1;
double bok2;
double bok3;
public:
trojkat();
trojkat(float a, float b, float c);
float obwd() ;
float pole() ;
void spr () ;
};
//--------------------------------------------------------------------------------
trojkat dane;
//--------------------------------------------------------------------------------
trojkat::trojkat()
{
}
//--------------------------------------------------------------------------------
trojkat::trojkat(float a, float b, float c)
{
bok1==a;
bok2==b;
bok3==c;
}
//--------------------------------------------------------------------------------
float trojkat::obwd(){
float suma1=0;
suma1=bok1+bok2+bok3;
return(suma1);
}
//--------------------------------------------------------------------------------
float trojkat::pole(){
float polowa=0;
float pole_s=0;
polowa=(bok1+bok2+bok3)/2;
pole_s=sqrt(polowa*(polowa-bok1)*(polowa-bok2)*(polowa-bok3));
return(pole_s);
}
void trojkat::spr()
{
if ((bok1<0)||(bok2<0)||(bok3<0)){
MessageBox(NULL, "Długosc nie może byc ujemna!!!", NULL, MB_ICONWARNING);
}
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try{
trojkat(Edit1->Text.ToDouble(),Edit2->Text.ToDouble(),Edit3->Text.ToDouble());
}
catch(...){
MessageBox(NULL, "Upwenij sie czy aby napewno wpisałes liczbe!!!", NULL, MB_ICONWARNING);
}
dane.spr();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit4->Text=dane.pole();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Edit4->Text=dane.obwd();
}
//---------------------------------------------------------------------------
Mozesz mi powiedziec czemu nie działa procedura pole i obwód? Bo mam za pomoca konstruktora przypisać zmienne




