Deviant Login Shop  Join deviantART for FREE Take the Tour
×



Details

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

Stats

Views
587
Favourites
9 (who?)
Comments
46
×


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
Add a Comment: