Хождение строки по экрану

@Setplus · Регистрация: 05.07.2011

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

Задача:введённую с клавиатуры строку заставить двигаться по экрану(бес использования модуля graph)

@Puporev · 20.01.2012, 20:21

@Setplus · 20.01.2012, 20:38 **[ТС]**

а подскажите пожалуйста,где ошибка,ничего на экране в результате не выводится:

Pascal

Program Setplus;
uses CRT;
var
S,P:string[50];
i,j:integer;
c:char;
begin
P:='Anatoliy Makeyev';
clrscr;
for i:=0 to 79 do
S[i]:=' ';
repeat
      c:=S[0];
      j:=0;
              for i:=1 to (length(S)-1) do
              begin
              S[i]:=S[i+1];
              S[i]:=P[j];
              inc(j);
              if (j>length(P)) then j:=1;
 
              end;
               S[length(S)]:=c;
      write(S);
      delay(300);
 
until keypressed;
end

@Puporev · 20.01.2012, 21:29

Pascal

1	S,P:string;

но это совсем не то, хотя если так нужно, то как хотите. А чем код по ссылкам не подходит?

@Setplus 14 / 14 / 13 Регистрация: 05.07.2011 Сообщений: 233
		1
	Хождение строки по экрану 20.01.2012, 20:03. Показов 739. Ответов 3 Метки нет (Все метки) Задача:введённую с клавиатуры строку заставить двигаться по экрану(бес использования модуля graph) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.01.2012, 20:21	2
	бегущая строка Бегущая строка 1

	20.01.2012, 21:29