pascal 相关问题

Pascal是1969年创建的Wirthian家族的必修语言。它在20世纪70年代和80年代被广泛用于工程和教学。它以Free Pascal和Delphi的编译器为生。

C ++是否有像Pascal这样的“with”关键字?

在Pascal中使用关键字可以用来快速访问记录的字段。有谁知道C ++是否有类似的东西?例如:我有一个包含许多字段的指针,我不想这样输入:...

回答 17 投票 16

更改Paintbox大小和图形问题

每当我更改paintbox的大小时,paintbox都会自行清除,并且不会在同一过程中添加任何图形。这是我正在尝试做的事情(BMP是位图)。 PaintBox1.Width:= ...

回答 1 投票 0

无法在Pascal 1.9.2中读取已保存的文件

PROGRAM archivosejercic1o; TYPE num =整数文件; VAR arch_num:num; name:string [20]; x:整数; BEGIN writeln('输入没有扩展名的文件的名称:'); readln(...

回答 1 投票 -2

关于Pascal中MOD语句或FOR循环的误解

我正在尝试自学帕斯卡尔,并正在组建一个程序来确定素数。这是粗糙的,不准确的,但只是练习练习。我创建了一个FOR循环,看看是否......

回答 1 投票 0

什么是首选的Pascal文件扩展名?

它是:.p .pl .pas .p ascal还是其他什么?如果您不使用首选扩展名,各种Pascal编译器(尤其是fpc)会不会出现问题?

回答 2 投票 8

Pascal中的数组

该程序输入租用的设备数量和支付的费用。如果设备损坏,则需支付额外费用。输入的数据应在屏幕上输出。当我为...输入2时

回答 1 投票 0

问Delphi7 NtQueryObject和NtQuerySystemInformation

你能解释为什么Handle类型“Process”在Process Hacker中有一个PID /进程名称:我已经尝试过NtQueryObject()和NtQuerySystemInformation()但是它们都不起作用。没有PID / ......

回答 1 投票 -2

Pascal重复标识符

程序Noname4;函数分钟(Amin,Bmin:整数):整数;函数时间(Aval,Bval:integer):整数;如果(0 <= Aval)和(Bval <24)则开始时间:= Bval - Aval; ...

回答 1 投票 1

拉撒路中两个阵列的比较

帕斯卡尔有问题,特别是拉撒路。首先,我创建了两个随机的整数数组:procedure TForm1.b_arraycreate1Click(Sender:TObject);开始随机化;对于我:= 1 ...

回答 1 投票 -1

找不到数组声明有什么问题

它说致命:语法错误,OF预期,但[发现“变量”lo“但我真的看不出它有什么问题。我试图改变变量名但似乎不起作用。程序reg(...

回答 3 投票 1

如何从txt文件中找到最大的数字?

我必须从txt文件中找出最大的数字。数字是例如:9 8 7 6 5有人告诉我,它应该有效,但它没有,我不知道如何使用文件bcs。程序......

回答 2 投票 0

使用ADOTable.Sort对DB进行排序时如何刷新StringGrid中的数据

我在Windows的Firemonkey应用程序中有一个TStringGrid,我使用LiveBindings连接到DataSource。 DataSource链接到ADOTable。当我使用ADOTable.sort时,Grid中的数据......

回答 1 投票 0

从动态数组字符串中移动()以插入/删除项目

使用System.Move()从字符串数组中插入/删除项目并不像从其他简单数据类型中插入/删除它那么容易。问题是...字符串是在Delphi中计算的引用。 ...

回答 7 投票 10

找到一个数字平方和为素数的数字(Pascal或C ++)[关闭]

所以请帮我这个:“sốđẹp”(它是越南语)是一个数字,其数字平方和是一个素数。例如:12是“sốđẹp”,因为1 ^ 2 + 2 ^ 2是5,这是一个素数。所以......

回答 1 投票 -2

pascal中的函数步骤

我有以下代码,结果是42,但为什么呢?答案必须是13,因为7 + 6 = 13。程序HelloWorld;函数F(a:整数):整数;如果(a = 1)或(a = 2)则开始,然后F:= 2 ......

回答 2 投票 -4

预期“结束”但发现“如果”。跟踪turbo pascal代码中的一些问题

程序计算; var a,b,c,d:real;开始写('a ='); readln(a);写( 'B ='); readln(B);写( 'C ='); readln(C);如果a = 0那么如果b = 0那么如果c = 0则写入('...

回答 2 投票 -2

警告:托管类型的函数结果变量似乎未初始化

我的任务要求我创建两个例程,其中一个从终端读取数据,另一个向终端输出数据,另外两个例程利用数组循环...

回答 1 投票 -3

如何对卷曲和打开/关闭括号进行排序?

我的老师要我随机排序。我试图自己解决这个问题......然而,我觉得我的解决方案很糟糕,希望有人有更好的主意。该字符串仅包含这些......

回答 1 投票 1

无法退出while循环

我无法读取更改条件程序CFS; {定义常数} const {Pay Rates} ManagerBasic = 8000; AssistManagerBasic = 7000; SupervisorBasic = 5000; ...

回答 1 投票 0

我正确使用鼠标功能吗?

预计显示对应于已选择的选项的1/2/3,但是当我点击它时没有任何显示。是编码问题还是其他什么?我试过用getmouseY代替。 ...

回答 1 投票 1

© www.soinside.com 2019 - 2024. All rights reserved.