Програмно описать жись человека :)

← →
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);

type TDeathType=(dtNormal, dtPorvaloNaGrelki, dtKilled, dtIll, dtOther);
gy-gy :)

type TDeathType=(dtNormal, dtPorvaloNaGrelki, dtKilled, dtIll, dtOther, dtFrom_ВИЧ, dtFrom_SARS, dt_По_Пьянке);

Нужно написать вечную мантру и вечно ее спамить.
Харе Кришна легко реализуется перебором всех комбинаций ключевых слов Харе,Кришна,Рама.

Разговор с Вечным
http://rosd.org.ru/datsuk.html

Програмно описать жись человека :) Найти похожие ветки