Форум: "Потрепаться";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
ВнизПрограмно описать жись человека :) Найти похожие ветки
← →
korvin (2003-08-14 08:56) [0]Тут на форуме попадалось мне обсужнение, как програмно обратиться к богу.
Вариации на эту тему были оооочень впечатляющими.
И вот Вам ещё один такой глобальный вопрос:
"Как програмно описать жизненные процессы человека".
Предлагаю основные направлени, которые можно развивать и добавлять.
Посмотрим насколько программирование совместимо с реальной жизнью
и насколько богата Ваша фантазия :).
Ограничения касаются только цензуры
(будет жаль, если интересную мысь вырежут из-за низкоуровневой пошлости).
...
uses
UZemlya, UVoda, UVozduh, UOgon, UBiosfera, UGenetika;
...
Function Create (GenX, GenY); //создание человека как организма//
begin
...
end;
Procedure Znakomstvo;
Var Girl:real;
begin
...
end;
Procedure Ucheba; //Обучение, возможно с накоплением в базу:)//
begin
...
end;
...
Ещё процедуры: ходьба, бег, еда, акт (тот самый), ...
Дерзайте.
← →
Всеволод Соловьёв (2003-08-14 09:40) [1]Procedure Zhrat;
begin
...
end;
Procedure Spat;
begin
...
end;
Procedure Srat;
begin
...
end;
← →
reticon (2003-08-14 10:12) [2]> Всеволод Соловьёв © (14.08.03 09:40)
:-)))
← →
korvin (2003-08-14 15:58) [3]Так не пойдёть, а кто процедуры заполнять будет? :))
← →
jel (2003-08-14 16:10) [4]А можно я заполню?
Procedure Zhrat;
var p : pointer;
begin
GetMem(p, 2048);
end;
Procedure Spat;
begin
Sleep(0);
end;
Procedure Srat;
var p : pointer;
begin
FreeMem(p, 1024);
end;
:)
← →
Axis_of_Evil (2003-08-14 16:18) [5]>Procedure Zhrat;
>var p : pointer;
>begin
> GetMem(p, 2048 );
>end;
>Procedure Srat;
>var p : pointer;
>begin
> FreeMem(p, 1024 );
>end;
не понял, а где половину потеряли?
на рост? а где
if (Age <= EndGrowAge) then
FreeMem(p, 2048);
и потом
>2048
это же 1024 слова ... это же словесный запор :>
← →
Дедов Дмитрий (2003-08-14 16:32) [6]
> Var Girl:real;
Ага "чисто реальная" такая Girl... :-)))
← →
SergP (2003-08-14 16:42) [7]
> не понял, а где половину потеряли?
Можно подумать что ты делаешь Srat столько же сколько и Zhrat.
:-)
← →
VID (2003-08-14 16:49) [8]Function Fuck(var Energy:Integer):Boolean;
begin
//....
Dec(Energy);
Result := {логическое совпадение множества факторов}
end;
{Фукция возвращает true при достижении успешного результата :)
← →
Axis_of_Evil (2003-08-14 16:57) [9]>Function Fuck(var Energy:Integer):Boolean;
Интересная последовательность:
korvin
Function Create (GenX, GenY);
Procedure Znakomstvo;
Procedure Ucheba;
jel
Procedure Zhrat;
Procedure Spat;
Procedure Srat;
Надо отметить отстутствие аргументов у методов
Znakomstvo
Zhrat
Spat
Srat
и что самое (интересное\нормальное) у метода
Fuck.
← →
VID (2003-08-14 17:03) [10]type TDeathType (dtNormal, dtKilled, dtIll, dtOther);
← →
Всеволод Соловьёв (2003-08-14 17:55) [11]type TDeathType=(dtNormal, dtPorvaloNaGrelki, dtKilled, dtIll, dtOther);
gy-gy :)
← →
Чапаев (2003-08-14 17:57) [12]type TDeathType=(dtNormal, dtPorvaloNaGrelki, dtKilled, dtIll, dtOther, dtFrom_ВИЧ, dtFrom_SARS, dt_По_Пьянке);
← →
kaif (2003-08-14 18:30) [13]Нужно написать вечную мантру и вечно ее спамить.
Харе Кришна легко реализуется перебором всех комбинаций ключевых слов Харе,Кришна,Рама.
← →
Soft (2003-08-14 19:10) [14]Разговор с Вечным
http://rosd.org.ru/datsuk.html
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.009 c