home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST1404.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-17  |  750 b   |  32 lines
  1. Program CaseStr;
  2.  
  3. Const
  4.   StrConst = 'DOG CAT COW PIG SNAKE SEAL FROG DONE';
  5.  
  6. Var
  7.   i : Integer;
  8.   s : String;
  9.  
  10. Begin
  11.   Repeat
  12.     WriteLn ( 'Which animal do you want to hear? ');
  13.     ReadLn ( s );
  14.     For i := 1 to Length ( s ) Do
  15.       s [i] := UpCase ( s [i] );
  16.     If ( Length ( s ) > 0 ) Then
  17.       Case ( Pos ( s, StrConst ) ) Of
  18.          1 : WriteLn ( 'Bark Bark' );
  19.          5 : WriteLn ( 'Meow' );
  20.          9 : WriteLn ( 'Moooo' );
  21.         13 : WriteLn ( 'Oink oink' );
  22.         17 : WriteLn ( 'Hsssss' );
  23.         23 : WriteLn ( 'Oorp orp' );
  24.         28 : WriteLn ( 'Ribbet' );
  25.         33 : ;
  26.       Else
  27.         WriteLn ( 'I do not know that animal. "Done" to quit.' );
  28.       End;
  29.   Until ( s = 'DONE' );
  30. End.
  31.  
  32.