Скорость вывода с CRT и без, результаты тестирования [разделено] Опции

[sheka]

Объясните, пожалуйста, полученный

результат: (Показать/Скрыть)

What|Not| Is
Crt | *
File| *
Iterations = 100000
Time = 1001

What|Not| Is
Crt | ....... *
File| *
Iterations = 100000
Time = 3762

What|Not| Is
Crt | *
File| ........*
Iterations = 100000000
Time = 551

What|Not| Is
Crt | ...... *
File| ....... *
Iterations = 100000000
Time = 625

 Result.txt ( 296 байт ) Кол-во скачиваний: 605
И

почему? (Показать/Скрыть)

{$define crt}
{$define file}

uses
  {$ifdef crt}
  Crt,
  {$endif}
  Dos;

type
  TR = record
    h,m,s,ss:word;
  end;

function ResTime(const s,e: TR): longint;
begin
  ResTime := (e.ss-s.ss)+100*((e.s-s.s)+60*((e.m-s.m)+60*(e.h-s.h)));
end;

var
  s, e: TR;
  L, H, i: Longint;
  fr, f: text;

begin
  L := 1;
  {$ifdef file}
    H := 100*1000*1000;
    assign(f,'f');
    rewrite(f);
  {$else}
    H := 100*1000;
    f := output;
  {$endif}
  with s do gettime(h,m,s,ss);
  for i := L to H do
    write(f,'*'); //при Сrt и выводе на экран при такой
//записи на экран выводятся пробелы, 
//а при такой write(output,'*'); все нормально
  with e do gettime(h,m,s,ss);
  {$ifdef file}
    close(f);
  {$endif}

  assign(fr,'Result.txt');
  {$I-}
    append(fr);
  {$I+}
  if ioresult <> 0 then
    rewrite(fr);
  writeln(fr,'What|Not| Is');
  write(fr,'Crt |');
  {$ifdef crt}
    write(fr,'     ');
  {$endif}
  writeln(fr,' *');
  write(fr,'File|');
  {$ifdef file}
    write(fr,'     ');
  {$endif}
  writeln(fr,' *');
  writeln(fr,'Iterations = ',H-L+1);
  writeln(fr,'Time = ',ResTime(s,e));
  writeln(fr);
  close(fr);
end.

Сообщение отредактировано: Lapp - 15.05.2011 4:48

[IUnknown]

Что именно тебя удивляет в результате? Извини, я не понял, что ты хотел сказать этим "тестом". Ты уж уточняй, что именно "тестировалось", на всякий случай...

//при Сrt и выводе на экран при такой
//записи на экран выводятся пробелы,
//а при такой write(output,'*'); все нормально

А ты ассоциируй файл с консолью правильно - все будет нормально. Кто разрешил делать f := output ?

AssignCRT(f); rewrite(f);

надо...

[sheka]

Да, действительно, о чем это я?
Тестировал время работы функции write при подключенном CRT и при отключенном. Вывод в файл и на экран.
Почему разница между двумя первыми тестами в много раз больше разницы между 2мя другими - это более менее понятно: коэффициентом умноженным на разницу является время отрисовки символов.
Но в чем же разница между реализациями этой функции в модулях CRT и system, если не ошибаюсь?

Просто тов. Препод говорил, что CRT работает на много быстрее, а вот случайно наткнувшись на эту тему [ Матрица. Суммы диоганалей паралельных главной и побочной - Lapp] и на ваши высказывания по этому поводу решил усомниться в Его Величества правоте.

[IUnknown]

Просто тов. Препод говорил, что CRT работает на много быстрее

Тов. препод наверняка имел в виду другой компилятор, да? Кстати. Хочешь удивиться еще больше? запусти этот же тест под TP (ну, правда его понадобится чуть-чуть переделать, ибо он не будет компилироваться в таком виде. Заодно и тебе будет наука: не все, что пропускает FPC во-первых, правильно, а во-вторых вообще корректно с точки зрения синтаксиса, принятого в Турбо-Паскале).

[-TarasBer-]

Чтобы было быстрее, надо выводить в файл через BlockWrite, а на экран через $B800:$0000. Так что напиши программу вот через это вот, а потом преподу так и скажи, что ты это сделал для того, чтобы ускорить вывод строчки на экран.