IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Падающие цифры
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: Артем

Репутация: -  0  +


Привет! Задача вот в чем надо сделать так чтобы на экран сверчу вниз падали цифры причем каждая строка со своей скоростью! (как в фильме Матрица)!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






The Matrix V1.01
?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


N337
****

Группа: Пользователи
Сообщений: 737
Пол: Мужской

Репутация: -  26  +


Как вариант:
program Matrix;

uses
Crt, Dos;

var
StdInt8: Pointer;
Sync: Boolean;

procedure Int8; interrupt;
begin
Sync := True;
asm
pushf
call StdInt8
end;
end;

var
Buf: array[0..24, 0..79] of Word absolute $B800:0;
y, dy: array[0..79] of Integer;
c: array[0..79] of Word;
i: Integer;

begin
TextMode(CO80);
GetIntVec(8, StdInt8);
SetIntVec(8, @Int8);

for i := 0 to 79 do
begin
y[i] := 24;
dy[i] := 1;
end;

repeat
for i := 0 to 79 do
begin
Buf[y[i], i] := Buf[y[i], i] and not $800;
Inc(y[i], dy[i]);
if y[i] > 24 then
begin
y[i] := 0;
dy[i] := 1 + Random(3);
c[i] := Ord('0') + Random(2) + $A00;
end;
Buf[Random(25), Random(80)] := 0;
Buf[y[i], i] := c[i];
end;
while not Sync do;
Sync := False;
until KeyPressed;
ReadKey;

SetIntVec(8, StdInt8);
end.


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: Артем

Репутация: -  0  +


Большое СПАСИБО!!!!!!!!!!!!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 30.09.2020 7:28
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name