programs.shar

书名:C语言科学与艺术,以前交钱下载的

X
Xiseven.o: iseven.c
X	$(CC) $(CFLAGS) -c iseven.c
X
Xc2ftable.o: c2ftable.c
X	$(CC) $(CFLAGS) -c c2ftable.c
X
Xfact.o: fact.c
X	$(CC) $(CFLAGS) -c fact.c
X
Xcombine.o: combine.c
X	$(CC) $(CFLAGS) -c combine.c
X
Xcalendar.o: calendar.c
X	$(CC) $(CFLAGS) -c calendar.c
X
X
Xgameloop: gameloop.o
X	$(CC) $(CFLAGS) -o gameloop gameloop.o
X
Xiseven: iseven.o
X	$(CC) $(CFLAGS) -o iseven iseven.o
X
Xc2ftable: c2ftable.o
X	$(CC) $(CFLAGS) -o c2ftable c2ftable.o
X
Xfact: fact.o
X	$(CC) $(CFLAGS) -o fact fact.o
X
Xcombine: combine.o
X	$(CC) $(CFLAGS) -o combine combine.o
X
Xcalendar: calendar.o
X	$(CC) $(CFLAGS) -o calendar calendar.o
END_OF_FILE
if test 1604 -ne `wc -c <'programs/05-Functions/Makefile'`; then
    echo shar: \"'programs/05-Functions/Makefile'\" unpacked with wrong size!
fi
# end of 'programs/05-Functions/Makefile'
fi
if test -f 'programs/05-Functions/c2ftable.c' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'programs/05-Functions/c2ftable.c'\"
else
echo shar: Extracting \"'programs/05-Functions/c2ftable.c'\" \(1023 characters\)
sed "s/^X//" >'programs/05-Functions/c2ftable.c' <<'END_OF_FILE'
X/*
X * File: c2ftable.c
X * ----------------
X * This program illustrates the use of functions by generating
X * a table of Celsius to Fahrenheit conversions.
X */
X
X#include <stdio.h>
X#include "genlib.h"
X
X/*
X * Constants
X * ---------
X * LowerLimit -- Starting value for temperature table
X * UpperLimit -- Final value for temperature table
X * StepSize   -- Step size between table entries
X */
X
X#define LowerLimit   0
X#define UpperLimit 100
X#define StepSize     5
X
X/* Function prototypes */
X
Xdouble CelsiusToFahrenheit(double c);
X
X/* Main program */
X
Xmain()
X{
X    int c;
X
X    printf("Celsius to Fahrenheit table.\n");
X    printf("  C    F\n");
X    for (c = LowerLimit; c <= UpperLimit; c += StepSize) {
X        printf("%3d  %3g\n", c, CelsiusToFahrenheit(c));
X    }
X}
X
X/*
X * Function: CelsiusToFahrenheit
X * Usage: f = CelsiusToFahrenheit(c);
X * ----------------------------------
X * Returns the Fahrenheit equivalent of the Celsius
X * temperature c.
X */
X
Xdouble CelsiusToFahrenheit(double c)
X{
X    return (9.0 / 5.0 * c + 32);
X}
END_OF_FILE
if test 1023 -ne `wc -c <'programs/05-Functions/c2ftable.c'`; then
    echo shar: \"'programs/05-Functions/c2ftable.c'\" unpacked with wrong size!
