home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / nodebug / td_test.pas < prev   
Pascal/Delphi Source File  |  1994-10-18  |  873b  |  49 lines
  1. {$A+,B-,D-,E+,F+,G+,I+,L-,N-,O-,P-,Q-,R-,S+,T-,V+,X+,Y-}
  2. {$M 16384,0,655360}
  3. program show_how_to_debug;
  4.  
  5. uses crt;
  6.  
  7. Var inputvar : word;
  8.     vie  : byte;
  9.     facteur : real;
  10.  
  11. Procedure init_variables;
  12. begin;
  13.   vie  := 4;
  14.   facteur := 0.27
  15. end;
  16.  
  17. Procedure saisie_utilisateur;
  18. begin;
  19.   textcolor(14);
  20.   gotoxy(10,3);
  21.   write('                                                     ');
  22.   gotoxy(10,3);
  23.   write('Tapez la nouvelle valeur de test: ');
  24.   readln(inputvar);
  25. end;
  26.  
  27. Procedure calcul_arbitraire;
  28. begin;
  29.   if (inputvar * facteur) < 10 then
  30.     dec(vie);
  31. end;
  32.  
  33. Procedure affiche_etat;
  34. begin;
  35.   textcolor(15);
  36.   gotoxy(10,10);
  37.   write('Saisie : ',inputvar:5,'      ==>    Vie : ',vie:3);
  38. end;
  39.  
  40. begin;
  41.   clrscr;
  42.   init_variables;
  43.   repeat
  44.     saisie_utilisateur;
  45.     calcul_arbitraire;
  46.     affiche_etat;
  47.   until vie = 0;
  48. end.
  49.