помогите с простенькой графикой на пасскале

Общение на любые темы
Ответить
Сообщение
Автор
LEBRON
Сержант
Сержант
Сообщения: 32
Зарегистрирован: 23.11.2009

#1 Сообщение 19.05.2010, 15:09

нужно прописать чтоб на экране при выполнении был эфект как в фильме матрица,в виде анимации.и нужно на пасскале это написать.
спасибо

Аватара пользователя
NiGHt-LEshiY
Полковник
Полковник
Сообщения: 10258
Зарегистрирован: 13.06.2008
Откуда: Россия
Благодарил (а): 752 раза
Поблагодарили: 2667 раз
Контактная информация:

#2 Сообщение 19.05.2010, 19:17

LEBRON
Ты ведь понимаешь, что просишь не помочь, а сделать за тебя?
Где твои наработки? Покажи хотя бы нерабочий код, где видно, что ты пытался что-то сделать.
Кодекс поведения участников сообщества — обязательно к прочтению.
Просьба присылать сообщения об ошибках в ЛС.

Аватара пользователя
LaDuelo666
Полковник
Полковник
Сообщения: 4076
Зарегистрирован: 07.10.2007
Откуда: dota
Благодарил (а): 3 раза
Поблагодарили: 61 раз
Контактная информация:

#3 Сообщение 19.05.2010, 19:25

вот такие программисты и пишут всякие антивирусы касперского
"BAKING A LASAGNA IN YOUR PUNANI MIKE PARADINAS IN YOUR PUNANI INTELLVISION BASKETBALL IN YOUR PUNANI HE-MAN AND SKELETOR IN YOUR PUNANI UNDERGOING PLASTIC SURGERY IN YOUR PUNANI WEARING LEATHER JACKETS IN YOUR PUNANI DRIVING MY CAR IN YOUR PUNANI WELFARE WEDNESDAY IN YOUR PUNANI I WANT TO PUT ORANGE JUICE IN YOUR PUNANI EGG SALAD SANDWICHES IN YOUR PUNANI HOT-DOGS AND FRENCH FRIES IN YOUR PUNANI CHEF BOYARDEE IN YOUR PUNANI"

Аватара пользователя
Nice_Smile
Модератор
Модератор
Сообщения: 2540
Зарегистрирован: 07.11.2007
Откуда: Москва
Благодарил (а): 13 раз
Поблагодарили: 23 раза
Контактная информация:

#4 Сообщение 19.05.2010, 19:25

LaDuelo666
Не надо..
Изображение
Изображение

Аватара пользователя
LaDuelo666
Полковник
Полковник
Сообщения: 4076
Зарегистрирован: 07.10.2007
Откуда: dota
Благодарил (а): 3 раза
Поблагодарили: 61 раз
Контактная информация:

#5 Сообщение 19.05.2010, 19:28

Nice_Smile писал(а):LaDuelo666
Не надо..
аа, чего не надо?
"BAKING A LASAGNA IN YOUR PUNANI MIKE PARADINAS IN YOUR PUNANI INTELLVISION BASKETBALL IN YOUR PUNANI HE-MAN AND SKELETOR IN YOUR PUNANI UNDERGOING PLASTIC SURGERY IN YOUR PUNANI WEARING LEATHER JACKETS IN YOUR PUNANI DRIVING MY CAR IN YOUR PUNANI WELFARE WEDNESDAY IN YOUR PUNANI I WANT TO PUT ORANGE JUICE IN YOUR PUNANI EGG SALAD SANDWICHES IN YOUR PUNANI HOT-DOGS AND FRENCH FRIES IN YOUR PUNANI CHEF BOYARDEE IN YOUR PUNANI"

Аватара пользователя
NiGHt-LEshiY
Полковник
Полковник
Сообщения: 10258
Зарегистрирован: 13.06.2008
Откуда: Россия
Благодарил (а): 752 раза
Поблагодарили: 2667 раз
Контактная информация:

#6 Сообщение 19.05.2010, 19:29

LaDuelo666
Некоторые (например, Nice_Smile) могут не так понять.. А это ведет к холивару.
Кодекс поведения участников сообщества — обязательно к прочтению.
Просьба присылать сообщения об ошибках в ЛС.

LEBRON
Сержант
Сержант
Сообщения: 32
Зарегистрирован: 23.11.2009

#7 Сообщение 19.05.2010, 19:31

uses crt;
procedure matrix;
const ESC=#27; UP=#72; DOWN=#80;
var
i,j,c,sp:integer;
pause:longint;
scr:array [1..25,1..80] of char;
Ch:char;
begin
window (1,1,80,25);
clrscr;
directvideo:=true;
textcolor (green);
for i:=1 to 25 do for j:=1 to 80 do scr[i,j]:=#0;
randomize;
pause:=1000;
repeat
repeat
c:=242+random(14);
sp:=random(3);
if sp=0 then c:=32;
j:=2+random(79);
for i:=24 downto 2 do begin
scr[i,j]:=scr[i-1,j];
gotoxy(j,i);
write (scr[i-1,j]);
end;
gotoxy (j,1);
scr[1,j]:=Chr(c);
write (scr[1,j]);
delay (pause);
until keypressed;
Ch:=ReadKey;
case Ch of
#0: begin
Ch:=ReadKey;
case Ch of
UP: if pause<MaxLongInt-100 then Inc(pause,100);
DOWN: if pause>100 then Dec (pause,100);
end;
end;
ESC: Exit;
end;
until false;
clrscr;
textcolor(LightGray);
end;

begin
clrscr;
writeln (
'MatriX! :-)'+#13+#10+
#24+' - slow/медленнее'+#13+#10+
#25+' - fast/быстрее'+#13+#10+
'Esc - exit/выход'+#13+#10+
'Press a key/Нажмите клавишу');
reset (input);
repeat until keypressed;
matrix;
end.
нужно типа такого в пасскалеАВС

Аватара пользователя
Wnaps
Полковник
Полковник
Сообщения: 1842
Зарегистрирован: 23.01.2009
Откуда: consolelablandia
Контактная информация:

#8 Сообщение 19.05.2010, 19:34

LEBRON
сам не научишься, никто не поможет потом.
Изображение
Изображение
I love death
"Well, shit happens, doesn't it?"

LEBRON
Сержант
Сержант
Сообщения: 32
Зарегистрирован: 23.11.2009

#9 Сообщение 19.05.2010, 20:06

Wnaps
понимаю.но кто то больше приуспевает в одном деле,кто то в другом.я вот не очень приуспел в програмировании.для некоторых это совсем не сложно,почему бы и не помощь.
можно и без цвета,просто чтоб в виде матрицы было.

Добавлено спустя 30 минут:
и сделать нужно намного проще если это возможно.просто символы,или цифры чтоб появлялись в виде матрицы

Ответить