fi
# end of 'programs/05-Functions/c2ftable.c'
fi
if test -f 'programs/05-Functions/calendar.c' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'programs/05-Functions/calendar.c'\"
else
echo shar: Extracting \"'programs/05-Functions/calendar.c'\" \(5334 characters\)
sed "s/^X//" >'programs/05-Functions/calendar.c' <<'END_OF_FILE'
X/*
X * File: calendar.c
X * ----------------
X * This program is used to generate a calendar for a year
X * entered by the user.
X */
X
X#include <stdio.h>
X#include "genlib.h"
X#include "simpio.h"
X
X/*
X * Constants:
X * ----------
X * Days of the week are represented by the integers 0-6.
X * Months of the year are identified by the integers 1-12;
X * because this numeric representation for months is in
X * common use, no special constants are defined.
X */
X
X#define Sunday     0
X#define Monday     1
X#define Tuesday    2
X#define Wednesday  3
X#define Thursday   4
X#define Friday     5
X#define Saturday   6
X
X/* Function prototypes */
X
Xvoid GiveInstructions(void);
Xint GetYearFromUser(void);
Xvoid PrintCalendar(int year);
Xvoid PrintCalendarMonth(int month, int year);
Xvoid IndentFirstLine(int weekday);
Xint MonthDays(int month, int year);
Xint FirstDayOfMonth(int month, int year);
Xstring MonthName(int month);
Xbool IsLeapYear(int year);
X
X/* Main program */
X
Xmain()
X{
X    int year;
X
X    GiveInstructions();
X    year = GetYearFromUser();
X    PrintCalendar(year);
X}
X
X/*
X * Function: GiveInstructions
X * Usage: GiveInstructions();
X * --------------------------
X * This procedure prints out instructions to the user.
X */
X
Xvoid GiveInstructions(void)
X{
X    printf("This program displays a calendar for a full\n");
X    printf("year.  The year must not be before 1900.\n");
X}
X
X/*
X * Function: GetYearFromUser
X * Usage: year = GetYearFromUser();
X * --------------------------------
X * This function reads in a year from the user and returns
X * that value.  If the user enters a year before 1900, the
X * function gives the user another chance.
X */
X
Xint GetYearFromUser(void)
X{
X    int year;
X
X    while (TRUE) {
X        printf("Which year? ");
X        year = GetInteger();
X        if (year >= 1900) return (year);
X        printf("The year must be at least 1900.\n");
X    }
X}
X
X/*
X * Function: PrintCalendar
X * Usage: PrintCalendar(year);
X * ---------------------------
X * This procedure prints a calendar for an entire year.
X */
X
Xvoid PrintCalendar(int year)
X{
X    int month;
X
X    for (month = 1; month <= 12; month++) {
X        PrintCalendarMonth(month, year);
X        printf("\n");
X    }
X}
X
X/*
X * Function: PrintCalendarMonth
X * Usage: PrintCalendarMonth(month, year);
X * ---------------------------------------
X * This procedure prints a calendar for the given month
X * and year.
X */
X
Xvoid PrintCalendarMonth(int month, int year)
X{
X    int weekday, nDays, day;
X
X    printf("    %s %d\n", MonthName(month), year);
X    printf(" Su Mo Tu We Th Fr Sa\n");
X    nDays = MonthDays(month, year);
X    weekday = FirstDayOfMonth(month, year);
X    IndentFirstLine(weekday);
X    for (day = 1; day <= nDays; day++) {
X        printf(" %2d", day);
X        if (weekday == Saturday) printf("\n");
X        weekday = (weekday + 1) % 7;
X    }
X    if (weekday != Sunday) printf("\n");
X}
X
X/*
X * Function: IndentFirstLine
X * Usage: IndentFirstLine(weekday);
X * --------------------------------
X * This procedure indents the first line of the calendar
X * by printing enough blank spaces to get to the position
X * on the line corresponding to weekday.
X */
X
Xvoid IndentFirstLine(int weekday)
X{
X    int i;
X
X    for (i = 0; i < weekday; i++) {
X        printf("   ");
X    }
X}
X
X/*
X * Function: MonthDays
X * Usage: ndays = MonthDays(month, year);
X * --------------------------------------
X * MonthDays returns the number of days in the indicated
X * month and year.  The year is required to handle leap years.
X */
X
Xint MonthDays(int month, int year)
X{
X    switch (month) {
X      case 2:
X        if (IsLeapYear(year)) return (29);
X        return (28);
X      case 4: case 6: case 9: case 11:
X        return (30);
X      default:
X        return (31);
X    }
X}
X
X/*
X * Function: FirstDayOfMonth
X * Usage: weekday = FirstDayOfMonth(month, year);
X * ----------------------------------------------
X * This function returns the day of the week on which the
X * indicated month begins.  This program simply counts
X * forward from January 1, 1900, which was a Monday.
X */
X
Xint FirstDayOfMonth(int month, int year)
X{
X    int weekday, i;
X
X    weekday = Monday;
X    for (i = 1900; i < year; i++) {
X        weekday = (weekday + 365) % 7;
X        if (IsLeapYear(i)) weekday = (weekday + 1) % 7;
X    }
X    for (i = 1; i < month; i++) {
X        weekday = (weekday + MonthDays(i, year)) % 7;
X    }
X    return (weekday);
X}
X
X/*
X * Function: MonthName
X * Usage: name = MonthName(month);
X * -------------------------------
X * MonthName converts a numeric month in the range 1-12
X * into the string name for that month.
X */
X
Xstring MonthName(int month)
X{
X    switch (month) {
X      case  1: return ("January");
X      case  2: return ("February");
X      case  3: return ("March");
X      case  4: return ("April");
X      case  5: return ("May");
X      case  6: return ("June");
X      case  7: return ("July");
X      case  8: return ("August");
X      case  9: return ("September");
X      case 10: return ("October");
X      case 11: return ("November");
X      case 12: return ("December");
X      default: return ("Illegal month");
X    }
X}
X
X/*
X * Function: IsLeapYear
X * Usage: if (IsLeapYear(year)) . . .
X * ----------------------------------
X * This function returns TRUE if year is a leap year.
X */
X
Xbool IsLeapYear(int year)
X{
X    return ( ((year % 4 == 0) && (year % 100 != 0))
X             || (year % 400 == 0) );
X}
END_OF_FILE
if test 5334 -ne `wc -c <'programs/05-Functions/calendar.c'`; then
    echo shar: \"'programs/05-Functions/calendar.c'\" unpacked with wrong size!
