fig27_05.py

来自「PERL语言资料 可以用于PERL程序设计」· Python 代码 · 共 48 行

# Fig. 27.5: fig27_05.py
# Program to illustrate basic data types, control structures and
# functions.

def greatestCommonDivisor( x, y ):
   gcd = min( x, y )

   while gcd >= 1:

      if ( x % gcd ) == ( y % gcd ) == 0:
         return gcd
      else:
         gcd -= 1
         

def determineIfPythonPerl( name ):
   
   if name == "Python":
      print "You entered Python!"
   elif name == "Perl":
      print "You entered Perl!"
   else:
      print "You did not enter Python or Perl."

number1 = int( raw_input( "Enter a positive integer: " ) )
number2 = int( raw_input( "Enter a positive integer: " ) )

print "The greatest common divisor is", \
   greatestCommonDivisor( number1, number2 )

for entry in range( 5 ):
   language = raw_input( "\nEnter a programming language: " )
   determineIfPythonPerl( language )

########################################################################## 
# (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall.     #
# All Rights Reserved.                                                   #
#                                                                        #
# DISCLAIMER: The authors and publisher of this book have used their     #
# best efforts in preparing the book. These efforts include the          #
# development, research, and testing of the theories and programs        #
# to determine their effectiveness. The authors and publisher make       #
# no warranty of any kind, expressed or implied, with regard to these    #
# programs or to the documentation contained in these books. The authors #
# and publisher shall not be liable in any event for incidental or       #
# consequential damages in connection with, or arising out of, the       #
# furnishing, performance, or use of these programs.                     #
##########################################################################