Простое число
Листинг 2.7. Простое число
unit simple_;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton; // кнопка Проверить
Label1: TLabel;
Edit1: TEdit; // поле ввода числа
Label2: TLabe1; // поле вывода результата
procedure ButtonlClickfSender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ButtonlClick(Sender: TObject) ;
var
n: integer; // проверяемое число d: integer; // делитель
r: integer; // остаток от деления п на d
begin
n:=StrToInt(Editl.text);
d := 2; // сначала будем делить на два
repeat
r := n mod d;
if r <>
0 // n не разделилось нацело на d
then d := d + 1;
until r = 0; // найдено число, на которое п разделилось без остатка
label2.caption:=Edit1.text;
if d = n
then Iabel2.caption:=label2.caption + ' — простое число.'
else label2.caption:=label2.caption + ' — обычное число.';
end;
end.
