Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
function Prime (N: longword): boolean;
var
i : longword;
Max : single;
begin
if N = 2
then Prime := true
else if (N <= 1) or (N mod 2 = 0)
then Prime := false
else begin
Prime := true;
i := 3; Max := sqrt(N);
while i <= Max do begin
if N mod i = 0 then begin
Prime := false;
exit
end;
i := i + 2
end
end
end;
var
a, i : longword;
begin
read(a);
for i := 2 to a do
if Prime(i)
then writeln(i, ' is a prime number');
end.
Если задача была в поиске всех простых чисел, можно было сэкономить храня числа в массиве вместо перебора всех нечетных. Ну и отступы в 8 пробелов режут глаз.
зависит от того какой величины тебе нужны простые числа. решетом Эратосфена далеко даже на продвинутых системах не уедешь.
но как бы да, это стандартная оптимизация: несколько тысяч первых простых чисел иметь под рукой в таблице. количество простых чисел то с величиной уменшается.
>Ну и отступы в 8 пробелов режут глаз.
если попробовать выделить эти "пробелы", то они окажутся православными табами.
и мне не режут. это лучше, чем без отступов
>задача была в поиске всех простых чисел
ряд простых чисел бесконечен. найти все невозможно.
>ряд простых чисел бесконечен. найти все невозможно.
Я имел в виду то, что делается в задаче. Найти все простые числа до заданного числа N. Лаба или не лаба - не важно, раз можно было найти оптимальнее.
Отступы - не спорю, может кто-то и к 8 привык или у него автозамены табов на пробелы нет.
Да Тарас специально выбрал такой язык, за который тяжело троллить. Дельфой то пользовались все и все её знают со всеми её недостатками, а адой не пользовались почти все, кроме Тараса. Так что Аргументы привести против Ады будет тяжело.
А не аргументированные фразы типа Ада - говно -- вряд ли прокатят. Уныло.
Тарас уже много раз публично признавал, что дельфи - это говно и в нем много недостатков, зато Ада крута. Какой смысл троллить его по дельфе? Нужно говорить, мол Delphi/Ada - дерьмо и приводить аргументы: общие недостатки этих языков или недостатки Ады.
>i := i + 2 //нечетные
>Prime := false; exit //прерывание цикла
м-м-м довольно неплохо.
как по мне довольно адекватная и чуть ли не образцовая (как для лабы) реализация.
лаба же
а прикладные простые числа всё разно таким брутом нет смысла искать
но как бы да, это стандартная оптимизация: несколько тысяч первых простых чисел иметь под рукой в таблице. количество простых чисел то с величиной уменшается.
если попробовать выделить эти "пробелы", то они окажутся православными табами.
и мне не режут. это лучше, чем без отступов
>задача была в поиске всех простых чисел
ряд простых чисел бесконечен. найти все невозможно.
насичот остального уже сказано выше.
Я имел в виду то, что делается в задаче. Найти все простые числа до заданного числа N. Лаба или не лаба - не важно, раз можно было найти оптимальнее.
Отступы - не спорю, может кто-то и к 8 привык или у него автозамены табов на пробелы нет.
в школах не изучают ни теорему Проклингтона, ни эллиптические кривые
может задача была сделать с ограничением по используемой памяти.
Не, в отступах табы.
зы:Страйкер, пофикси гигантские табы.
з.ы. а может даже и не его.
Хм.
>(нужна Ада) и недостаточно аргументов.
Согласен.
>троллить Тараса
Никто его не троллит. Я высказал мнение.
А не аргументированные фразы типа Ада - говно -- вряд ли прокатят. Уныло.
Берегись Тарас!