home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 04 / quellen / discuss.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-10-10  |  3.5 KB  |  76 lines
  1. {$c-,u-,a+,v-,r-}   (* Compiler-Voreinstellungen *)
  2.  
  3. (*****************************************************************************)
  4. (*                                                                           *)
  5. (*         >>>>>>>>>>  Programm:    DISCUSS.PAS  (v3.0)  <<<<<<<<<<          *)
  6. (*                                                                           *)
  7. (*                             Kurvendiskussion                              *)
  8. (*                                                                           *)
  9. (*                              (c) 1986,87,88                               *)
  10. (*               Karsten Gieselmann, Michael Ceol, Peter Engels              *)
  11. (*                          & PASCAL International                           *)
  12. (*                                                                           *)
  13. (*****************************************************************************)
  14.  
  15.  
  16. (* einige globale Variable und Konstante *)
  17.  
  18. CONST
  19. {$I CALCCONS.PAS }
  20. maxgrad = 2;
  21.  
  22. TYPE
  23. {$I CALCTYPE.PAS }
  24. strg = calc_string;
  25.  
  26. VAR
  27. VarTable : Calc_VarTab;
  28. ArgPos   : INTEGER;
  29. FormProg : ARRAY [0..maxgrad] OF Calc_prog;
  30. FuncTerm : Calc_String;
  31. {$I CALCVAR.PAS }
  32.  
  33. {$I READSTR.INC }                         (* komfortable Stringeingabe       *)
  34. {$I CALCUTIL.PAS }                        (* Hilfsroutinen fuer Calc         *)
  35. {$I MATHFUNC.PAS }                        (* Funktionensammlung              *)
  36. {$I CALC.PAS }                            (* Compiler und Interpreter        *)
  37. {$I CALCGLOB.PAS }                        (* globale Prozeduren fuer Calcderi*)
  38. {$I CALCSIMP.PAS }                        (* Vereinfachen von Calc-Termen    *)
  39. {$I CALCSIM2.PAS }                        (*       "       "    " , Teil 2   *)
  40. {$I CALCDERI.PAS }                        (* symbolisches Differenzieren     *)
  41. {$I CALCAOS.PAS }                         (* Bildschirmausgabe               *)
  42. {$I FORMULA.INC }                         (* erlaubt Eingabe von z.B. 1/7    *)
  43. {$I HELLO.INC }                           (* Begruessung                     *)
  44. {$I DEF.INC     }                         (* Parameter                       *)
  45. {$I FUNCTION.INC}                         (* Funktionseingabe und Auswertung *)
  46. {$I SOLVE.INC   }                         (* Loesen der Gleichung f(x)=0     *)
  47. {$I INTERVAL.INC}                         (* Einlesen der Intervallparameter *)
  48. {$I TABLE.INC   }                         (* Erstellen einer Wertetabelle    *)
  49. {$I ROOTS.INC   }                         (* Berechnung der Nullstellen      *)
  50. {$I EXTREME.INC }                         (*      -      -  Extremwerte      *)
  51. {$I FLEX.INC    }                         (*      -      -  Wendestellen     *)
  52. {$I INTEGRAL.INC}                         (* Integralberechnung              *)
  53. {$I SYMMETRY.INC}                         (* Symmetrieueberpruefung          *)
  54. {$I MONOTONY.INC}                         (* Monotonieueberpruefung          *)
  55.  
  56. (* Das folgende Modul muss fuer jeden Rechner angepasst werden !             *)
  57. (* Hierin sind die speziellen Grafik-Prozeduren enthalten.                   *)
  58. (* Es stehen bisher zur Verfuegung :
  59.  
  60.      DRAW .INC  : fuer IBM mit CGA-Karte
  61.      DRAW2.INC  : fuer Schneider CPC 6128
  62.      DRAW3.INC  : fuer Apple II+/e mit IBS AP22 - Karte
  63.      DRAW4.INC  : fuer Apple II+/e mit normaler SoftCard                     *)
  64.  
  65.  
  66. {$I DRAW.INC   }                         (* Funktionsgraph zeichnen         *)
  67.  
  68.  
  69.  
  70.  
  71. {$I MENU3.INC   }                         (* Menuesteuerung                  *)
  72.  
  73. Begin
  74. Menu
  75. End.
  76.