Прошу откорректировать данную программу так, чтобы на печать выводились результаты в виде обычного (курсивного) шрифта Windows или

[IZOPGRAM]

Прошу откорректировать данную программу так, чтобы на печать выводились результаты в виде обычного (курсивного) шрифта Windows
а используемые в программе формулы тоже были в нормальном виде, а не в строчном варианте, где был четко обозначен числитель (сверху черты) и знаменатель (снизу черты), можно было использовать различные математические символы и формулы.
Например: Задача исследовать данную функцию:
f:=1/(3*sqr(x)+2*x+1);
Результат должен быть курсивным шрифтом, формула в нормальном виде:
...... Исследование данной функции ...........
"формула функции в нормальном виде (математическом)........
....... проводим следующим образом...... (курсивный шрифт)
.......( далее)

uses crt,graph;
var grDriver,grMode:integer;
x,y:real;
i:integer;
function f(x:real):real;
begin
f:=1/(3*sqr(x)+2*x+1);
end;
procedure koordinate;
begin
setcolor(5);
setbkcolor(15);
line(320,0,320,350);
line(0,300,640,300);
line(318,10,320,0);
line(322,10,320,0);
line(630,298,640,300);
line(630,302,640,300);
setlinestyle(DashedLn,0,1);
line(0,240,640,240);
outtextxy(310,305,'0');
outtextxy(310,5,'Y');
outtextxy(630,305,'X');
end;
begin
grDriver:=Detect;
InitGraph(grDriver,grMode,'');
koordinate;
for i:=-320 to 320 do begin
x:=0.05*i;
if x<>0 then
begin
y:=f(x);
PutPixel(round(320+20*x),round(300-20*y),1);
end;
end;
readln;
closegraph;
end.

[TinMan]

Судя по всему, ты используешь Турбо.. Там есть в модуле Graph процедура для установки шрифта:

Procedure SetTextStyle (Font, Direction, CharSize; Word) Устанавливает текущий шрифт, стиль и размер текста.

Воспользуйся ей. Только учти, что фонты там не виндусовые, а специальные борландовские, несколько из них входило в состав пакета (я не помню расширение). Также была, кажется, утилита, для генерации фонтов (хотя, может, я фантазирую).
Успехов тебе.

[IZOPGRAM]

Сообщение от TinMan

Судя по всему, ты используешь Турбо.. Там есть в модуле Graph процедура для установки шрифта:

Воспользуйся ей. Только учти, что фонты там не виндусовые, а специальные борландовские, несколько из них входило в состав пакета (я не помню расширение). Также была, кажется, утилита, для генерации фонтов (хотя, может, я фантазирую).
Успехов тебе.

Мне не столько важен курсивный шрифт, сколько - нормальный вид формул сохранение их математического, а не строчного типа, прошу пример таких действий

Сообщение от IZOPGRAM

Мне не столько важен курсивный шрифт, сколько - нормальный вид формул сохранение их математического, а не строчного типа, прошу пример таких действий

У меня Паскаль-АВС и Паскаль-Турбо, если Вы поможете мне составить программу, например, такую:
Найти минимальное значение функии у=(х^3-1)/(x-2) на интервале х (0, 4)
Есть готовые программы по решению таких задач, но мне надо откооректировать программу так, что бы она в результате выдавала текст условия задачи, далее, описание хода решения задачи с вставленными формулами в математическом, а не в строчном виде, как я записал выше, всё должно выглядеть в нормальном виде желательно с курсивным шрифтом.
За это я заплачу столько сколько скажите через Яндекс-Деньги.

[BDA]

Имхо, математический вид в паскале только вручную, т.е. все линии самому рисовать, высчитывать координаты, по которым рисовать буквы.