Pascal-Problém s textom

[adamec213]

Hoj, mám taký problém že by som chcel aby sa vykreslil štvorec a potom sa vypísal nejaký text v textovom režime. 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: Vybrat vše

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.

[Reklama]

[faraon]

Ve starém Turbo Pascalu pod DOSBoxem mi to funguje správně, zkus upřesnit jakou verzi Pascalu používáš a pod jakým operačním systémem, třeba je zakopaný pes tam.
Možná by ještě pomohlo po vypnutí grafiky nejdřív nastavit barvu písma a smazat obrazovku, a pak teprve psát, zkus co to udělá.

[adamec213]

Tak ja mám Free pascal 2.6.2 pod OS Win XP SP3 32bit. Skusil som ako si poradil, nastavit farbu písma a zmazat obrazovku ale stále to hádže len ten čierny odsek o veľkosti daného textu. Bezvýsledne. Ak je teda chyba v kompilátore, čo asi je, lebo aj kamoša som sa pýtal a jemu to tiež v starom pascale frči, dá sa to nejak fixnut? Prípadne vieš nejaký iný dobrý Pascal kompilátor?

[faraon]

Pod XP by to mělo fungovat, ale je možné že tam už mají nějaká "vylepšení" kvůli kompatibilitě s W7 a W8.

Zkus starší verzi: http://www.slunecnice.cz/sw/fpc/
nebo Dev-Pascal: http://www.slunecnice.cz/sw/dev-pascal/

Uvidíš jestli to v nich půjde, jinak by ti nezbylo než používat ten šestnáctibitový dosový TP. Ten by pod XP měl bez problémů chodit i s grafikou, tu v M$ odřízli až ve Vistě.

[adamec213]

Takže skúsim som tu 2.4.0 a prekvapivo ten program funguje teraz bezva, takže díky moc :)