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

[Serge_Bliznykov]

Сообщение от Poma][a

А ведь "тырк" сщитает не правильно.. Контрпример : 1

О! Вы правы! Стыжусь!
(и сейчас исправлю пост выше, выкину ссылку на некорректный "тырк"!)

Сообщение от nadyaH

если честно то что вы написали, мне эти слова не о чём не говорят.

nadyaH, не понял. Какие именно слова Вам ни о чём не говорят?
О том, что нужно на форму кинуть TStringGrid на десять ячеек, включить редактирование (чтобы можно было вводить числа в грид), и дальше в коде проверять эти ячейки?!

[Poma][a]

Предлагаю код на замену тырк

[nadyaH]

как это в программу ввести что и куда нажать и что написать?
чтобы ввод данных был правильным!

[Serge_Bliznykov]

на форму нужно кинуть TStringGrid, настроить его для ввода данных.
И всё.
Никакого контроля за вводом данных (ну, кроме того, что должно быть внесено 10 целых натуральных чисел) в вашей задаче не нужно.

[nadyaH]

var
Sum,i,a:integer;
function IsPrime(N:integer):boolean;
var
N1,N2,N3,N4,N5,N6,N7,N8,N9,N10:integer;
D,I:boolean;
begin
sum:=0;
N1:=STRTOINT(EDIT1.TEXT);
N2:=STRTOINT(EDIT2.TEXT);
N3:=STRTOINT(EDIT3.TEXT);
N4:=STRTOINT(EDIT4.TEXT);
N5:=STRTOINT(EDIT5.TEXT);
N6:=STRTOINT(EDIT6.TEXT);
N7:=STRTOINT(EDIT7.TEXT);
N8:=STRTOINT(EDIT8.TEXT);
N9:=STRTOINT(EDIT9.TEXT);
N10:=STRTOINT(EDIT10.TEXT); ///'ВВЕДИТЕ 10 ЦЕЛЫХ ЧИСЕЛ '
D:=true;
For i:=2 to n div 2 do
     if (n mod i)= 0 then
     Begin
       D:=false;
       break;
     End;
IsPrime:=D AND (N>1);
end;
begin
for i:=1 to 10 do
begin
read(a);
if IsPrime(a) then inc(sum);
end;
EDIT11.Text:=FLOATTOSTR(SUM);
end;END.

[Vanta11a]

Переменные

n,sum

не объявлены.
Функция

IsPrime

не описана

IsPrime:=D AND (N>1);

WTF?

[Mad_Cat]

Давным-давно от нечего делать прорешивал задачник господина Абрамяна на паскале

{Proc28. Описать функцию IsPrime(N) логического типа, возвращающую TRUE,
если целый параметр N (>1) является простым числом, и FALSE в
 противном случае (число, большее 1, называется простым,
 если оно не имеет положительных делителей, кроме 1 и самого себя).
 Дан набор из 10 целых чисел, больших 1.
С помощью функции IsPrime найти количество простых чисел в данном наборе.}
program proc28;
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
   readln(a);
   if isprime(a) then  inc(c);
 end;
writeln(c);
readln;
end.

[nadyaH]

ЧТО ЗНАЧИТ isprime?
ПОЧЕМУ ДЕЛФИ ВЫДАЁТ ОШИБКУ В ЭТО СТРОКЕ?

 readln(a);

[Mad_Cat]

ЧТО ЗНАЧИТ isprime?

Описать функцию IsPrime(N)

ПОЧЕМУ ДЕЛФИ ВЫДАЁТ ОШИБКУ В ЭТО СТРОКЕ?

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

[nadyaH]

И КАКУЮ СТРОЧКУ МНЕ НУЖНО ПОМЕНЯТЬ?