home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 01 / einfeld.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-11-25  |  1.5 KB  |  36 lines
  1. (*--------------------------------------------------------------------------*)
  2. (*       ein Statik-Programm zur Berechnung von Einfeldtraegern             *)
  3.  
  4. PROGRAM EinfeldTraeger;
  5.  
  6. CONST MaxAnzahl = 18;                         (* maximale Anzahl der Lasten *)
  7.  
  8. TYPE  Lastbild = RECORD     (* charakterisierende Eigenschaften jeder Last: *)
  9.                    Ort,                              (* - Anfangsstelle     *)
  10.                    Laenge,                           (* - Laenge            *)
  11.                    Links,                            (* - Groesse am Anfang *)
  12.                    Rechts  : REAL                    (* - Groesse am Ende   *)
  13.                  END; (* record *)
  14.  
  15. VAR   Last                    : ARRAY [1..Maxanzahl] OF Lastbild;
  16.       Auflagerlinks,Auflagerrechts,      (* Groesse der Auflagerkraefte     *)
  17.       Feldlaenge,                        (* Laenge des Traegers             *)
  18.       MaxMoment,                         (* Groesse des maximalen Momentes  *)
  19.       OrtMaxMoment,                      (* Ort des maximalen Momentes      *)
  20.       dummy                   : REAL;
  21.       Anzahl                  : INTEGER; (* tatsaechliche Anzahl der Lasten *)
  22.  
  23. (*$I eingabe.inc *)
  24. (*$I berech.inc *)
  25. (*$I bemess.inc *)
  26.  
  27. BEGIN (* EinfeldTraeger *)
  28.   Eingabe;
  29.   Auflagerlinks := 0; Auflagerrechts := 0;
  30.   Auflagerkraefte (Auflagerlinks,Auflagerrechts);
  31.   OrtMaxMoment := OrtMaximumMoment;
  32.   Schnittkraft (OrtMaxMoment,Maxmoment,dummy);
  33.   Ausgabe;
  34.   Bemessung;
  35. END. (* EinfeldTraeger *)
  36.