home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 04 / quellen / discsoft.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1979-12-31  |  3.6 KB  |  82 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..3] 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 CALCGLOB.PAS }                      (* globale Prozeduren fuer Calcderi*)
  37. {$I CALC.PAS }                            (* Compiler und Interpreter        *)
  38. overlay
  39. {$I CALCSIMP.PAS }                      (* Vereinfachen von Calc-Termen    *)
  40. {$I CALCSIM2.PAS }                      (*       "       "    " , Teil 2   *)
  41. overlay
  42. {$I CALCAOS.PAS }                       (* Bildschirmausgabe               *)
  43. {$I CALCDERI.PAS }                      (* symbolisches Differenzieren     *)
  44. {$I FORMULA.INC }                       (* erlaubt Eingabe von z.B. 1/7    *)
  45. {$I DEF.INC     }                       (* Parameter                       *)
  46. {$I FUNCTION.INC}                       (* Funktionseingabe und Auswertung *)
  47. {$I SOLVE.INC   }                       (* Loesen der Gleichung f(x)=0     *)
  48. {$I INTERVAL.INC}                       (* Einlesen der Intervallparameter *)
  49. overlay
  50. {$I TABLE.INC   }                       (* Erstellen einer Wertetabelle    *)
  51. overlay
  52. {$I ROOTS.INC   }                       (* Berechnung der Nullstellen      *)
  53. overlay
  54. {$I EXTREME.INC }                       (*      -      -  Extremwerte      *)
  55. overlay
  56. {$I FLEX.INC    }                       (*      -      -  Wendestellen     *)
  57. overlay
  58. {$I INTEGRAL.INC}                       (* Integralberechnung              *)
  59. overlay
  60. {$I SYMMETRY.INC}                       (* Symmetrieueberpruefung          *)
  61. overlay
  62. {$I MONOTONY.INC}                       (* Monotonieueberpruefung          *)
  63.  
  64. (* Das folgende Modul muss fuer jeden Rechner angepasst werden !             *)
  65. (* Hierin sind die speziellen Grafik-Prozeduren enthalten.                   *)
  66. (* Es stehen bisher zur Verfuegung :
  67.  
  68.      DRAW .INC  : fuer IBM mit CGA-Karte
  69.      DRAW2.INC  : fuer Schneider CPC 6128
  70.      DRAW3.INC  : fuer Apple II+/e mit IBS AP22-Karte
  71.      DRAW4.INC  : fuer Apple II+/e mit SoftCard                              *)
  72.  
  73. overlay
  74. {$I DRAW3.INC   }                       (* Funktionsgraph zeichnen         *)
  75. overlay
  76. {$I HELLO.INC }                         (* Begruessung                     *)
  77. {$I MENU3.INC   }                       (* Menuesteuerung                  *)
  78.  
  79. Begin
  80. Menu
  81. End.
  82.