[ Príspevkov: 6 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 20.07.12
Prihlásený: 28.04.13
Príspevky: 9
Témy: 4 | 4

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.


Offline

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

Registrovaný: 23.12.10
Prihlásený: 10.09.22
Príspevky: 1056
Témy: 157 | 157
Bydlisko: KK/PP/BA

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).


_________________
HP ProBook 4530s Intel® Core™ i5-2430M (2.4GHz, 3MB, 2 jadrá)*4GB 1333MHz DDR3*ATI Mobility Radeon HD 6490 1GB + Intel HD Graphics 3000*640GB SATA 5400RPM *Windows 7 Home Premium 64 bitová verzia
Lenovo IdeaPad Z50-70 Intel Core i5 4210 Haswell* NVIDIA GeForce GT 840M 4GB + Intel HD Graphics 4000*SSHD 1TB 5400 otáčok + 8GB cache*RAM 4GB* Full HD (1920 × 1080)*Windows 10 pro

Boh je reálny, pokial nebol deklarovaný ako integer
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 20.07.12
Prihlásený: 28.04.13
Príspevky: 9
Témy: 4 | 4
Napísal autor témyOffline : 27.04.2013 14:18 | Pascal-Text po ukončení grafického režimu

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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 06.04.10
Prihlásený: 18.02.14
Príspevky: 47
Témy: 2 | 2

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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 20.07.12
Prihlásený: 28.04.13
Príspevky: 9
Témy: 4 | 4
Napísal autor témyOffline : 28.04.2013 11:25 | Pascal-Text po ukončení grafického režimu

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.


Offline

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

Registrovaný: 05.04.11
Príspevky: 1693
Témy: 50 | 50
Bydlisko: Žilina, Pop...

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


_________________
rMBP 13 2015
iPhone 7
 [ Príspevkov: 6 ] 


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



Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy.

po ukončení hry procesor vyťažený na 80%

v AMD - Advanced Micro Devices

2

384

21.02.2014 20:16

DiPo

V tomto fóre nie sú ďalšie neprečítané témy.

Co víte o ukončení výroby Athlon 64 s. 939 ??

v AMD - Advanced Micro Devices

8

1577

06.10.2005 12:08

Schuger

V tomto fóre nie sú ďalšie neprečítané témy.

Free Pascal a Turbo Pascal

v Assembler, C, C++, Pascal, Java

0

429

19.12.2014 13:18

Styracoz

V tomto fóre nie sú ďalšie neprečítané témy.

Problém grafického adaptéra?

v ATI/AMD grafické karty

0

316

31.12.2015 12:40

kuRca

V tomto fóre nie sú ďalšie neprečítané témy.

Teplota grafickeho procesoru

v Chladiče a všetky druhy chladenia

12

821

02.12.2008 16:01

Daron

V tomto fóre nie sú ďalšie neprečítané témy.

Chyba grafickeho ovladača!

v Ovládače

4

642

05.12.2010 16:18

rosav

V tomto fóre nie sú ďalšie neprečítané témy.

vypnutie grafickeho adaptera

v Ovládače

1

647

29.12.2008 22:35

Jaro

V tomto fóre nie sú ďalšie neprečítané témy.

Výber grafického tabletu ?

v Externé zariadenia

9

1391

07.11.2017 21:01

wito

V tomto fóre nie sú ďalšie neprečítané témy.

Zvysenie grafickeho vykonu

[ Choď na stránku:Choď na stránku: 1, 2 ]

v Ostatné grafické karty

37

2851

19.02.2016 1:07

JD6920s

V tomto fóre nie sú ďalšie neprečítané témy.

Podpora grafického jadra procesora

v Základné dosky

2

326

20.12.2012 9:31

brmbo

V tomto fóre nie sú ďalšie neprečítané témy.

Uprava textovo-grafickeho suboru

v Grafické programy

4

420

12.08.2013 23:06

michalesku

V tomto fóre nie sú ďalšie neprečítané témy.

Pracovný PC do grafického štúdia

v PC zostavy

18

826

31.07.2018 16:25

Only Human

V tomto fóre nie sú ďalšie neprečítané témy.

Pracovný PC do grafického štúdia

v PC zostavy

23

872

10.05.2016 19:28

werwest

V tomto fóre nie sú ďalšie neprečítané témy.

Ako spraviť screenshot pascalovského grafického výstupu?

v Assembler, C, C++, Pascal, Java

2

1125

17.05.2007 23:54

audiotrack

V tomto fóre nie sú ďalšie neprečítané témy.

problem zo zapnutim grafickeho adaptera ati

v ATI/AMD grafické karty

5

528

13.09.2010 12:03

CROMLECH

V tomto fóre nie sú ďalšie neprečítané témy.

Test zakladnej dosky - CPU bez grafického čipu.

v Intel - Integrated Electronics

4

554

01.03.2021 15:00

gerremi



© 2005 - 2024 PCforum, edited by JanoF