нахождение простых чисел Опции

[He!!]

В файле А.dat дано натуральное n и массив целых чисел длины n. B файл B.dat выписать все элементы массива X, индексы которых являются простыми числами. Распознование простого числа оформить в виде подпрограммы.
Очень надо решить эту задачу))) ПлиЗ

Добавлено через 2 мин.
вот что я попытался сделать, но тут есть ошибки в самой программе, а исправить незнаю как

program Kurs;

procedure nat(i:integer;var k:integer);
var n,s:integer;
begin
s:=0;
for n:=1 to i-1 do
if i mod n = 0 then s:=s+1;
if s=0 then k:=i; end;

var f:text;
a:array[1..10] of integer;
c:array[1..10] of integer;
n,i,j,k:integer;

begin
assign(f,'a.dat');
reset(f);
read(f,n);

for i:=1 to n do
read(f,a[i]);

for i:=1 to n do
write(f,a[i]);

for j:=1 to 10 do
for i:=1 to n do begin
nat(i,k);
c[j]:=a[k];
end;

writeln;
for j:=1 to 10 do
write(c[j]);

close(f);
assign(f,'b.res');
rewrite(f);
writeln;
for j:=1 to n do
write((f,c[j]);
Close(f);

end.

Сообщение отредактировано: He!! - 23.12.2008 2:42

[Lapp]

Вот работающая программа. Извини, твою править было долго и не очень осмысленно - ошибки как в программировании, так и в идее.
Если непонятно, спрашивай.

function IsPrime(n: integer): boolean;
var
  i,k: integer;
  b: boolean;
begin
  b:=(i>1);
  i:=2;
  k:=Trunc(Sqrt(n));
  while (i<=k) and b do begin
    b:=(n mod i>0);
    Inc(i)
  end;
  IsPrime:=b
end;

var
  f,g: text;
  n,i,a: integer;

begin
  assign(f,'a.dat');
  reset(f);
  ReadLn(f,n);
  assign(g,'b.dat');
  ReWrite(g);
  for i:=1 to n do begin
    read(f,a);
    if IsPrime(i) then WriteLn(g,a)
  end;
  Close(f);
  Close(g)
end.

2 Unconnected:
вопрос был не только в том, чтоб заставить программу компилироваться. Иначе всегда можно предложить вариант

begin
end.

[Lapp]

Вот, привел некоторые комментарии. Попробуй разобраться. Если все же не получится - говори.

function IsPrime(n: integer): boolean;  { IsPrime = ЯвляетсяПростым (с английского) } 
var
  i,k: integer;
  b: boolean;   { будет true, пока (и если) не обнаружится, что число составное }

begin

  b:=(n>1);   { инициализация b, заодно отсечение числа 1, которое не простое, равно true, если n>1 }

  i:=2;  { инициализация счетчика цикла }

  k:=Trunc(Sqrt(n));   { верхний предел цикла - квадратный корень из числа.  Дальше проверять нет смысла }

  while (i<=k) and b do begin   { цикл до верхнего предела или пока не поделится нацело }

      b:=(n mod i>0);  { true, если число НЕ делится нацело на i (то есть остаток есть) }

      Inc(i)   { увеличиваем параметр цикла }

  end;

  IsPrime:=b  { Присваиваем возвращаемый результат }

end;

[He!!]

я разобрался в программе, но проверяя число три, оно у меня не получается простым. k получается равным 1, а
i=2,тоесть у нас i<k, значит цикл ниразу не выполняется

Добавлено через 5 мин.

я разобрался в программе, но проверяя число три, оно у меня не получается простым. k получается равным 1, а
i=2,тоесть у нас i<k, значит цикл ниразу не выполняется

Наверное значиние true к b присваевается когда b:=(n>1) и так и остается то конца функции, те число три простое

Сообщение отредактировано: He!! - 24.12.2008 1:52

[Lapp]

я разобрался в программе, но проверяя число три,

Ты исправил ошибку, которую заметил volvo? Первая строка исполняемого кода в функции.

неправильно:

b:=(i>1);

нужно:

b:=(n>1);

Добавлено через 5 мин.

Наверное значиние true к b присваевается когда b:=(n>1) и так и остается то конца функции, те число три простое

Именно так.