aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Hier wird beschrieben, wie man im Grafikmodus Zahlen,etc. ausgeben kann.

Mit den Befehlen outtext/xy gehen nur strings!

Lösung

Durch voriges Einbauen der Zeile

 directvideo:=false; 

kann man auf die Unit Crt mit den Befehlen gotoxy(x,y), write, etc. zugreifen!

Beispiel

 
uses crt,graph;
var  Gd, Gm: Integer; x,y,v:integer;

begin
  Gd:= Detect;
  InitGraph(Gd, Gm,' ');
  x:=1;y:=1;
  v:=x+y;
  directvideo:=false;

  gotoxy(32,13); write('paswiki.de');
  gotoxy(32,15); write(x,' + ',y,' = ',v);
  setcolor(4);
  circle(320,230,100);
  readln;
  closegraph;
end.

---