бегущая строка

[djes]

помогите решить задачу на Pascale: вывод бегущей строки с подготовкой файла

[Bat{CMD}_Men]

Да...Помогите...

[Sazary]

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

uses crt;
var
mx : integer;
s,b : string;
i : integer;

begin
clrscr;
mx := 80;
s := 'Test string';
i := 1;
while true do
 begin
 if keypressed then
  if readkey = #27 then break;

 if i=mx then i:=1;
 delline;
 gotoxy(i,1);
 inc(i);
 b := copy(s,1,mx-i);
 write(b);
 delay(50);
 end;

end.

с подготовкой файла

Какой еще подготовкой и какого файла? хм..

[galaid]

Sazary больно уж сложно написал !
И действительно что за файл?

[Sazary]

Сообщение от galaid

Sazary больно уж сложно написал !

Ну почему ж сложно? Рабочего кода - 6 строчек )

[galaid]

Сообщение от Sazary

if keypressed then
f readkey = #27 then break;

лучше сделать так while keypressed<>true do зачем лишний текст?

[Sazary]

лучше сделать так while keypressed<>true do зачем лишний текст?

Привычка. Выход по Esc - логично. Да и, вроде, одна строчка сложности не добавляет.