RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Код :: выделить код Здравствуйте! У меня возникли сложности с таким вопросом: Код :: выделить код unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, math, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
n:integer;
implementation
{$R *.dfm}
function prost(n: integer): boolean;
var i,j: integer;
x: boolean;
begin
x:=true; i:=2;
j:=round(sqrt(n)); // îêðóãëÿåì êîðåíü ÷èñëà
repeat // ïîâòîðÿòü
if (n mod i)=0 then
begin
x:=false;
break; // êîíåö öèêëà
end;
i:=i+1;
until i>j; // äî
prost:=x;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Edit1.Text:=Inttostr(n);
n:=n+1;
while not prost(n) do n:=n+1;
ShowMessage('áëèæàéøåå ïðîñòîå ÷èñëî: '+InttoStr(n));
end;
end.
Дата отправки: 22.05.2016, 18:25 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, almazmr! Код (Pascal) :: выделить код unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, math, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
n:integer;
implementation
{$R *.dfm}
function prost(a: integer): boolean;
var
b:integer;
begin
b:=round(sqrt(a));
while((a mod b)>0)and(b>1)do
dec(b);
prost:=b=1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Form1.Edit1.Text);{ : ) =Inttostr(n);}
repeat
inc(n);
until prost(n);
ShowMessage('ближайшее простое число: '+InttoStr(n));
end;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
