Вернуться   Развлекательный портал CN.ru - Форум > Технологии > Программирование > Начинающим

Ответ
 
Опции темы
Старый 26.04.2013, 14:20 ↑ #1
koc39
абориген
 
Регистрация: 20.10.2010
Возраст: 27
Сообщений: 174
Репутация: 0
koc39 молчание-золото
По умолчанию Нужна помощь!!!

Привет программистам. Люди добрые помогите из Delphi пределать в Pascal/ Может кто сталкивался с такой работай. За ранее благодарен всем откликнувшимся.

Вот код:


procedure EratosthenesSieve(const N : Integer; var P : TInteger1DArray);
var
C : Boolean;
I : Integer;
J : Integer;
K : Integer;
R : Integer;
S : Double;
begin
if N>200 then
begin
R := trunc(N/(Ln(N)-2)+1);
end
else
begin
R := trunc(1.6*N/Ln(N)+1);
end;
SetLength(P, R+1);
P[1] := 1;
P[2] := 2;
P[3] := 3;
i := 4;
repeat
P[i] := 0;
i := i+1;
until not (i<=r);
j := 3;
k := 3;
repeat
i := 2;
s := sqrt(k);
c := True;
repeat
i := i+1;
if P[i]>S then
begin
P[j] := k;
j := j+1;
c := False;
end;
until not ((trunc(k/P[i])*P[i]<>K) and C);
k := k+2;
until not (k<=n);
end;
koc39 вне форума   Ответить с цитированием
Старый 07.05.2013, 18:16 ↑ #2
koc39
абориген
 
Регистрация: 20.10.2010
Возраст: 27
Сообщений: 174
Репутация: 0
koc39 молчание-золото
По умолчанию Re: Нужна помощь!!!

Мужики я даже денег заплачу. Помогите пожалуйста.
koc39 вне форума   Ответить с цитированием
Старый 11.05.2013, 22:14 ↑ #3
Ultra64 Мужской
ГУРУ эго-форума
 
Аватар для Ultra64
 
Регистрация: 28.04.2011
Адрес: Новосибирск
Сообщений: 1,281
Репутация: 9691
Ultra64 последнее слово за мной Ultra64 последнее слово за мной Ultra64 последнее слово за мной Ultra64 последнее слово за мной Ultra64 последнее слово за мной Ultra64 последнее слово за мной Ultra64 последнее слово за мной Ultra64 последнее слово за мной Ultra64 последнее слово за мной Ultra64 последнее слово за мной Ultra64 последнее слово за мной
По умолчанию Re: Нужна помощь!!!

Совет так как я тоже сдесь просил подобное. Обратись к фрилансерам.
Я с одним уже повязан бед не знаю. какую бы програмулину не придумал бы макс 2-3 дня и она у меня.
__________________
Секс-занятие замечательное, но есть много всяких других дел, которыми мы любим заниматься в промежутках.
Ultra64 вне форума   Ответить с цитированием
Старый 12.05.2013, 10:14 ↑ #4
koc39
абориген
 
Регистрация: 20.10.2010
Возраст: 27
Сообщений: 174
Репутация: 0
koc39 молчание-золото
По умолчанию Re: Нужна помощь!!!

Спасибо. Тема закрыта.
koc39 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Текущее время: 00:45. Часовой пояс GMT +6.
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd. Перевод: zCarot

ВКонтактeTwitterFacebook
Хотите связаться с нами? Напишите письмо, и мы обязательно ответим.