问题标签 [turbo-pascal]

For questions regarding programming in ECMAScript (JavaScript/JS) and its various dialects/implementations (excluding ActionScript). Note JavaScript is NOT the same as Java! Please include all relevant tags on your question; e.g., [node.js], [jquery], [json], [reactjs], [angular], [ember.js], [vue.js], [typescript], [svelte], etc.

0 投票
1 回答
139 浏览

pascal - 帕斯卡对角线正方形

我编写了一个应用程序,它将用对角线(从左侧)写入正方形 - 输出:

首次申请代码:

现在我必须创建一个应用程序,它将用对角线(从右侧)写入正方形 - 输出:

但我不知道我该怎么写。你能帮助我吗?

谢谢 :)

0 投票
1 回答
1836 浏览

php - 将 double 转换为 Pascal 6 字节(48 位)实数格式

我需要对遗留文件中包含的数据做一些工作。为此,我需要从 PHP 中读取和写入Turbo Pascal 的 6 字节(48 位)浮点数。Turbo Pascal 数据类型通常称为 real48 ( specs )。

我有以下 php 代码来读取格式:

改编自

现在我需要做相反的事情:写入数据类型。


注意:我知道将 C# double 转换为 Delphi Real48 问题的答案,但它看起来非常糟糕,我认为可能有一个更清洁的解决方案。而且我的机器本身不支持 64 位。

0 投票
2 回答
111 浏览

pascal - 帕斯卡条件的问题

我正在用 Pascal 编写程序。并且在条件上有一些麻烦。

例如,如果您输入输入
1 1
1 4
5 1
2 2

tArea1= 6 和sumAreas= 6
但在“if”结构中,这不能正常工作。

请帮帮我。肿瘤坏死因子。

0 投票
2 回答
112 浏览

pascal - 我不知道为什么程序没有运行

请告诉我我哪里错了,我无法在 2 个程序中解决我的错误。我尝试在帕斯卡中使用递归。

这个正在运行,但它给了我错误的结果

这个告诉我“错误:非法表达”,但我不知道如何解决

0 投票
1 回答
90 浏览

pascal - 我需要使用 TurboPascal 在 DOS 中禁用/切换打印屏幕键

任何人都可以帮助我吗?抱歉没有具体说明,但这是我必须做的。我不知道我该怎么做,有没有办法直接从 TurboPascal 重新分配密钥?

0 投票
3 回答
143 浏览

performance - 检查括号顺序是否有效

我正在尝试做的是确定括号是否按正确顺序排列。例如([][[]]<<>>)是有效的,但][]<<(>>)不是。

我有一个工作版本,但它的效率很差,当它得到 1000 多个括号时,它的速度非常慢。我希望有人可以提出一些可能的改进或其他方法。

这是我的代码:

zavorky.in 文件中的输入数据如下所示:

我确定每一行是否有效。一行中的最大括号数为 10000。

0 投票
1 回答
393 浏览

pascal - 对字符串的算术运算

我在学校有一项任务。我的任务是创建一个可以使用 1 个输入运行的计算器。例如,输入:3+7+1*2

输出将是 12

像这样,如何创建?我在谷歌搜索创建计算器,但他们都显示基本教程,如“输入第一个数字:”“输入第二个数字”“你想要什么运算符”“结果”

谢谢之前。我的英语不好。

0 投票
2 回答
382 浏览

pascal - 在 turbo pascal 5.5 中读取/写入旧 IBM PS/2 上的文件

问题:我最近购买了一台 1989 年的 IBM PS2,我正在尝试通过软盘将大文件从我较新的基于 UNIX 的机器移动到这台 IBM。我有一个 bash 脚本,可以将我的文件分成 ~2MB 块,现在我正在尝试编写一个 pascal 程序来在这些文件被传输后重建它们。

我无法在这台计算机上找到正确的文件读/写方法。我已经尝试过各种 pascal 教程网站,但它们都是针对较新版本的(我在 Pascal 中使用文件处理的网站)。我能够创建一个空文件(如下所述),但我无法写入它。有谁知道这种计算机的正确帕斯卡读写方法?

我知道这是一个晦涩难懂的问题,所以提前感谢您能给我的任何帮助!

详情

当前正确创建文件的测试代码是这样的:

这是一些不起作用的测试代码,方法append()close()找不到:

这是一个也不起作用的替代方法,该writeln()方法只打印到终端。但否则这确实编译。

系统:如前所述,这是一台 1989 年的IBM PS2

  • 它安装了 Windows 3.0,还可以运行 DOS 和 MS-DOS 终端。
  • 它具有 Microsoft SMARTDrive 磁盘缓存版本 3.06
  • 它安装了 Turbo Pascal 5.5,我将turbo其用作我的命令行 pascal 编辑器。(自述文件最后一次更新是在 1989 年)
  • 它安装了 Turbo 调试器 1.5。

再说一次,我知道这是一个晦涩难懂的问题,所以提前感谢您能给我的任何帮助!

0 投票
1 回答
9687 浏览

pascal - 如何修复退出代码 201?

我的任务是用 Pascal 编写程序。当我运行程序时,结果是退出代码 201。

我不知道如何解决这个错误。

0 投票
0 回答
271 浏览

turbo-c - 如何将此 turbo pascal 代码转换为 turbo c++?

八个月前学了turbo pascal,现在正在学turbo c++,目前只知道怎么把writeln和readln翻译成turbo c++。谁能帮我把这段代码从 turbo pascal 翻译成 turbo c++ 吗?谢谢你 :)