Подскажите пожалуйста - как (в Турбо Паскале) перейти из
текстового режима в графический правильно, а то после первого
запуска программы (при этом всё проходит нормально - выводится и
текст и графика) в коде все русско-язычные символы автоматически
переводятся в какие-то иероглифы, скомпилированный .exe-файл
полностью работает (не без EGAVGA.BGI).
Uses Crt,Graph;
...
..., gd,gm:integer;
...
{здесь идёт текстовая часть программы}
...
Readln;
{начинается графический режим}
gd:=0;
InitGraph(gd,gm,'');
SetViewPort(0,0,640,480,ClipOn);
...
{рисунок}
...
Readln;
CloseGraph;
End.
Делаешь все правильно, проблема в виндовсе, он сбрасывает шрифты.