Календарь Участники форума Часто Задаваемые Вопросы Поиск   
Настройки профайла, личные сообщения и подписка на темы
Форум Ложки.net - Все о Матрице : Powered by vBulletin version 2.2.8 Форум Ложки.net - Все о Матрице > Сайт и форум > Flame > Эксперименты с сознанием > Проводные монстры, бла-бла-бла...
Отдельное сообщение:
Автор
Сообщение Новая тема   Ответить
Watcher
Программа

На форумах с марта 2010
Местонахождение:
Сообщений: 224

Вот вам всем подарок от любителя Паскаля(иже меня): roll eyes (sarcastic)


program matx;
uses graph, crt;
const
drpcnt = 40;
type
drop = record
x: Integer;
y: Integer;
t: integer;
end;
var gd,gm,i,j,r,col,ch:Integer;
code: string;
Drops :array[0..drpcnt-1] of drop;
begin
gd:= detect;
InitGraph(gd,gm,'');
if GraphResult<>grOK then
begin
WriteLn('Error: ', GraphErrorMsg(GraphResult));
ReadLn;
end;
cleardevice;
randomize;
for i := 0 to drpcnt-1 do
begin
Drops[i].x := 10*Random(GetMaxX div 10)+10;
Drops[i].y := 10*Random(GetMaxY div 10)+10;
Drops[i].t:=10+random(10);
end;
repeat
for i := 0 to drpcnt-1 do
begin
Setcolor(3);
setfillstyle(1,0);
bar(Drops[i].x-3,Drops[i].y-3,Drops[i].x+7,Drops[i].y+7);
code:=chr(random(255)+1);
Moveto(Drops[i].x,Drops[i].y);
Outtext(code);
for j:=1 to Drops[i].t do
begin
bar(Drops[i].x-3,Drops[i].y-3-j*10,Drops[i].x+7,Drops[i].y+7-j*10);
Setcolor(2);
Moveto(Drops[i].x,Drops[i].y-j*10);
code:=chr(random(255)+1);
Outtext(code);
end;
bar(Drops[i].x-3,Drops[i].y-13-Drops[i].t*10,Drops[i].x+7,Drops[i].y-3-Drops[i].t*10);
Drops[i].Y:=Drops[i].Y+10;
if Drops[i].Y-(Drops[i].t*10+10)>= GetMaxY then
begin
Drops[i].y:= 0;
Drops[i].x:= 10*Random(GetMaxX div 10)+10;
Drops[i].t:=10+random(10);
end;
end;
for i:=1 to 1 do delay(1000);
until keypressed;
closegraph;
end.

Адрес поста | Один пост | Сообщить модератору | IP: Logged

Watcher в оффлайне Old Post 02.06.2010 11:45
Посмотреть профайл автора Click here to Send Watcher a Private Message Найти еще сообщения от Watcher Добавить Watcher в Ваш список друзей Ответить с цитированием Редактировать/Удалить сообщение
Смотреть всю тему
Время на форуме соответствует Гринвичу . Сейчас время - 23:38. Новая тема   Ответить
[Закрыть это окно]


< Contact Us - Ложки.net >

Based on vBulletin 2.2.8
Powered by Stormwave.ru
Copyright © 2003 - Lozhki.Net


Rambler's Top100