Лабораторная работа № 10

Самостоятельная работа № 4.

Простое число

Тема: Математические вычисления.

Цель: Научить использовать компоненты.

Выработать навыки для создания простейших

компьютерных программ.

Вызвать интерес к изучению предмета.

Напишите программу, которая проверяет целые числа. Рекомендуемый вид диалогового окна приведен на рис.1.

Рис.1

Рабочая форма

Компоненты

Код программы:

class TForm1 : public TForm

{

__published: // IDE-managed Components

TLabel *Label1;

TLabel *Label2;

TButton *Button1;

TEdit *Edit1;

void __fastcall Button1Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm1(TComponent* Owner);

};

void __fastcall TForm1::Button1Click(TObject *Sender)

{

int n,flag,i;

n=StrToInt(Edit1->Text);

for (i=2,flag=0;i<n;i++)

if (!(n%i))

flag=1;

Label2->Caption=Edit1->Text;

if (!flag)

Label2->Caption=Label2->Caption +" - простое число.";

else

Label2->Caption=Label2->Caption + " - сложное число.";