Создать бегающую строчку по периметру в паскале

Создать бегущую строчку по периметру в паскале

Задать свой вопрос
1 ответ
Данный код на языке Паскаль (Pascal) смотрится так:

uses crt;
Procedure RunSt(Var S : String);
Begin  
S:=Copy(S,2,Length(S)-1)+S[1];
end;
var St:string;
begin
hidecursor;
St:=' Test running string ';
while length(St)lt;80 do
St:=' '+St;
repeat  
GoToXY(1,13);  
Write(St);  
Sleep(100);
RunSt(St);
until keypressed
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт