home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / vpascal.zip / WEATHER < prev    next >
Text File  |  1985-08-08  |  640b  |  28 lines

  1. PROGRAM WEATHER; {ask and respond to questions}
  2. VAR
  3.   WEEKDAY,RAINY:BOOLEAN;
  4.  
  5. FUNCTION YES : BOOLEAN;
  6. VAR
  7.   CH:CHAR;
  8.   S:STRING;
  9. BEGIN
  10.   READLN(S);
  11.   CH := S[1];
  12.   IF (CH = 'Y') OR (CH = 'y') THEN YES := TRUE
  13.      ELSE YES := FALSE;
  14. END;
  15.  
  16. BEGIN {----------------------------------------------------------}
  17.  
  18.   CLS;
  19.   WRITE('IS TODAY A WEEKDAY? ');
  20.   WEEKDAY := YES;
  21.   WRITE('IS IT RAINING? ');
  22.   RAINY := YES;
  23.   IF WEEKDAY THEN
  24.     IF RAINY THEN  WRITELN('DRIVE TO WORK.') ELSE WRITELN('WALK TO WORK.');
  25.   IF NOT WEEKDAY THEN
  26.     IF RAINY THEN  WRITELN('GO TO MUSEUM.') ELSE WRITELN('PLAY TENNIS!');
  27. END.
  28.