🚀 go-pugleaf

Hallo,

Wir haben folgendes Problem:

Beim Compilieren des untenstehenden Codes wird folgender Fehler
ausgegeben:
"Datei graph.tpw nicht gefunden!"

Unseres Wissens nach gibt es solch eine Datei aber nicht, zumindest
haben wir sie auf unserem Rechner noch nicht entdeckt. Wir benutzen
Turbo Pascal 7.0 f�r Windows.

F�r Hilfe w�ren wir sehr dankbar.
Antwort bitte per email an: gymnasiumluetjenburg@t-online.de


PROGRAM FeinGraf;
USES wincrt, Graph;
{ Das Schaubild einer Funktion wird im Grafik-Bildschirm }
{ punktweise gezeichnet }

  VAR
    MAXx,MAXy    : word;{ Bildpunktzahl in x bzw. y-Richtung }
    xl,xr,yu,yo  : real; { Weltkoord. des Bildschirmrandes }
    MX,MY        : real; { Anz. der Punkte f�r eine Einheit }
    XB,YB,XB0,YB0: integer; { Bildschirmkoordinaten }
    x,y          : real; { Weltkoord. eines Kurvenpunktes }

  PROCEDURE Grafik_einschalten;
    VAR
      GraphDriver : integer; { Kenn-Nummer des Grafik Treibers }
      GraphMode   : integer; { Grafikmodus }
      ErrorCode   : word; { speichert Fehlernummern }
    BEGIN
      GraphDriver := Detect; { automatische Erkennung }
      InitGraph(GraphDriver,GraphMode,'c:\bp\bgi'); { Handbuch beachten!
}
      ErrorCode := GraphResult;
      IF ErrorCode<>grok THEN writeln(ErrorCode); { Fehler! }

      MAXx := GetMaxX; MAXy := GetMaxY;

    END;

  PROCEDURE Bildschirmfenster_festlegen;
    BEGIN
      writeln('Eingabe des Bildschirmfensters: '); writeln;
      write('Linker Rand in x-Richtung ? '); readln(xl);
       write('Rechter Rand in x-Richtung ? '); readln(xr);
      write('Unterer Rand in y-Richtung ? '); readln(yu);
      write('Oberer Rand in y-Richtung ? '); readln(yo);
      MAXx := 639; MAXy := 324;
      writeln(MAXx);
      readln;
      MX := MAXx/(xr-xl); { Bildpunkte f�r eine x-Einheit }
      MY := Maxy/(yo-yu); { Bildpunkte f�r eine y-Einheit }
    END;

  PROCEDURE Koordinatensystem_zeichnen;
    BEGIN
      XB0 := round(-xl*MX); { Bildabszisse des Ursprungs }
      YB0 := round( yo*MY); { Bildordinate des Ursprungs }
      Line(0,YB0,MAXx,YB0); { x-Achse zeichnen }
      Line(XB0,0,XB0,MAXy); { y-Achse zeichnen }
    END;

  PROCEDURE Schaubild_zeichnen;
    BEGIN
      FOR XB := 0 TO MAXx DO
        BEGIN
           x := xl + XB/MX; { Umrechnung Bild --> Welt }
           y := x*x*x-x; { Funktionsterm f�r die Berechnung }
           YB := round((yo-y)*MY);{  Umrechnung Welt --> Bild }
           PutPixel(XB,YB,3);{  Zeichnen des Bildpunktes }
        END;
      outTextXY(0,0,'Das war es! Weiter mit <RETURN>') ;
      readln;
    END;

BEGIN
clrscr;

write('Schaubild der Funktion f mit f(x) = ':52);
writeln('x^3 -  x'); { Funktionsterm in der �berschrift }
Bildschirmfenster_festlegen;
Grafik_einschalten;
Koordinatensystem_zeichnen;
 Schaubild_zeichnen;
Closegraph;
writeln(maxx,' ',maxy);
writeln(xr-xl,' ',yo-yu);
writeln(xl,' ',yu);
writeln(mx,' ',my);
END.