создание програмы на делфи циклы:ввести натуральное число и определять, можно ли число представить в виде суммы двух простых чисел

[Костяхалк]

1. Разработать приложение «Разложение на простые слагаемые».
Приложение должно позволять пользователю ввести натуральное число и определять, можно ли данное число представить в виде суммы двух слагаемых, каждое из которых является простым числом.
Определение возможности представления числа в виде суммы двух простых слагаемых должно быть реализовано в потоке.
Результаты («да» или «нет» и, слагаемые – для случая «да») должны выводиться в поле Memo.

[Serge_Bliznykov]

Сообщение от Костяхалк

благодорю))) давайте со второй разберемся

Пожалуйста!

А со второй тоже всё просто (если не брать во внимание реализацию в потоке)...

Без потока.
берём функцию проверки числа на простоту
(например, вот эту:

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

пишем цикл от 2 до N-2 и в нём проверяем оба слагаемых на простоту.
если да - прерываем цикл и выходим. Нет - значит не вышло:

isFound := false;
i:=2;
while i<=(N-2) and Not isFound do 
   if  isPrime(i) and isPrime(N-i) then isFound := true
   else Inc(i);
 
if isFound then Memo1.Append('ДА') else Memo1.Append('НЕТ!')

[Костяхалк]

грусть печаль

[Костяхалк]

мне кажеца что я совсем потеряный человек . и тупо не выходит подобное

[Костяхалк]

ссори м

[Костяхалк]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TfrmMain = class(TForm)
memResults: TMemo;
btnOk: TButton;
edNum: TEdit;
edNum2: TEdit;
lbNum: TLabel;
procedure btnOkClick(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

TmyTread = class(TThread) // описание типа потока
private
// переменные, которые нужны потоку для работы
number: cardinal; // исходное число (задается из основного потока при запуске текущего потока)
number2: cardinal;
result: string; // результат, сформированный в формате строки

// процедура обращения к визуальному компоненту (Memo)
procedure WriteRes;
{ Private declarations }
protected
procedure Execute; override;
end;


var
frmMain: TfrmMain;

implementation



{$R *.dfm}

procedure TfrmMain.btnOkClick(Sender: TObject);
var s: string; // вспомогательная строковая переменная
s2: string;
num: cardinal; // введенное пользователем число
num2: cardinal;
cod: integer; // код преобразования строка -> число
cod2: integer;

Thr: TmyTread; // переменная типа "поток TmyThread"

begin
s:=edNum.Text; // "считываем" введенное пользователем значение
s2:= edNum2.Text;
val(s,num,cod); // пытаемся преобразовать считанный текст в число
val(s2,num2,cod2);
if (cod<>0) OR (num=0)
then // если преобразовать введенное пользователем значение в целое число не удалось или пользователь ввел ноль
begin
memResults.Lines.Add(s+' - некорректное значение'); // добавляем запись в Memo
edNum.clear; // выделяем введенное пользователем значение
edNum.SetFocus; // устанавливаем фокус в поле для ввода исходного числа
exit; // выходим из процедуры обработки события
end;

// если пользователь ввел корректное данное
edNum.Clear; // очищаем поле ввода
edNum.SetFocus; // устанавливаем в него фокус

edNum2.Clear; // очищаем поле ввода
edNum2.SetFocus;

Thr := TmyTread.Create(True); // вызываем конструктор (метод Create) для нашего потока, т.е. создает новый поток
Thr.FreeOnTerminate := True; // устанавливаем свойство FreeOnTerminate в true (когда поток будет завершен, он освободит ресурсы)
Thr.number:=num; // передаем число
Thr.number2:=num2;
Thr.Resume; // запускаем поток

end;

procedure TmyTread.Execute;
var i,count: cardinal;
begin
{
count:=2; // у любого числа (кроме единицы) есть два делителя: единица и оно само
for i:=2 to number-1 do
if number mod i =0 // если заданное пользователем число без остатка делится на i
then inc(count); // мы нашли еще один делитель, поэтому увеличиваем количество делителей.
str(count,result); // преобразуем полученное кол-во делителей в строковый тип
// sleep(50); // задержка (не нужна для вычислений, используется толко для демонстрации
}

while (number<>0) and (number2<>0) do
if number2>number
then number2:=number2 mod number;
else number:=number mod number2;
if number2=0
then count:=number;
else count:=number2;

str(count,result);

Synchronize(WriteRes);
end;

procedure TmyTread.WriteRes;
begin
frmMain.memResults.lines.add('исход ные числа: ' + IntToStr(number)+ ' , ' + IntToStr(number2)+ '; НОД:'+ result + ' .');
end;


end.

[Костяхалк]

как сделать чтоб это работало?

[Костяхалк]

вот что получаеца

[Serge_Bliznykov]

if number2>number 
 then number2:=number2 mod number; 
 else number:=number mod number2;
 if number2=0 
 then count:=number; 
 else count:=number2;

как минимум, нужно везде перед ELSE удалить точку с запятой (для примера я пометил красным).

[Костяхалк]

unit1.pas(109,24) Error: Incompatible type for arg no. 1: Got "untyped", expected "<procedure variable type of procedure of object;Register>"
Synchronize(WriteRes);
ошибка