La vida, l'amor, un algorisme ple de decisions

A la classe de programació visual en Visual Basic, el meu cervell va començar a rumiar si es podrien modelitzar les situacions quotidianes per a complir els objectius que un es planteja. Així les decisions i les seves conseqüències quedarien recollides en l’algorisme de la vida.
D’aquesta reflexió ha sortit aquest programa.

Programa principal, vida:

Antecedents:
PersonaA=PersonaC+PersonaD
Inici:
For segon=0 to 9E99 [segon=segon+1]
If alimentació=true and salut(PersonaA)=true then
Créixer (PersonaA, any)
Else
Decréixer(PersonaA)
End if
Any=segon/(365*3600)
Next segon


Fi:
‘ PersonaA overflow

Subprogrames:********************************************
Sub Créixer (persona, any)
If any<=10 then Anar a l’escola

If any>10 and any<=19 then Anar a l’institut

If any>18 then
Select case (decisió)
Case 1: Anar a la uni
Case 2: Treballar
Case 3: Any panda
Default: altres
End select
End if

....

End sub



Programa amor:

Antecedents:
PersonaA=false
PersonaB=false
Inici:
Gosub Unió (PersonaA, PersonaB, química, física, altres)
PersonaA= ‘Variable no inicialitzada
PersonaB= ‘Variable no inicialitzada
While relació(PersonaA, PersonaB)=true
felicitat= felicitat +1
If PersonaA=false and PersonaB=true then
PersonaA = currar-s’ho una mica (PersonaB)
RecursosPersonaB= RecursosPersonaB-1
End if
If PersonaA=true and PersonaB=false then
PersonaB = currar-s’ho una mica (PersonaA)
RecursosPersonaA= RecursosPersonaA-1
End if
If (PersonaA=false or PersonaB=false) and (RecursosPersonaA=0 or RecursosPersonaB=0) then
Gosub indeterminació
End if
Wend
Fi
Subprogrames:**********************************
Sub indeterminació
Select case (decisió)
case 1:
PersonaB = currar-s’ho (PersonaA)
PersonaA = currar-s’ho (PersonaB)
RecursosPersonaB= RecursosPersonaB+1
RecursosPersonaA= RecursosPersonaA+1
Goto inici
case 2:
goto Antecedents
default:
End select
End sub
Sub currar-s’ho una mica ( persona )
PetitSacrifici=true
Detalls=true
Petó=true
....
End sub