текст в графическом режиме...

[hasana]

подскажите почему при следующем не отображается текст

uses crt,graph;
var device,mode:integer;
x1,x2:integer;
begin
device:=detect;
initgraph(device,mode,'');
writeln(' текст текст текст');
line(0,400,640,400);
circle(60,390,10);
line(40,400,70,370);
line(200,400,290,310);
line(370,400,290,310);
randomize;
x1:=(390+random(221));
x2:=x1+40;
rectangle(x1,400,x2,385);

readln;
closegraph
end.

[_-Re@l-_]

потому что в графическом режиме текст выводится так:

outtextxy(x,y,' текст');

где х и у координаты куда будет написан текст(т.е. координаты начала текста)

[Stilet]

потому что в графическом режиме текст выводится так:

Не совсем. Вернее все верно, эт для графики как раз, но есть еще один финт.
Чтобы Write и Writeln сработали в графике нужно выставить переменную
DirectVideo:=FALSE;
Тогда и Write будут работать в графике как будто в обычном режиме.
В хелпе она описана хорошо.

[hasana]

Сообщение от _-Re@l-_

потому что в графическом режиме текст выводится так:

outtextxy(x,y,' текст');

где х и у координаты куда будет написан текст(т.е. координаты начала текста)

как тогда можно объяснить, что эта программа выводит текст

uses graph;
var device,mode:integer;
begin
device:=detect;
initgraph(device,mode,'');
writeln('tekst,tekst,tekst');
readln;
closegraph
end.

[_-Re@l-_]

не знаю. Я обычно так выводил текст:

uses crt,graph;
var gd,gm:integer;
begin
       gd:=detect;
       initgraph(gd,gm,'');
       outtextxy(x,y,'текст');
       readln;
       closegraph;
end.

[hasana]

я понял... текст не вводится при использовании модуля crt, всё равно спасибо

[_-Re@l-_]

Вполне может быть. Я просто всегда использовал crt (как-то привык к нему, и уже по привычке в uses писал crt)

[Stilet]

как тогда можно объяснить, что эта программа выводит текст

В этой:

uses graph;

в твоей:

uses crt,graph;

Убери CRT - она как раз вызывает ту переменную о которой я говорил, переводя режим для Write в "доступ к видеопамяти", тогда как дря графического режима нужно отключить этот режим.