Задача с исп. цикла, где-то ошибка... Опции

[Танкистка]

Составить программу для проверки утверждения: « Результатами вычислений по формуле (x*х) + x + 49 при 0<=x<= 40 являются простые числа». Все результаты вывести на экран.

Program Proverka;
Var x,p,r,d:integer;
begin
writeln('Resyltatom vichislenii po formule x*x+x+49');
writeln('pri 0<=x<=40');
writeln('yavlyaetsya prostoe chislo');
for x:=0 to 40 do
p:=(x*x)+x+49;
d:=2;
repeat r:=p mod d;
if r<>0 then d:=d+1;
until r=0;
if d=p then writeln('ytver*denie verno')
else writeln('ytverjdenie ne verno');
readln;
end.

Проблема в том, что в мой цикл входит тока первое действие, а мне надо чтобы всё, но если сделать всё, то неск раз выведутся сообщения. Короче, видимо как-то надо поменять проверку на простоту.... вообщем, плиз, подумайте, любые предложения принимаюся....

М

Используй теги! Lapp

Сообщение отредактировано: lapp - 25.11.2006 14:50

[Lapp]

Во-первых, у тебя тело первого цикла (по x) не взято в операторные скобки.
Во-вторых, второй цикл не закончится, если утверждение верно.
Короче, я бы сделал типа так..

Var
  x,p,r,d,sp:integer;
  Yes:boolean;
begin
  Yes:=true;
  for x:=0 to 40 do begin
    p:=(x*x)+x+49;
    sp:=Trunc(Sqrt(p));
    for d:=2 to sp do begin
      r:=p mod d;
      Yes:=Yes and(r>0);
      {if r=0 then writeLn(x,'   ',d)}
    end
  end;
  if Yes then WriteLn('Correct') else WriteLn('Incorrect');
  readln;
end.

Можно добавить break'и, чтоб выходило сразу по нахождении первого делителя, но оно и так быстро считается..
Закомментированный оператор позволяет увидеть, какие именно значения не простые (если захочется ).