Описать функцию IsPrime(N) логического типа...

[nadyaH]

я сделала 10 полей ввода.программа работает но не правильно.

procedure TForm1.Button1Click(Sender: TObject);
function IsPrime(n:integer):boolean;
var i:integer;
begin
if n<=2 then begin isPrime:=true;exit;end;
isprime:=true;
i:=2;
while (i<=n-1) do
begin
if n mod i= 0 then isprime:=false;exit;end;
inc(i);
end;
var i,a,c:integer;
begin
c:=0;
for I := 1 to 10 do
 begin
   a:=STRTOINT(EDIT1.Text);
   if isprime(a) then  inc(c);
 end;
EDIT11.Text:=FLOATTOSTR(C);
end;END.

[BDA]

Так Вы берете число только из первого едита. Костыльчик:

procedure TForm1.Button1Click(Sender: TObject);
    function IsPrime(n:integer):boolean;
        var i:integer;
    begin
        if n<=2 then begin isPrime:=true;exit;end;
        isprime:=true;
        i:=2;
        while (i<=n-1) do
        begin
            if n mod i= 0 then begin isprime:=false;exit;end;
            inc(i);
        end;
    end;
var
    i, a, c: integer;
begin
    c:=0;
    for I := 1 to 10 do
    begin
        a:=STRTOINT(TEDIT(FindComponent('EDIT'+inttostr(i))).Text);
        if isprime(a) then  inc(c);
    end;
    EDIT11.Text:=INTTOSTR(C);
end;
END.

Также чуток отредактировал саму функцию.

[Serge_Bliznykov]

позволю себе для вполне приемлимого кода (c) BDA дать чисто индусский вариант кода:

procedure TForm1.Button1Click(Sender: TObject);
    function IsPrime(n:integer):boolean;
        var i:integer;
    begin
        if n<=2 then begin isPrime:=true;exit;end;
        isprime:=true;
        i:=2;
        while (i<=n-1) do
        begin
            if n mod i= 0 then begin isprime:=false;exit;end;
            inc(i);
        end;
    end;
var
    c: integer;
begin
    c:=0;
    if IsPrime(STRTOINT(EDIT1.Text)) then Inc(c);
    if IsPrime(STRTOINT(EDIT2.Text)) then Inc(c);
    if IsPrime(STRTOINT(EDIT3.Text)) then Inc(c);
    if IsPrime(STRTOINT(EDIT4.Text)) then Inc(c);
    if IsPrime(STRTOINT(EDIT5.Text)) then Inc(c);
    if IsPrime(STRTOINT(EDIT6.Text)) then Inc(c);
    if IsPrime(STRTOINT(EDIT7.Text)) then Inc(c);
    if IsPrime(STRTOINT(EDIT8.Text)) then Inc(c);
    if IsPrime(STRTOINT(EDIT9.Text)) then Inc(c);
    if IsPrime(STRTOINT(EDIT10.Text)) then Inc(c);
    EDIT11.Text:=INTTOSTR(C);
end;
END.

p.s. возможно, TC этот вариант будет понятнее, чем использование FindComponent и приведение типа компонента к TEdit...

[nadyaH]

если я ввожу числа 2,3,4,5,6,7,8,9,10,11
у меня выводит ответ: 5
правильный ответ?

[Poma][a]

А Вы знаете что такое простые числа? А Вы знаете как их определить? А Вы знаете как подсчитать кол-во каких либо чисел? Тогда вперед! Считайте!

Во избежание появления новых идиотских (пардон) постов : "Да! Ответ правильный"

[BDA]

А как Вы думаете?
ПС Опоздал

[nadyaH]

спасибо огромное что помогли мне разобраться потихоньку в этой задаче.

[Poma][a]

спасибо огромное что помогли мне разобраться потихоньку в этой задаче.

Разобраться? Хм.. ну тогда объясните пожалуйста, почему при проверке числа на простоту мы перебираем только до квадратного корня?

P.S. Давайте называть вещи своими именами..