Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

ООП / C++ / Lab2C / ex3 / Unit1

.h
Скачиваний:
74
Добавлен:
18.02.2017
Размер:
2.04 Кб
Скачать
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <string>
#include <cmath>
using namespace std;
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
	TEdit *Edit1;
	TButton *Button1;
	TButton *Button2;
	TButton *Button3;
	TButton *Button4;
	TButton *Button5;
	TButton *Button6;
	TButton *Button7;
	TButton *Button8;
	TButton *Button9;
	TButton *Button10;
	TButton *Button11;
	TButton *Button12;
	TButton *Button13;
	TButton *Button14;
	TButton *Button15;
	TButton *Button16;
	TButton *Button17;
	void __fastcall Button13Click(TObject *Sender);
	void __fastcall Button16Click(TObject *Sender);
	void __fastcall Button14Click(TObject *Sender);
	void __fastcall Button15Click(TObject *Sender);
	void __fastcall Button17Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
	bool isfractal, isstart;
	int op;
	float a, b;
	String result;
	__fastcall TForm1(TComponent* Owner);
};
int round(double number)
{
	return (number >= 0) ? (int)(number + 0.5) : (int)(number - 0.5);
}
String compute(float a, float b, int op) {
	switch (op) {
	case 1:
		return FloatToStr(round((a+b)*1000)/1000.0);
		break;
	case 2:
		return FloatToStr(round((a-b)*1000)/1000.0);
		break;
	case 3:
		return FloatToStr(round((a*b)*1000)/1000.0);
		break;
	case 4:
		if (b == 0) {
			return "Деление на нуль невозможно";
		}
		else {
			return FloatToStr(round((a/b)*1000)/1000.0);
			break;
		}
	default:
		;
	}
}
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
Соседние файлы в папке ex3