Объясните, пожалуйста, полученный
Что именно тебя удивляет в результате? Извини, я не понял, что ты хотел сказать этим "тестом". Ты уж уточняй, что именно "тестировалось", на всякий случай...
AssignCRT(f); rewrite(f);надо...
Да, действительно, о чем это я?
Тестировал время работы функции write при подключенном CRT и при отключенном. Вывод в файл и на экран.
Почему разница между двумя первыми тестами в много раз больше разницы между 2мя другими - это более менее понятно: коэффициентом умноженным на разницу является время отрисовки символов.
Но в чем же разница между реализациями этой функции в модулях CRT и system, если не ошибаюсь?
Просто тов. Препод говорил, что CRT работает на много быстрее, а вот случайно наткнувшись на эту тему [ http://forum.pascal.net.ru/index.php?showtopic=26952 - Lapp] и на ваши высказывания по этому поводу решил усомниться в Его Величества правоте.
Чтобы было быстрее, надо выводить в файл через BlockWrite, а на экран через $B800:$0000. Так что напиши программу вот через это вот, а потом преподу так и скажи, что ты это сделал для того, чтобы ускорить вывод строчки на экран.