Pascal-Text po ukončení grafického režimu

adamec213 · Napísal **adamec213**: 27.04.2013 12:08

Hoj, mám taký problém že by som chcel aby sa vykreslil štvorec a potom sa vypísal nejaký text. Vec je v tom že by som tam chcel aj funkciu Clrscr a tá je v knižnici Crt. Akonáhle ale tuto knižnicu pridám tak funkcia writeln nepracuje správne a hodí mi len čierny odsek(akokeby medzery). Neviete prečo to robí, prípadne ako sa to dá opravit? Diky za pomoc.

Kód:

program stvorec;
uses Graph, crt;
const gd:integer=9;
        gm:integer=2;
        cesta='';

BEGIN
  Clrscr;
  InitGraph(gd,gm,cesta);
  Rectangle(200,200,300,350);
  readln;
  CloseGraph;
  writeln('To bol štvorec.');
  readln;
END.

F3RY · Napísal **F3RY**: 27.04.2013 14:13

tak s grafickou kniznicou som robil davnejsie, ale myslim, ze na vypisanie textu v grafickom rezime by stacilo pouzit proceduru OutText(retazec:string) alebo OutTextXY(x,y:integer; retazec:string).

adamec213 · Napísal autor témy **adamec213**: 27.04.2013 14:18

Asi som to napísal trocha nezrozumitelne, ja chcem aby vykreslilo ten štvorec a potom zavrelo grafický režim a ten text napísalo v textovom režime.

Gregi555 · Napísal **Gregi555**: 28.04.2013 11:04

Tento kod pracuje u mna v poriadku. Kde vidim problem? Bud cesty ku knizniciam, alebo nastavenie kompilatora. Samostatne Ti kniznice funguju normalne?

Kód:

program TEST;
uses Crt,Graph;
var
  Gd,Gm: Integer;

BEGIN
  ClrScr;
  Gd := Detect;
  InitGraph(Gd,Gm,'');
  Rectangle(100,100,540,380);
  ReadLn;
  CloseGraph;

  WriteLn('Testovaci text ...');
  ReadLn;

END.

adamec213 · Napísal autor témy **adamec213**: 28.04.2013 11:25

J samostane mi idu v pohode, používam Free Pascal. Skusil som skopírovat tento tvoj kod a tiež to isté. Vykreslí obdlžnik, zavrem to a do textového režimu mi hodí čierny odsek dlžky toho textu.

XOLOO · Napísal **XOLOO**: 28.04.2013 13:01

predtým ako vypíšeš text skús najprv zase použiť clrscr;

Pascal-Text po ukončení grafického režimu

Podobné témy