Inter
Житель Зиона
На форумах с мая 2004
Местонахождение:
Сообщений: 1635
|
Цитата: Glukolov:
Цитата: Inter:
А почему не так...?
Uses Crt;
Var
I:Integer;
St:String;
BEGIN
ClrScr;
TextColor(2);
Write('Wake up, Neo...');
For I:=1 To 27 Do
Begin
Delay(60000);
End;
ClrScr;
St:='Matrix has you. Follow the white rabbit.';
For I:=1 To Length(St) Do
Begin
Write(St[I]);
Delay(60000);
End;
END.
Неа! Не рулед! Надписи "Matrix has you" и "Follow the white rabbit" появлялись на экране побуковочно! Так что вот так!
А как они появляются в этой программе? Хотелось бы услышать Ваше мнение.
Адрес поста | Один пост | Сообщить модератору | IP: Logged
|