Ограничение кол-во выводимых строк в консоле..

[Карась]

Идёт вычисление по формуле.
При выводе свыше 298 строк первые строки начинают удаляться....
Интересно, это можно както выставить?

Код для примера:

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var x , y: real;
    i : integer;

begin
x := 1; y := 0; i := 0;
For i := 0 To 299 Do
  Begin
   if cos(x) <> 1 then
     Begin
       Writeln (x:3:0,'     ',((cos(x) - 1)/sqr(x)):5:5);
       x := x + 1;
     End;
  End;
Readln;
end.

С этим можно бороться или это так всегда

Зарание спасибо

[B_N]

Это надо в свойствах консольного окна указать

[Карась]

Чтото не то... cmd вроде как тут вообще непричём.
Я создаю консольное приложение File -> New -> Console application
Компилится это всё в ехе... В его свойствах нету этово параметра..

[B_N]

cmd - это первая консоль, котора попалась под руку. Этого параметра не может не быть, потому как он у консольных окон стандартный, через системное меню окна (через иконку) и через пункт "Свойства"

[Карась]

Хм... Посмотри, может я туплю, но таких свойств у этого приложения нету...

[B_N]

Я могу и не смотреть, я и так знаю, что у приложения нет этого свойства. Это свойство окна, такое же, как развернуть/свернуть/закрыть.

[Карась]

Ха Ха.. спасибо