fi
# end of 'programs/05-Functions/calendar.c'
fi
if test -f 'programs/05-Functions/combine.c' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'programs/05-Functions/combine.c'\"
else
echo shar: Extracting \"'programs/05-Functions/combine.c'\" \(1523 characters\)
sed "s/^X//" >'programs/05-Functions/combine.c' <<'END_OF_FILE'
X/*
X * File: combine.c
X * ---------------
X * This program tests a function to compute the mathematical
X * combination function Combinations(n, k), which gives the
X * number of ways to choose a subset of k objects from a set
X * of n distinct objects.
X */
X
X#include <stdio.h>
X#include "genlib.h"
X#include "simpio.h"
X
X/* Function prototypes */
X
Xint Combinations(int n, int k);
Xint Factorial(int n);
X
X/* Main program */
X
Xmain()
X{
X    int n, k;
X
X    printf("Enter number of objects in the set (n)? ");
X    n = GetInteger();
X    printf("Enter number to be chosen (k)? ");
X    k = GetInteger();
X    printf("C(%d, %d) = %d\n", n, k, Combinations(n, k));
X}
X
X/*
X * Function: Combinations
X * Usage: ways = Combinations(n, k);
X * ---------------------------------
X * Implements the Combinations function, which returns the number
X * of distinct ways of choosing k objects from a set of n objects.
X * In mathematics, this function is often written as C(n,k), but a
X * function called C is not very self-descriptive, particularly in
X * a language which has precisely the same name.
X */
X
Xint Combinations(int n, int k)
X{
X    return (Factorial(n) / (Factorial(k) * Factorial(n - k)));
X}
X
X/*
X * Function: Factorial
X * Usage: f = Factorial(n);
X * ------------------------
X * Returns the factorial of the argument n, where factorial
X * is defined as the product of all integers from 1 up to n.
X */
X
Xint Factorial(int n)
X{
X    int product, i;
X
X    product = 1;
X    for (i = 1; i <= n; i++) {
X        product *= i;
X    }
X    return (product);
X}
END_OF_FILE
if test 1523 -ne `wc -c <'programs/05-Functions/combine.c'`; then
    echo shar: \"'programs/05-Functions/combine.c'\" unpacked with wrong size!
fi
# end of 'programs/05-Functions/combine.c'
fi
if test -f 'programs/05-Functions/fact.c' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'programs/05-Functions/fact.c'\"
else
echo shar: Extracting \"'programs/05-Functions/fact.c'\" \(970 characters\)
sed "s/^X//" >'programs/05-Functions/fact.c' <<'END_OF_FILE'
X/*
X * File: fact.c
X * ------------
X * This program includes the Factorial function and a test
X * program that prints the factorials of the numbers between
X * the limits LowerLimit and UpperLimit, inclusive.
X */
X
X#include <stdio.h>
X#include "genlib.h"
X
X/*
X * Constants
X * ---------
X * LowerLimit -- Starting value for factorial table
X * UpperLimit -- Final value for factorial table
X */
X
X#define LowerLimit 0
X#define UpperLimit 7
X
X/* Function prototypes */
X
Xint Factorial(int n);
X
X/* Main program */
X
Xmain()
X{
X    int i;
X
X    for (i = LowerLimit; i <= UpperLimit; i++) {
X        printf("%d! = %5d\n", i, Factorial(i));