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

[Анастасия]

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

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

[volvo]

Ну, например, вот так:

program lll;
uses crt,graph;

var
  gDriver, gMode, err: integer;
  s: string;
begin
  gDriver := Detect;
  initgraph(gDriver, gMode, '');
  err := graphresult;
  if err <> grok then begin
    writeln(grapherrormsg(err));
    halt(100);
  end;

  settextstyle(4, HorizDir, 8);
  s := 'Anastasiya';
  repeat
    s := s + ' ';
  until textwidth(s) > getmaxx;
  delete(s, length(s), 1);

  repeat
    delay(1800);
    cleardevice;
    outtextxy(1, getmaxy div 2, s);
    s := s[length(s)] + copy(s, 1, length(s) - 1); { Меняем ЗДЕСЬ }

  until keypressed;

end.

не могу разобраться логически как текст в предыдущей программе может идти справа налево

Очень просто: Сначала заполняем строке текстом и пробелами так, чтобы ее длина НЕ превышала размера экрана (это первый Repeat ... Until), а потом чтобы СОЗДАТЬ ИЛЛЮЗИЮ движения просто берем первый символ строки и переносим его в конец, и заново выводим строку на том же месте после очистки экрана... Из за смещения символов получаем видимость движения строки...

Соответственно, чтобы двигать строку слева направо надо брать ПОСЛЕДНИЙ символ и перемещать его в начало строки... Попробуй на бумаге, напиши слово и припиши к нему несколько символов подчеркивания (вместо пробелов), и проделай то, что я написАл... Лучший способ понять, что происходит