{Формируем таблицу значений:} GotoXY(NX+5,k+l) ;

Write(dX*k:4:2,sin(dX*k):8:2) end;

end.

После ссылки на WinCRT в распоряжение программы предоставляются некоторые из процедур и функций стандартного модуля CRT, рассчитанные на текстовый режим работы. В частности, программа может использовать стандартные процедуры ввода—вывода ReadLn и WriteLn, функции KeyPressed и ReadKey, процедуру GotoXY. Для программы создается специальное окно, размеры и положение которого можно менять. В это окно направляется текстовый вывод программы, причем с помощью стандартных для Windows полос управления по бокам окна можно просмотреть вывод, не умещающийся полностью в пределах окна.

Следует учестьг что кодировка символов кириллицы в Windows отличается от широко используемой альтернативной кодировки ДОС, поэтому, если Ваша программа посылает на экран русскоязычные сообщения, в Windows—окне эти сообщения будет невозможно прочитать. Символы кириллицы в Windows используют последние 64 значения кодов: диапазон от 192 до 223 занимают коды заглавных букв от А до Я (без Ё), а диапазон от 224 до 255 — коды строчных буквы от а до я (без ё). Код буквы Ё — 168, а ё - 184.

Д^я преобразования символов можно использовать такую функцию:

Function OEM_to_ANSI(S: String): String;

var

k: Integer;

begin

for k := 1 to Length(S) do case S[k] of

•A'..'Я': S[k] := chr(ord(S[k])-ord('A')+192) ;

'a'..'!!': S[k] := chr(ord(S[k])-ord('a')+224) ;

•p'..'я': S[k] := chr(ord(S[k])-ord('p')+240) end;

OEM_to_ANSI := S end;

Вставьте в текст предыдущей программы эту функцию, а перед оператором

for k := 0 to NX do добавьте

WriteLn(OEM_to_ANSI('График функции SIN(X)')) ;

чтобы в Windows — окне напечатать заголовок графика.