home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 04 / tierisch.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-13  |  977 b   |  31 lines
  1. PROGRAM tierhandel;
  2.  
  3. { 100 Tiere werden verkauft, der Gewinn betraegt insgesamt 100 DM.
  4.   Gewinnspannen: pro Hund: 15 DM, pro Katze 1 DM, pro Maus 0,25 DM.
  5.   Wie viele Tiere von jeder Art wurden verkauft?
  6.   Programmiersprache: Turbo-Pascal, Autor: W.J.Weber, Dezember 1986 }
  7.  
  8. VAR hunde, katzen, maeuse: INTEGER;
  9.  
  10. BEGIN
  11.   ClrScr;
  12.   GotoXY(10,10); WriteLn('Der tuechtige Tierhaendler');
  13.   GotoXY(10,11); WriteLn('--------------------------');
  14.   GotoXY(1,15);
  15.   FOR hunde := 1 TO 6 DO
  16.     FOR katzen := 1 TO 100 - hunde DO
  17.     BEGIN
  18.       maeuse := 4;
  19.       REPEAT
  20.         IF (hunde + katzen + maeuse = 100) AND
  21.            (15 * hunde + katzen + (maeuse DIV 4) = 100) THEN
  22.         BEGIN
  23.           Write('Loesung gefunden: Es wurden');
  24.           Write(hunde:3,' Hunde,',katzen:3,' Katzen und');
  25.           WriteLn(maeuse:3,' Maeuse verkauft.');
  26.         END;
  27.         maeuse := maeuse + 4;
  28.       UNTIL katzen+maeuse >= 100;
  29.     END; { FOR katzen }
  30. END.
  31.