Вопрос по компиляторам и средам программирования.

[Metaluk]

#include <stdio.h>
#include <conio.h>

int main(void)
{
    for(long int i = 0; i<500000; ++i)
     printf("%ld\n", i);
    getch();
    return 0;
}

Код на Си. Выводит быстрее и значительно. Если при Паскале приходится ждать 2 минуты, то сейчас затрачивается примерно секунд 15. Не могу привести доказательства как в прошлом сообщении, так как такого таймера на Си не писал.

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

[Abstraction]

#include <stdio.h>
#include <conio.h>

int main(void)
{
    for(long int i = 0; i<500000; ++i)
     printf("%ld\n", i);
    getch();
    return 0;
}

А где массив?

[rrrFer]

Metaluk
Я думаю тебе надо покопаться в настройках компилятора твоего паскаля. И да, на Си у тебя нет массива.

Вот такой код на прологе (а все знаю какой он медленный):

for(Start, Finish, [Start|T]):-
  Start >= Finish, T = [], !;
  V is Start + 1, for(V, Finish, T).
goal:-
  for(1, 500000, L), write(L).

выполняется вот так долго:

real 0m0.763s
user 0m0.568s
sys 0m0.033s

тоесть моментально, притом, кроме того, что это пролог, тут сначала элементы ложатся в список (да, кстати, динамический), а потом уже этот список выводится (т.е. делается 2 прохода по списку).

И это я засек на своем очень старом ноутбуке (P6100, 2ГГц).
-------
но на прологе быстро вышло тока с хвостовой рекурсией. С логическим выводом он выводил до 32000 где-то 4 минуты, дальше я ждать не стал.
------------

real 0m8.306s
user 0m6.351s
sys 0m0.327s

а это время, если выводить до 5000000
---------------------
А твой код на Си (который без массива ваще) работает вот столько:

real 0m3.190s
user 0m0.212s
sys 0m1.432s

компилировал g++ без оптимизации

[Metaluk]

С массивом на Си время работы примерно такое же, поэтому не стал приводить.

Хм. Вообще не понимаю тогда. Ваше время буквально ничто по сравнению с моим. В чем причина-то?
Где что смотреть/поменять?

Протестировал с помощью Visual C++ 6.0. Примерно столько же времени заняло. Гораздо больше, чем 3 секунды.

[rrrFer]

В чем причина-то?

Если я вывожу каждое значение на отдельной строке - то время примерно 4 секунды с 500000

[Metaluk]

Итого почти в 4 раза быстрее, чем у меня, при условии, как Вы пишете, что использовали очень старый ноутбук.

[s-andriano]

Metaluk, давайте определимся, скорость чего мы пытаемся измерить.

В данном случае Ваш код пытается измерить производительность Windows при выводе информации на консоль. Никакого отношения к производительности собственно программ это отношения не имеет.
Кроме того, мне кажется, задача по выводу на экран миллиона чисел вряд ли может вообще хоть что-то показывать - это абсолютно нежизненная ситуация.
Давайте будем измерять во-первых - сравнимое, а во вторых - полезное. Например, скорость вывода в файл.
Программа ниже демонстрирует скорость вывода в файл:
1. Текстовой информации - по одному числу за операцию вывода.
2. Бинарной информации - по одному числу за операцию вывода.
3. Бинарной информации - весь массив одной операцией.
4. Текстовой информации - здесь показано, как можно оптимизировать вывод текстовой информации.

Сам текст:

uses windows, strings;
var
  i,j,k,m,t0,t1 : longint;
  t : text;
  f : file;
  a : array[0..1000000-1]of longint;
  b : array[0..8191]of char;
  s : string;
begin
  assign(t,'opt_time.txt');
  rewrite(t);
  t0 := GetTickCount;
  for i := 0 to 1000000-1 do
    writeln(t,i);
  t1 := GetTickCount;
  close(t);
  writeln('Formatted: Elapsed time: ',t1-t0);

  assign(f,'opt_time.dat');
  rewrite(f,1);
  t0 := GetTickCount;
  for i := 0 to 1000000-1 do
    blockwrite(f,i,sizeof(i));
  t1 := GetTickCount;
  close(f);
  writeln('Non formatted (one number per cycle): Elapsed time: ',t1-t0);

  assign(f,'opt_time.bin');
  rewrite(f,1);
  for i := 0 to 1000000-1 do
    a[i] := i;
  t0 := GetTickCount;
  blockwrite(f,a,sizeof(a));
  t1 := GetTickCount;
  close(f);
  writeln('Non formatted (total array): Elapsed time: ',t1-t0);

  assign(f,'opt_time2.txt');
  rewrite(f,1);
  t0 := GetTickCount;
  for j := 0 to 999 do begin
    k := 0;
    for i := 0 to 999 do begin
      s := inttostr(a[i + j*1000]);
      move(s[1], b[k], length(s));
      inc(k, length(s) + 2);
      b[k-2] := #13;
      b[k-1] := #10;
    end;
    blockwrite(f,b,k);
  end;
  t1 := GetTickCount;
  close(f);
  writeln('Formatted (buffered): Elapsed time: ',t1-t0);

end.

Результат работы (Intel Atom 1.6 ГГц):

Formatted: Elapsed time: 11860
Non formatted (one number per cycle): Elapsed time: 5390
Non formatted (total array): Elapsed time: 31
Formatted (buffered): Elapsed time: 1250

время - в мс.

[Metaluk]

Ошибка компиляции.

[s-andriano]

Любая ошибка компиляции имеет свой номер и свое описание.

Да, я пользуюсь TMT 4.01. Для FPC, вероятнее всего, нужно поменять список подключаемых модулей.
Если слишком большой массив - уменьшить его (для пробы) либо переделать на динамический.

[Metaluk]

Заменил

s := inttostr(a[i + j*1000]);

На

str(a[i + j*1000], s);

Результаты:

Formatted: Elapsed time: 282
Non formatted (one number per cycle): Elapsed time: 2078
Non formatted (total array): Elapsed time: 109
Formatted (buffered): Elapsed time: 125