Т а к ? ________________________________
2^N = 64 N=6 бит - количество информации, которое несёт одна буква!!!!
var
x: <em>real </em>:= 1;
begin
while (x <= 13) do
begin
writeln('y(', x, ') = ', ln(cos(x)));
x += 0.4;
end;
<span>end.</span>
Можно поставить "вечный цикл" с задержкой и перерисовывать ему глаза раз в секунду. Самый простой способ, который пришёл в голову.
Исходник в приложении к ответу.