Работа с файлами (Паскаль)

[Poma][a]

for 0.4 seconds

Дак что за кофе не успеем?

по поводу второго замечания.
теоретически, то, что Вы говорите, практически - не подверждается.

Ага-ага, никогда такой феномен не замечал.. Но чем комп не шутит? Уж лучше перестароховаться

вот, прошу оценить:

А вот за это, огроменное спасибо! Щас еще помереем.

А можно как-нить это же на старом добром паскальчике? А то Lazarus и Free ругаются (уж простите за наглость...)

Слегка дополню :

p.s. если нужно найти все простые числа, то предложенный метод перебора использовать крайне неэффективно и непродуктивно!!!
давно уже известны нормальные эффективные способы поиска множества простых чисел.

Ага-ага. Решето Сундарама, Эратосфена, Аткина и другие алгоритмы.

функция sqrt(x) будет вызываться многократно (я проверил, это так!)

А можно чуть-чуть по подробнее? Отладчик(режим пошагового просмотра) такую информацию не выдаёт. Debbuger'ом что ли?

[Serge_Bliznykov]

А можно чуть-чуть по подробнее? Отладчик(режим пошагового просмотра) такую информацию не выдаёт. Debbuger'ом что ли?

всё намного проще! написал примерно так:

var i,x, CountFunctionCall : longint;

function MySqrt(x : longint):extended;
begin
   Inc(CountFunctionCall);
   MySqrt := sqrt(x);
end;

begin
   CountFunctionCall := 0;
   i:=1;
   x:=25;
   while i<=MySqrt(x) do begin
      if x mod i = 0 then Write(i,' '); 
      inc(i,2)
   end;
   WriteLn('Function called ', CountFunctionCall ,' times.');
   Readln
end;

А можно как-нить это же на старом добром паскальчике? А то Lazarus и Free ругаются (уж простите за наглость...)

Оба, говорите, ругаются? Lazarus - это просто оболочка над FreePascal.

А вообще странно. на что ругаются? на GetTickCount() ?! или на что? Вроде бы там ничего такого нет..

Ага-ага. Решето Сундарама, Эратосфена, Аткина и другие алгоритмы.

Точно так!


p.s. что-то мы совсем в оффтоп ушли! Не нравится мне это!

[Serge_Bliznykov]

А можно чуть-чуть по подробнее? Отладчик(режим пошагового просмотра) такую информацию не выдаёт. Debbuger'ом что ли?

всё намного проще! написал примерно так:

var i,x, CountFunctionCall : longint;

function MySqrt(x : longint):extended;
begin
   Inc(CountFunctionCall);
   MySqrt := sqrt(x);
end;

begin
   CountFunctionCall := 0;
   i:=1;
   x:=25;
   while i<=MySqrt(x) do begin
      if x mod i = 0 then Write(i,' '); 
      inc(i,2)
   end;
   WriteLn('Function called ', CountFunctionCall ,' times.');
   Readln
end;

А можно как-нить это же на старом добром паскальчике? А то Lazarus и Free ругаются (уж простите за наглость...)

Оба, говорите, ругаются? Lazarus - это просто оболочка над FreePascal.

А вообще странно. на что ругаются? на GetTickCount() ?! или на что? Вроде бы там ничего такого нет..

Ага-ага. Решето Сундарама, Эратосфена, Аткина и другие алгоритмы.

Точно так!


p.s. что-то мы совсем в оффтоп ушли! Не нравится мне это!

[Poma][a]

написал примерно так:

Всё гениальное просто

Free - не знает uses Windows, если удалить то, ругается на GetTickCount().
Lazarus просит какой-то unit.

p.s. что-то мы совсем в оффтоп ушли! Не нравится мне это!

Всё-всё. Удаляюсь. А весь сыр-бор ради просвещения ТС (и не только)

[Poma][a]

Так-с... Раз ТС ушел в запой, а новую темку мне клёпать лень. То займусь-ка я некропостингом и оффтопом. (Прошу простить, но выходя из трамвая я вдруг неожиданно вспомнил, что у Сержа HighBound := trunc(sqrt(x))+1; и понял что иногда программка может работать не очень верно. Например : число 56. Его корень : 7,483314773547883, отбросим не целую часть, прибавим 1. Допустим мы выводи делители числа n. Получим

1 56 
2 28
...
7 8
8 7

, а это не есть хорошо)

Вспомнил что обсуждалось здесь и что говорил TinMan в темке( тыц) и выставил на суд :

1) sq := Trunc (Sqrt(n)) // by Poma][a (контр пример 4->1,(9)->1)
2) sq := Trunc (Sqrt(n)+1) // by Serge and TinMan (контр пример см.выше)
3) sq := Trunc (Sqrt(n)) + 0.0000001 // by Аватар and TinMan (контр пример не нашел)
4) sq := Round (Sqrt(n)) // by TinMan (контр пример не нашел)

Если у Вас есть какие-то идеи, пожелания, мысли.. с радость приму их.
P.S. Некоторые контр пример на практике почти не встречаются, но вдруг случится что-нить и придется вспомнить..
P.P.S. Дико извиняюсь, что залез в чужую тему, да еще прошлого месяца и продолжаю оффтопить, но как-то просить Вас бегать по ссылкам тоже не хорошо...

[Sciv]

Например : число 56. Его корень : 7,483314773547883

Это ты тоже выходя из трамвая вычислил?

[Poma][a]

Это ты тоже выходя из трамвая вычислил?

Не, я ток нашел число 56. И понял что корень ~7.5