Строка с бегущим текстом в графическом режиме (Pascal)

@OreshekEli · Регистрация: 02.12.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите, пожалуйста, решить следующую задачу (используя графический режим):

Составить программу, изображающую бегущую строку (справа налево) с каким-нибудь текстом.

Поиском пользовалась, ответа на свой вопрос не нашла.
Пыталась сама разобраться, но так и не поняла, как именно текст перемещать.

@OreshekEli · 06.12.2012, 13:33 **[ТС]**

Задачу решила уже сама. Спасибо.

@Puporev · 06.12.2012, 13:34

Кому будет нужно.

Pascal

Uses crt,graph;
Procedure BegStr(y:integer;str:string;d:integer);
Var
  s:string;
  a, k:integer;
Begin
  str:='   '+str;
  k:=80-length(str);
  for a:=1 to k-1 do
  str:=str+' ';
  repeat
    delete(str,1,1);
    outtextXY(1,y,str);
    delay(d);
    cleardevice;
    s:=copy(str,1,1);
    str:=str+s;
  until keypressed;
end;
var x,y:integer;
begin
initgraph(x,y,'');
setbkcolor(15);
setcolor(12);
settextstyle(0,0,2);
BegStr(getmaxY div 2,'1234567891011121314151617181920212223242526',100);
end.

@OreshekEli 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 6
		1
	Строка с бегущим текстом в графическом режиме (Pascal) 06.12.2012, 01:27. Показов 1323. Ответов 2 Метки бегущим, графическом, режиме, с, строка, текстом (Все метки) Здравствуйте, помогите, пожалуйста, решить следующую задачу (используя графический режим): Составить программу, изображающую бегущую строку (справа налево) с каким-нибудь текстом. Поиском пользовалась, ответа на свой вопрос не нашла. Пыталась сама разобраться, но так и не поняла, как именно текст перемещать. 0

@OreshekEli 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 6
	06.12.2012, 13:33 [ТС]	2
	Задачу решила уже сама. Спасибо. 0

	06.12.2012, 13:34

Строка с бегущим текстом в графическом режиме (Pascal)

Решение