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

[Heming]

Помогите пожалуйста, я в бэйсике на шарю, а этот кусок кода очень нужен, кто разбирается и не затруднит переконвертите плз

[veniside]

код, имхо, бредовый. Что такое E в 13-й строке, хрен знает.

http://ideone.com/64gNO

(т.к. в оригинале выхода из цикла вобще нет, я добавил ограничение на 100 итераций)

[Heming]

Спс,огромное, я только пришел домой, сразу проверить, вечерком буду разбираться
а на счет бредовасти мб это прояснит ситуацию
http://kvant.mccme.ru/1992/06/proble...programmir.htm
Я просто еще не вникал в статью, мне просто друг, который с заядлой регулярностью штудирует квант, сказал мне что мол в этой статье есть код моей задачи на бейсике, он мне кинул картинку и ссылку, я сразу увидев код впал в печаль. Когда сделаю уже прогу, апну тему как "Проблема Гольдбаха" и выложу свое творенье.

[veniside]

дык надо было сразу с этого и начать, а не выкладывать творение неизвестного лаборанта, который упражнялся на бейсике в далёком 1970 году )

вот прога, работающая по описанному в конце статьи алгоритму.

http://ideone.com/e4Rbe

[Heming]

Спс, огромное, вы сделали даже больше чем я ожидал.

[Heming]

А можете обьяснить функцию проверки на простоту: в условии сказано что нои делят на все нечетные числа покак там не обьявится 0, а вы почему-то вместо деления берете корень квадратный из числа и прибавляете еденицу?!

[veniside]

Речь про эту строчку, как я понимаю:

m := trunc(sqrt(v)) + 1;

m — это верхний предел для делителей. Дальше делить нет смысла. Почему корень? Потому, что если число делится на нечто большее, чем корень из него, это станет известно гораздо раньше. Например, 125 делится на 25. Но это выяснилось бы при проверке делимости на 5 (5*25=125). Таким образом, нет смысла пробовать делить 125 на делители, которые больше корня из 125, т.е. больше 11.

Ну а +1 это страховка, т.к. округление trunc() работает вниз, просто чтобы случайно не пропустить какой-то последний делитель, рядом с корнем. Возможно, +1 и не нужно, лень думать, проще заставить комп сделать одно лишнее деление.

Кстати, то же самое относится и к основному циклу:

2n-k=61; k=5
2n-k=59; k=7
2n-k=53; k=13
2n-k=47; k=19
2n-k=43; k=23
2n-k=37; k=29
2n-k=29; k=37
2n-k=23; k=43
2n-k=19; k=47
2n-k=13; k=53
2n-k=7; k=59
2n-k=5; k=61

Легко заметить, что тут результаты симметричны относительно точки "2n-k=37; k=29", следовательно, достаточно досчитать до какой-то "средней" точки, после которой оставшиеся точки получаются из уже полученных прострым симметричным отображением левой части на правую и наоборот. Количество расчётов сокращается вдвое.

[Heming]

Я понял впринципе, я когда не разобрался с этим методом пытался воспользоваться Теоремой Вильсона, но потом понял что для больших числе будет беда, я в процедурах-фунцкиях новичок, но вот эту задачу мне нужно сделать процедурой(точнее нужна процедура нахождения простых чисел)
я понимаю что функцией делать логичней, как сделать это процедурой...?!
вот что я пытался сделать
вышел откровенный бред с кучей ошибок:

Program lab6;
var n,x,y:integer;first,second:Boolean;
function Factorial(m: integer): LongInt;
var
  fact: longint;
begin
  fact := 1;
  for m := 1 to m do
  fact := fact*m;
  Factorial := fact;
end;

Procedure prostota(var z,b:integer);
begin
if ((factorial(z-1)+1) mod z)=0 then
first:=True else first:=False;
if ((factorial(b-1)+1) mod b)=0 then
second:=True else second:=False;
end;

begin
write('Vvedite vashe parnoe chislo(>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);
   x:=x+2;
end;
 readln;
    end.

Можете обьяснить как переделать вашу функцию в процедуру для моей задачи(also решение в кванте и то что вы мне дали , это решение в общем случае, т.е. нижняя граница n и верхняя и куча вариантов, а у меня для фиксированного n, ну т.е. задает пользователь, хотя это и не так важно)

Кстати, то же самое относится и к основному циклу:

Цитата:
2n-k=61; k=5
2n-k=59; k=7
2n-k=53; k=13
2n-k=47; k=19
2n-k=43; k=23
2n-k=37; k=29
2n-k=29; k=37
2n-k=23; k=43
2n-k=19; k=47
2n-k=13; k=53
2n-k=7; k=59
2n-k=5; k=61
Легко заметить, что тут результаты симметричны относительно точки "2n-k=37; k=29", следовательно, достаточно досчитать до какой-то "средней" точки, после которой оставшиеся точки получаются из уже полученных прострым симметричным отображением левой части на правую и наоборот. Количество расчётов сокращается вдвое.

Я обязательно этим займусь когда в общем работаспособность выйдет

[veniside]

большого (да и маленького тоже) смысла в этом я не вижу, но вот как может выглядеть ваша процедура, если отбросить Вильсона с факториалами, и взять функцию prime() из моего кода без изменений:

procedure prostota(var z, b: integer);
begin
  first := prime(z): 
  second := prime(b);
end;

Гораздо логичнее, имхо, было бы вобще забыть про эту процедуру и вместо этих строчек:

prostota(x,y);
if (first=True) and (second=True) then

сделать такую проверку:

if ( prime(x) and prime(y) ) then ...

заодно выкинув переменные first и second.

[Heming]

Была б моя воля, я б ваще в данной задаче к процедурам бы не прикосался, а сделал бы как вы посоветовали, но в условии сказано, помимо прочего:
сделать распознование простых чисел именно процедурой(следущая лабораторная будет под функции, а это типа под процедуры), я наверное плюну и сделаю эту фиктивную процедуру, используя вашу функцию.