Вывод текста бегущей строкой, графика Опции

[Анастасия]

Вот программа, работает, но я хочу, чтобы текст , уходя за пределы экрана,
возвращался слева или появлялись друг за другом строки как по телевизору.
Не придумывается что-то.

program lll;
uses crt,graph;
var d,m,e,dx,dy,xd,yd,i,j:integer;
begin
d :=Detect;
initgraph(d, m, 'd:\bp70\bgi');
e := graphresult;
if e <> grok then
writeln(grapherrormsg(e))
else
begin
dx:=0;
dy:=200;
xd:=600;
yd:=200;
settextstyle(4,0,8);
repeat
for j:=1 to 500 do  begin
for i:=1 to 270 do begin
if dx>=0 then begin dx:=dx+1;
outtextxy(dx,dy,'Anastasiya');
end;
delay(800);
cleardevice;
end;
if keypressed then break
end;
until keypressed;
end;
end.

Пользуйтесь тегами

Сообщение отредактировано: volvo - 3.11.2006 0:03

[Анастасия]

program lll;
uses crt,graph;
var d,m,e,dx,dy,xd,yd,i,j:integer;s:string;
begin
d :=Detect;
initgraph(d, m, '…\bgi');
e := graphresult;
if e <> grok then
writeln(grapherrormsg(e))
else
begin
dx:=0;xd:=600;yd:=200;
dy:=200;
settextstyle(4,0,8);
s:='Anastasiya ';
repeat
for j:=1 to  700 do  begin
for i:=1 to 270 do begin
if dx>=0 then begin dx:=dx+1;
outtextxy(dx,dy,s);
end;
delay(800);
cleardevice;

end;dx:=0;
end;
until keypressed;
end;
end. 

Поторопилась соглашаться. К сожалению не знаю многих функций и не могу разобраться логически как
текст в предыдущей программе может идти справа налево , а тем более как сделать это слева направо.
Придумала, то, что выложила. Упрощённый вариант моей бегущей строки. Почти ничего не изменила, так всегда. Но буду благодарна, если вы подскажете как мне пустить эту бегущую строку слева направо в предыдущей программе. Для меня это не так уж и элементарно.