改错题,指出下列程序错误并纠正(每小题5处1、 输入一个整数(小于100),输出其平方procedure squa (x:integer):integer{result=:x*x}2、 一个TADOQuery类数据集组件ADOQ1,其中存放一个含className字段的班
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 00:03:19
![改错题,指出下列程序错误并纠正(每小题5处1、 输入一个整数(小于100),输出其平方procedure squa (x:integer):integer{result=:x*x}2、 一个TADOQuery类数据集组件ADOQ1,其中存放一个含className字段的班](/uploads/image/z/8482627-19-7.jpg?t=%E6%94%B9%E9%94%99%E9%A2%98%2C%E6%8C%87%E5%87%BA%E4%B8%8B%E5%88%97%E7%A8%8B%E5%BA%8F%E9%94%99%E8%AF%AF%E5%B9%B6%E7%BA%A0%E6%AD%A3%28%E6%AF%8F%E5%B0%8F%E9%A2%985%E5%A4%841%E3%80%81+%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%95%B4%E6%95%B0%EF%BC%88%E5%B0%8F%E4%BA%8E100%EF%BC%89%2C%E8%BE%93%E5%87%BA%E5%85%B6%E5%B9%B3%E6%96%B9procedure+squa+%28x%EF%BC%9Ainteger%29%EF%BC%9Ainteger%7Bresult%3D%3Ax%2Ax%7D2%E3%80%81+%E4%B8%80%E4%B8%AATADOQuery%E7%B1%BB%E6%95%B0%E6%8D%AE%E9%9B%86%E7%BB%84%E4%BB%B6ADOQ1%2C%E5%85%B6%E4%B8%AD%E5%AD%98%E6%94%BE%E4%B8%80%E4%B8%AA%E5%90%ABclassName%E5%AD%97%E6%AE%B5%E7%9A%84%E7%8F%AD)
改错题,指出下列程序错误并纠正(每小题5处1、 输入一个整数(小于100),输出其平方procedure squa (x:integer):integer{result=:x*x}2、 一个TADOQuery类数据集组件ADOQ1,其中存放一个含className字段的班
改错题,指出下列程序错误并纠正(每小题5处
1、 输入一个整数(小于100),输出其平方
procedure squa (x:integer):integer
{
result=:x*x
}
2、 一个TADOQuery类数据集组件ADOQ1,其中存放一个含className字段的班级表,要求将ADOQ1的className字段对应的所有值通过循环依次加到组合框CB_Class中,并设置其默认显示项为CB_Class中第一项,实现如下
while not ADOQ1.bof do
begin
CB_Class.items.add(ADOQ1.FieldByName(‘className’));
End
这是我学的Delphi语言的作业
改错题,指出下列程序错误并纠正(每小题5处1、 输入一个整数(小于100),输出其平方procedure squa (x:integer):integer{result=:x*x}2、 一个TADOQuery类数据集组件ADOQ1,其中存放一个含className字段的班
1.
procedure squa (x:integer):integer;
begin
result := x*x;
end;
2.
ADOQ1.First;
while not ADOQ1.Eof do
begin
CB_Class.items.add(ADOQ1.FieldByName(‘className’).asString);
ADOQ1.Next;
End;
自己对比一下就知道哪里错误.