Si un algoritme és el seguit ordenat i finit d'instruccions destinades a l'obtenció, processament i manipulació de dades; per què no fer-me'n un a mida?
program algoritme_nocturn;
uses SonUnics,Dialogats,DataUtil;
type
persona = record
nom : string;
any_naix : data;
estudis : string;
població : string;
end;
const N = 2;
var
l,t : persona;
begin
moment : capvespre;
if ((gresca or xerinol·la) and contacte and atracció) then
begin
t.salutació := 'Hola! Què tal?!'
while l = somriure do
begin
l.nom := InPutBox('?','Com et dius?','');
l.any_naix := InPutBox('?','En devem tenir els mateixos…','');
l.estudis := InPutBox('?','Què és això tant misteriós?','');
l.població := InPutBox('?','Ets de per aquí?','');
t := interès;
end;
for hora := 23h to 04h do
begin
t := ocurrent, desvergonyit;
l := radiant, atractiva;
end;
case conversa of
divertida : l,t := 'rialla';
seductora : l,t := 'carícia als cabells'
nerviosa : l,t := 'gratament';
didàctica : l,t := 'arqueix cellal';
end;
comiat : prematur i esperançador;
end;
else t := a dormir;
end.
Les vetllades tenen la peculiaritat de crear, de sobte, moments de gran intensitat… situacions curioses, úniques i màgiques que ens trasbalsen.
Però les experiències mai són iteratives. Al viure, tot esdevé irrepetible.
[@more@]
