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

[nadyaH]

Описать функцию IsPrime(N) логического типа, возвращающую TRUE, если целый параметр N (>1) является простым числом, и FALSE в противном случае (число, большее 1, называется простым, если оно не имеет положительных делителей, кроме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции IsPrime найти количество простых чисел в данном наборе.

в делфи 7.

как работает IsPrime?
и как вообще написать программу в делфи 7?

[eoln]

Чего-то Опера зависла, не хочет по-буржуйски печатать, а перезапускать пока не могу ) Примерно так

функция IsPrime(Н: интежЫр): болевар;
бежим
  фор и := 2 то Н див 2 ду
    иф Н мод и = 0 тхен бежим
      результ := FALSE;
      эксит
    энд;
  результ := TRUE
энд

Осталось применить эту ф-ию для каждого числа.

[nadyaH]

var
Sum,i,a:integer;
function IsPrime(N:integer):boolean;
var
j:integer;
D:boolean;
begin
D:=true; j:=2;
While sqrt(N)>=j do
begin
if (N mod j)=0 then D:=false;
inc(j);
end;
IsPrime:=D;
end;
begin
sum:=0;
Writeln('Введите 10 целых чисел ');///не знаю как вот эту часть сделать?
for i:=1 to 10 do
begin
read(a);
if IsPrime(a) then inc(sum);
end;
edit2.text:=strtofloatSum);
end;
end.

[Stilet]

не знаю как вот эту часть сделать?

Не понял? Какую часть?

[nadyaH]

Writeln('Введите 10 целых чисел ')

[Serge_Bliznykov]

а мне нравится такой вариант: тыц

eoln, отличный ход!

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

Writeln('Введите 10 целых чисел ')

Вы, наверное, неправильно поняли своё задание.
Нужно ввести десять целых чисел, каждое из который больше единицы.
И из них выбрать те, которые являются простыми числами, и подсчитать их КОЛИЧЕСТВО (а не сумму, как Вы пытаетесь).

[nadyaH]

десять ячеек делать и в каждую вводить по числу?

[Serge_Bliznykov]

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

десять ячеек делать и в каждую вводить по числу?

О! я понял, что у Вас вызвало трудность!

Writeln('Введите 10 целых чисел ');///не знаю как вот эту часть сделать?
...
read(a);
....
edit2.text:=strtofloatSum);

нельзя в одну упряжку впрясть коня и трепетную лань.
Программа может быть либо консольная (и тогда в ней работают операции ввода и вывода в консоль (это Write/WriteLn/Read/ReadLn), либо оконная (окна == Windows), в рамках Delphi это называется Windows Application + Forms.

судя по тому, что у Вас есть edit2.text - у Вас оконное приложение?!
Тогда нельзя использовать WriteLn и Read
вводить данные можно либо через визуальные контролы (например, TStringGrig или забить деять чисел в Memo, либо, брутально, кинуть десять TEdit), либо через ShowMessage + InputBox...
я бы рекомендовал через TStringGrid (хоть он и кривой, но для вашей задачи подойдёт)


p.s. обратите внимание, что у Вас считается сумма простых чисел, а Вам надо считать количество!

[Poma][a]

а мне нравится такие варианты: тыц или тырк

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

[nadyaH]

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