Stránka 1 z 1
Pascal-Problém s textom
Napsal: 27 dub 2013 20:45
od 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.
Re: Pascal-Problém s textom
Napsal: 28 dub 2013 12:45
od 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á.
Re: Pascal-Problém s textom
Napsal: 28 dub 2013 14:38
od 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?
Re: Pascal-Problém s textom
Napsal: 28 dub 2013 15:05
od 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ě.
Re: Pascal-Problém s textom
Napsal: 28 dub 2013 18:55
od adamec213
Takže skúsim som tu 2.4.0 a prekvapivo ten program funguje teraz bezva, takže díky moc :)