Shop Mobile More Submit  Join Login
×



Details

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

Stats

Views
598
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: