Shop Mobile More Submit  Join Login


program love_test;
type cyborg=string[25];
       matrix_error=string[15];
       waste_of_time=string[33];
       routine_counter=0..65535;
       havent_heard_of_it=byte;
var man,woman:cyborg;
      emotion:matrix_error;
      event:waste_of_time;
      day:routine_counter;
      passion:havent_heard_of_it;
begin
       randomize;
       while (1>0) do
           begin
           writeln('starting test...');
           write('man: '); read(man);
           write('woman: '); read(woman);
           write('emotion='); read(emotion);
           if (emotion='love')
               then begin
                      write('initial passion: '); read(passion);
                      day:=0;
                      repeat day:=day+1;
                                write('day ',day);
                                write('daily event: '); read(event);
                                passion:=passion+length(event)+random(11)-5-day;
                      until (passion<=0);
                      writeln('test results for: ',man,', ',woman);
                      writeln('relationship duration: ',day,' day(s)');
                      writeln('next couple please.');
                      end
               else writeln('emotion unrecognized. test failed.');
           end;
end.
Ctrl+F9
Add a Comment:
 
:iconnorealname4me:
norealname4me Featured By Owner Mar 19, 2007
imi da ciclare infinita :(
Reply
:iconthesundiver:
thesundiver Featured By Owner Mar 21, 2007
asta e şi ideea :roll:
Reply
:iconnorealname4me:
norealname4me Featured By Owner Mar 21, 2007
:rofl:
Reply
:iconthesundiver:
thesundiver Featured By Owner Mar 21, 2007
dacă a trebuit să-l compilezi ca să îţi dai seama că e ciclu infinit, n-ai înţeles deloc conceptul
Reply
:iconnorealname4me:
norealname4me Featured By Owner Mar 22, 2007
sau..nu stiu destul pascal :). n-am mai facut de.. vreo 2 ani nimic legat de pascal :).
Reply
:iconnorealname4me:
norealname4me Featured By Owner Mar 22, 2007
oricum, ciclarea infinita imi aparea de la nume. :).
Reply
:iconnorealname4me:
norealname4me Featured By Owner Jan 8, 2007
felicitari . :)
absolut extrem de original.
Reply
:iconlumorra:
lumorra Featured By Owner Oct 4, 2006
bravo :clap:

felicitari....original pana in maduva oaselor de programator :) :rofl:
fav de la mine
Reply
:iconthesundiver:
thesundiver Featured By Owner Oct 4, 2006
:giggle:
thank you dear

apreciez :)
Reply
:iconpetitelutin:
PetiteLutin Featured By Owner Sep 30, 2006  Hobbyist Photographer
Brilliant! :clap:
Reply
:iconfck3dup:
fck3dUp Featured By Owner Jul 26, 2006
:)) .. :rofl:
Reply
:iconthesundiver:
thesundiver Featured By Owner Jul 26, 2006
I take it you know a bit of programming :giggle:
thanks for faving :ahoy:
Reply
:iconfck3dup:
fck3dUp Featured By Owner Jul 26, 2006
I'm what you might call a....how do I put it...ohhh I know..I know..a GEEK :giggle:
Reply
:iconthesundiver:
thesundiver Featured By Owner Jul 26, 2006
:rofl: uite cum se-mbina arta cu stiintza
Reply
:iconfck3dup:
fck3dUp Featured By Owner Jul 26, 2006
hmmmm personalitati multiple, all great world leaders have them, take napoleon for example :P
Reply
:iconthesundiver:
thesundiver Featured By Owner Jul 26, 2006
hahaha good point ;)
Reply
:iconlifeslittlehazard:
LifesLittleHazard Featured By Owner Jun 1, 2006
extraordinar de orginal! good job! :)
Reply
:iconthesundiver:
thesundiver Featured By Owner Jun 2, 2006
multumesc :)
Reply
:iconsirswordy:
SirSwordy Featured By Owner Feb 28, 2006
Genial. Genial.
3x Genial :)



:bow:
Reply
:iconthesundiver:
thesundiver Featured By Owner Feb 28, 2006
:thanks: :giggle:
Reply
:iconsirswordy:
SirSwordy Featured By Owner Feb 28, 2006
Vezi ce faci cu springtime.pas
:paranoid:
Reply
:iconthesundiver:
thesundiver Featured By Owner Feb 28, 2006
uhm... am copt eu ceva :)... vedem maine ce reactii o sa adun :giggle:...
Reply
:iconsirswordy:
SirSwordy Featured By Owner Feb 28, 2006
Pui la gat? Bafta atunci =P


Asteptam cu interes rezultatele.
Reply
:iconidreamaboutheaven:
idreamaboutheaven Featured By Owner Feb 26, 2006
ii tare faza :) :) draguta ideea :P cu ceva optimizari , merge chiar bine, si putin adaptat la real life .. si ar fi perfect , :P
Reply
:iconthesundiver:
thesundiver Featured By Owner Feb 27, 2006
optimizari? :-?
Reply
:icontobikogawa:
Tobikogawa Featured By Owner Feb 3, 2006
zomfg... :+favlove:
Reply
:iconthesundiver:
thesundiver Featured By Owner Feb 4, 2006
:dance:
Reply
:iconwinter-angel:
winter-angel Featured By Owner Jan 29, 2006
:D foarte foarte original ;) :+fav:
Reply
:iconthesundiver:
thesundiver Featured By Owner Jan 29, 2006
:w00t:
Reply
:iconwinter-angel:
winter-angel Featured By Owner Jan 29, 2006
:D :D
Reply
:iconhelcarosse:
helcarosse Featured By Owner Jan 28, 2006
program compiled! ;)
poti sa-l rulezi acum la nivel national :laughing:

cred ca e cea mai originala "proza" daca se poate numi asa pe care am citit-o!
you keep amazing me ;)
Reply
:iconthesundiver:
thesundiver Featured By Owner Jan 28, 2006
mda... e originala... :laughing:
daca-i stii cat mi-a luat sa ma hotarasc in ce categorie s-o pun... :lmao: ar trebui sa creeze una noua: cod brut. :rofl:
Reply
:iconhelcarosse:
helcarosse Featured By Owner Jan 29, 2006
:rofl:
pai eu zic sa le sugerezi astora de la dA staff... sa faca o categorie cu fisiere.pas :lol:
daca ar fi in engleza as sugera-o ca DD... da asa nu ar intelege-o prea multi...si cred k n-ar fi acceptata...
dar e originala, jos palaria! :laughing:
Reply
:iconthesundiver:
thesundiver Featured By Owner Jan 30, 2006
:wow: tu chiar vb serios?? :faint: pey ESTE deja in engleza!... read carefully :D
Reply
:iconhelcarosse:
helcarosse Featured By Owner Jan 31, 2006
aah, da asa e! =P :D
ramasesem,nu stiu de ce,cu impresia ca e in romana de cand l-am citit prima oara.cred ca e pascalul de vina... il simt ca si limbaj natal :laughing::rofl:

ok, pai atunci o sa incerc - vedem ce iese :D ;)
te bagi?
Reply
:iconthesundiver:
thesundiver Featured By Owner Jan 31, 2006
mai intreeeebi?? :excited::giggle:
uuu... daca iese faza :fingerscrossed:... iti fac cadou subscription pe 3 luni =P
Reply
:iconhelcarosse:
helcarosse Featured By Owner Jan 31, 2006
well, tocmai am trimis noteul ;)
sa vedem acum... keep your fingers crossed!! ;) :D :aww:
Reply
:icondianaxyzt:
dianaxyzt Featured By Owner Jan 28, 2006
Ce k-lumea:):)...desi eu stiu C++ am inteles programul!Ctrl fav!:)o noua comanda!Ce l mai tare mi-a placut "emotion:matrix_error;: very creative!
Reply
:iconthesundiver:
thesundiver Featured By Owner Jan 28, 2006
hehe. :D poate mai fac o versiune: "LOVETEST.CPP"! :laughing:
Reply
:iconcallura:
callura Featured By Owner Mar 16, 2007
waiting for that.
Reply
:iconsalt-and-sea:
salt-and-sea Featured By Owner Jan 28, 2006
interesting idea...:-)
Reply
:iconthesundiver:
thesundiver Featured By Owner Jan 28, 2006
:nod:
Reply
:iconalesys:
Alesys Featured By Owner Jan 28, 2006  Hobbyist Photographer
:jawdrop:
program fav;
begin
while 1>0 do begin
browse for http://thesundiver.deviantart.com/lovetest.pas/
:+fav:
end;
end.
note: press ctrl+break to exit :D
Reply
:iconthesundiver:
thesundiver Featured By Owner Jan 28, 2006
aa... si era scan, nu browse :nod:
Reply
:iconalesys:
Alesys Featured By Owner Jan 28, 2006  Hobbyist Photographer
bah, comentezi? :rofl: ti-am dat un infinit de favuri cum am stiut si eu mai bine si tu! :P
Reply
:iconthesundiver:
thesundiver Featured By Owner Jan 28, 2006
:laughing: browse e pentru fox. program si begin nu merg. ca sa zic asa... L-AI BORSHIT!! :lmao:
Reply
Add a Comment:
 
×



Details

Submitted on
January 28, 2006
File Size
1.5 KB
Link
Thumb

Stats

Views
610
Favourites
9 (who?)
Comments
46
×