gotoxy 命令在 Pascal 中被跳过

gotoxy command got skipped in pascal

提问人:RD 1380 提问时间:10/26/2023 更新时间:10/27/2023 访问量:66

问:

我正在做学校作业。在第 87 行及以下,gotoxy 不起作用,但代码可以。这是代码的裁剪部分。

gotoxy(32,24); write(' _______________________________________________ ');
gotoxy(32,25); write('|                 PESANAN ANDA                  |');
gotoxy(32,26); writeln('|_______________________________________________|');
gotoxy(20,27); writeln('     ', nama,' ');
gotoxy(20,27); writeln('     Rp.', jumlah,',-');
gotoxy(20,28); write('     Porsi: ');
gotoxy(20,28); writeln(porsi2);
gotoxy(20,29); write('     Jenis: ');
gotoxy(20,29); writeln(lokasi);
gotoxy(20,30); write('     Total: ');
gotoxy(20,29); writeln('Rp.', total,',-');
readln;
end;

结束。

当我编译并运行程序时,底部看起来像这样。

我一直在寻找类似的问题,以及这种和其他形式的解决方案,但我没有得到答案。

帕斯卡

评论

0赞 500 - Internal Server Error 10/27/2023
可能,您不应该与 - just 结合使用。writelngotoxywrite
1赞 RD 1380 10/27/2023
不过,上一行适用于 writeln。另外,当我写字时,“Soto Bandung”文本移到了框旁边。

答:

4赞 Armali 10/27/2023 #1

如果你

  write(ScreenWidth, 'x', ScreenHeight);

你可能会看到 .超出此范围的 A 并不像人们预期的那样工作。80x25gotoxy()