Помогите с проблемой!

[Stalker-vir]

Помогите кто может!

Проблема вроде не сложная, но вот для меня еще как:

Как в Турбо Паскале вывести информацию на экран компьютера "по буквенно" т.е как фильме Матрица ("Привет НЕО").

[Stolik]

Stalker-vir

Позор на мою седую голову =) Я не смотрел "Матрицу"...

Я понял тебя так:

Program Text;

uses

Crt;

var

i : byte;

const

txt : array[0..5] of char = ('H','i',' ','N','E','O');

begin

ClrScr;

for i:= 0 to 5 do begin

write(txt);

delay(10000);

end;

readln;

end.

[Тролль]

Строку для вывода можно задать немного удобнее как

txt : array[0..5] of char ='Hi NEO';

или прямо использовать тип string:

Program Text1;

uses Crt;

var i : byte; txt:string;

begin

txt:='Hi, NEO';

ClrScr;

for i:= 1 to Length(txt) do

begin write(txt); delay(60000); end;

readln;

end.

[Stalker-vir]

Спасибо всем кто помог!