Перевод из Бэйсика в Паскаль

[veniside]

процедуры и функции часто путают, говорят одно, подразумевают другое. Но если вы на 100% уверены, что это должна быть именно процедура, то делается это просто: объявление переменной "res: Boolean;" из моей функции prime() выносим за пределы функции, функцию превращаем в процедуру, после вызова которой проверяем, что там в res. Фактически так, как у вас с переменными first, second.

[Heming]

Program lab6;
var first,second:Boolean;


function prime(v: Integer): Boolean;
var
  d, m: Integer;
  res: Boolean;
begin
  if (v < 3) then prime := (2 = v)
  else begin
    //
    res := true;
    d := 3;
    m := trunc(sqrt(v)) + 1;
    //
    while (res and (d <= m)) do
      if (0 = (v mod d)) then
        res := false
      else
        inc(d, 2);
    //
    prime := res;
  end;
end;

Procedure prostota(var z,b:integer);
begin
first := prime(z);
second := prime(b);
end;
 var x,y,n:integer;
begin
write('Введите n(>4)');
readln(n);
x:=3;
y:=n-x;
while (x<=y) do begin
prostota(x,y);
if (first=True) and (second=True) then
   writeln('n-x=', n-x, ';  x=', x);
  inc(x,2);
end;
  readln;
    end.

Где ошибка, он у меня считает только для 16 и то неправильно

[veniside]

y должен пересчитываться внутри while(), а не один раз снаружи

http://ideone.com/ujn7M

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

[Heming]

Во, точно , спасибо огромное!!!!!