伪代码如右图，若输入73，输出结果是______．

用伪代码表示解不等式ax>b(a不等于0）的算法过程
RT.

用vb编写程序,要完整代码,一个球从100米高度落下,每次落地后弹回原高度 一半,再落下.问第十次落地时共经过了多少米?第十次弹起多少米?

请问下面的代码中,READ RESTORE 和 DATA
READ A,B,C,D
X=B+D
RESTORE 130
READ A,B,C,D
Y=B+D
RESTORE
FOR J=1 TO 8
READ A
NEXT J
X=X+Y+A　　：PRINT X
DATA 1,2,3
DATA 4,5,6
DATA 7,8 9
END

关于循环语句的,会的来帮个忙!
定义1*2*3*…*N为N的阶乘,记作N!设计一个求N!的算法,并写出伪代码．
关于循环语句的，帮个忙！
定义1*2*3*…*N为N的阶乘，记作N！设计一个求N！的算法，并写出伪代码．
要用
For I From 初值To终值 Step步长
…
End For
或者用
While A
…
End While 这总格式做

运行这段代码出现Cannot perform this operation on an open dataset
procedure Tfrm_in.edt_OKClick(Sender:TObject);
var y,m:String;
begin
y:=formatdatetime('yyyy',now);
m:=formatdatetime('m',now);
try
if (strtoint(edt_year.Text)>strtoint(y))or((strtoint(edt_year.Text)=strtoint(y))
and (strtoint(edt_month.Text)>=strtoint(m))) then
begin
showmessage('日期超前!');
exit;
end;
except
showmessage('请输入正确的月份!');
exit;
end;
month:='月进货'+edt_year.Text+'-'+edt_month.Text;
with data_month do
begin
commandtext:='select * from bookin where date like '+quotedstr(month+'-%');
active:=true;
end;
end;

sql删除表 drop
我建了一个表代码如下：
/**/
create table TL_Message (
Mes_ID int intIDETITY (1,1) not null,
Mes_Name varchar(50) null,
Mes_Phone varchar(50) null,
Mes_Email varchar(50) null,
Mes_Sex varchar(10) default 0,
Mes_Address varchar(200) null,
Mes_Avatar varchar(50) null,
Mes_Title varchar(200) null,
Mes_Content text null,
Mes_Time datetime getdate(),
Mes_IP varchar(20) null,
Mes_Reg_ID int null,
Mes_IsPublic int default 0,
Mes_Reply_Reg_ID int null,
Mes_Reply_Time datetime null,
Mes_Reply_IP varchar(20) null,
Mes_Reply_Content text null,
primary key (Mes_ID)
);我想把这个表删除了.怎么就彻底删除了?

一个球从100米高度自由落下,看看我的代码哪里错了?
一个球从100米高度自由落下,每次落地后反弹回原高度的一半,再落下.求它在第10次落地时,共经过多少米?第10次反弹多高?
public class Dump {
x09public static void main(String[] args) {
x09x09float sum=100f;
x09x09float s=100f;
x09x09Scanner scan=new Scanner(System.in);
x09x09int n=scan.nextInt();
x09x09for(int i=1;i

lingo编程出错 错误代码1017 找不到错啊啊啊
model:
sets:
order/1..86/:n,mudi;
juli/1..33/:d;
chewei/1..95/:a;
zaihe(order,juli):m;
go(chewei,juli):x;
jieshou(chewei,juli,order):y;
endsets
min=@sum(chewei(i):@sum(juli(j):(1.4*d(j)+(2*a(i)-@sum(order(k):y(i,j,k)*m(k,j)))*0.2*d(j)+1*d(j)+0.8*d(j))*x(i,j)))
data:
n=1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92;
mudi=1 1 2 2 2 2 2 2 2 3 3 4 4 5 5 5 5 5 6 6 7 8 8 9 9 9 10 10 11 11 12 12 13 13 14 14 15 15 15 15 16 16 17 17 18 19 19 19 20 20 21 21 21 21 21 22 22 22 23 23 23 24 24 24 25 25 26 26 26 26 26 26 26 26 27 27 28 28 29 29 29 30 31 32 32 33;
m=@file('m数据.txt');
d=884 1965 2244 1834 1630 2483 2447 2567 879 917 761 1404 1543 1735 1569 988 448 578 704 667 1203 430 454 691 747 1927 2378 2137 1325 1313 1508 1479 1546;
a=10 10 10 10 10 10 10 20 20 10 20 18 20 10 10 10 10 20 20 10 20 10 20 20 10 20 20 14 13 14 13 12 10 10 10 12 12 13 20 10 10 17 20 15 10 20 11 10 10 12 1 20 20 20 21 21 10 20 20 20 20 10 10 11 17 10 20 20 11 21 20 10 17 12 20 10 13 20 20 20 20 19 18 10 12 10 20 12 15 10 10 10 18 18 18;
enddata
@for(go(i,j):@sum(juli(j):x(i,j))

我想求一个整数x必须满足(1024*x-11529)/15625的结果也为整数 我用javascript写了这么一段代码 哪儿错了?
x = 0
var y
var z
while ( z == y )
{
y=(1024*x-11529)/15625
z=parseInt(y)
x++
}
document.write(x)

C#计算器,等号老不对?
帮忙写个等号的代码.
private void button28_Click(object sender,EventArgs e)//等号
{
Single r;
string t = textBox1.Text;
int space = t.IndexOf(' ');x05x05x05//搜索空格位置
string s1 = t.Substring(0,space);x05x05//s1保存第一个运算数,Substring(0,space)指定字符串的长度.0表示开始,space表示结束.
char op = Convert.ToChar(t.Substring(space + 1,1));//op保存运算符 convert 函数 用来转换数据类型
string s2 = t.Substring(space + 3,space);x05//s2保存第二个运算数（Substring(space + 3,1)中”1”应改为space）
Single arg1 = Convert.ToSingle(s1);
Single arg2 = Convert.ToSingle(s2);x05//将运算数从string转换为single
switch (op)
{
case '+':r = arg1 + arg2; break;
case '-':r = arg1 - arg2; break;
case '*':r = arg1 * arg2; break;
case '/':
if (arg2 == 0)
{
throw new ApplicationException("除0错误");
}
else { r = arg1 / arg2; } break;
default:throw new ApplicationException();
}
textBox1.Text = r.ToString();
这是我的,点等号的时候,老是出现：string s1 = t.Substring(0,space);说这句长度不能小于0.要给这个textbox一个初始值么?我的是VS2005

代码问题！
在一个升序排列的整数数字序列中查找，并返回相应的查找结果。
输入
每个测试用例由多行组成，第一行是两个整数n和m，其中，1<=n,m<=1000000。
自第二行起一共有n+m个整数，其中前面n个整数代表升序排列的有序序列，随后的m个整数是待查询的数。n+m个整数的取值在范围1到10^12(10的12次方)之间。
输出
对于每个待查询的数，如果在有序序列中则输出"yes"，否则输出"no"，每行输出一个查询结果。
样例输入
5 3
6 23 45 56 586
33 66 6
样例输出
no
no
yes
该怎么写，要优化下下

急求运行LINGO出现unexpected jacobian overflow错误,代码如下,希望大牛帮忙指出哪错了.
MODEL:
SETS:
WH/W1..W13/:Q,C;
NE/N1..N13/:N;
LINKS(WH,NE):W,B;
ENDSETS
DATA:
C=2,1,4,4,4,5,3,2,1,4,3,10,8;
N=48757.8,29912.3,76360.4,68715.1,61605.9,17241.4,23843.5,29453.0,61605.9,28607.7,20805.2,137071.2,90752.0;
B=1,1,1,1,1,1,1,1,1,1,1,1,1
1,1,1,1,1,1,1,1,1,1,1,1,1
1,1,1,1,1,1,1,1,1,1,1,1,1
1,1,1,1,1,1,0,0,1,1,1,1,1
1,1,1,1,1,1,1,1,1,0,1,1,1
1,1,1,1,1,1,1,1,1,0,1,1,1
1,1,1,0,1,1,1,1,1,1,1,1,1
1,1,1,0,1,1,1,1,0,1,1,1,1
1,1,1,1,1,1,1,0,1,0,1,1,1
1,1,1,1,0,0,1,1,0,1,0,0,1
1,1,1,1,1,1,1,1,1,0,1,1,1
1,1,1,1,1,1,1,1,1,0,1,1,1
1,1,1,1,1,1,1,1,1,1,1,1,1;
ENDDATA
MIN=@SUM(WH:C*Q);
Q1+Q2+Q3+Q4+Q5+Q6+Q7+Q8+Q9+Q10+Q11+Q12+Q13>=694731.99;
@FOR(WH(J):Q(I)+@SUM(LINKS(I,J):W(I,J))>=N(J));
@FOR(WH(I):LINKS(I,J):W(I,J)=W(I,J));
END

以下叙述中正确的是 （ ）
A．程序设计的任务就是编写程序代码并上机调试 B．程序设计的任务就是确定所用数
C．程序设计的任务就是确定所用算法
D．以上三种说法都不完整

有B,C,D,E,四列数字.G列公式=A1+1 ,请问用vba怎么让J=C1+1,M=D1+1,P=E1+1?要代码哦.如图：

下图中A与B分别表示动物或植物的细胞亚显微结构模式图：(请在括号中填数字代码,横线上填文字.)

（1）[ ]图表示植物细胞,判断的依据是：此细胞具有[ ] ,[ ] 和 . （2） 在A细胞中具有而在B细胞中没有的细胞器是[ ] ,它与B细胞的 有关. (3) 图中[1] 的主要成分是 和 .其结构特点是 ,功能特点是 . (4) 图中[2]的主要成分是 和 . （5）[3] 是进行新陈代谢的场所. （6）图中[4] 的片层结构薄膜和基质中含有 所需要的酶. （7）细胞内的“动力工厂”是[ ] ,是 的主要场所.其内膜向内凹陷形成 . （8）[5] 的功能是 ,在植物有丝分裂时,则与 的形成有关.（9）运输蛋白质的通道的细胞器是[ ] （10）[11] 是 的场所.（11）[6] ,在有丝分裂过程中 消失和重建.（12）除[4]和[9]具有双层膜外,[ ] 也具有双层膜结构.（13）[12]是染色质,它是能被 染成深色的物质,其主要成分是 和 .（14）[10] 是 物质进出细胞核的通道.（15）若该细胞是西瓜果肉细胞,则糖类主要存在于 中.

求一个c++的代码~
题目：给定一个数列，给它从小到大排列，每次交换两个数，求最少的交换次数~
思路：找出形成单循环的个数。（单循环：一些数原来不在排序后自己的位置，却占据排序后那些数共占据 的位置，如3412排序后是1234，其中2 4原来不在排序后自己的位置，但却占了排序后的2 4应该占得 位置。（语文不好解释不大清楚-.-））。然后把原本数列不对应的数的个数减去单循环的个数就是 最 少交换次数。
不知道我思路对不对= =不对的话求大神帮忙解释一下。顺便上一下代码，怎么找出单循环的个数-.-。

危险品标识的那个表格中ICAO/IATA CODE（这是国际民航组织/国际民航协会 代码?） 然后此列中所提及...
ICAO/IATACODE
1.3G(RGX)1.4S(RXS)等
2.1(RFG)
2.2(RNG) (RCL)
2.3(RPG)
3(RFL)
4.1(RFS)
4.2(RSC)
4.3(RFW)
5.1(ROX)
5.2(ROP)
6.1(RPB)
6.2(RIS)
7(*RRE)*JAL内CODE
7(RRW)
7(RRY)
7(RRY)
8(RCM)
9(RMD) (ICE) (RSB) (MAG)
(*REQ)*JAL内CODE
RCL
CAO
-
这些是什么意思（就是这一列）尽量详细些,

谁能告诉我一下代码是干嘛用的啊（matlab语言）
#include "mex.h"
#define Index3D(r,c,b,R,C,B) (b)*(R)*(C) + (c)*(R) + (r)
#define Index2D(r,c,R,C) (c)*(R) + (r)
//syntax:IntHist = mexImgtoIntHist(ImgBins,Row,Col,Bin);
void mexFunction(int nlhs,mxArray *plhs[],
int nrhs,const mxArray *prhs[])
{
double *ImgBins,*IntHist;
int r,c,b,Row,Col,Bin,IntHistDims[3];
ImgBins = mxGetPr(prhs[0]);
Row = (int)mxGetScalar(prhs[1]);
Col = (int)mxGetScalar(prhs[2]);
Bin = (int)mxGetScalar(prhs[3]);
IntHistDims[0] = Row;
IntHistDims[1] = Col;
IntHistDims[2] = Bin;
plhs[0] = mxCreateDoubleMatrix(Row*Col*Bin,1,mxREAL);
IntHist = mxGetPr(plhs[0]);
mxSetDimensions(plhs[0],IntHistDims,3);
for(r=0;r 0)
for(b=0;b

求大家帮忙解释下这段51单片机代码是什么意思,谢了!
bit scan_key()
{
key_s = 0x00;
key_s |= K2;
key_s

1.设计一个表单,每次按增加按钮,文本框数值加1,文本框初始值为0.写代码就好.
2.编程输出1至100的自然整数中个位数为0的数值,并计算其个数.（可用right()函数取个位数判断是否为0）
第一道题是正整数

javascript实验题
谁能帮忙写几个网页设计javascript的代码~~谢谢了~ 采纳后另附50分~~
1，校验身份证号格式（即15位全为数字，或18位，前17位为数字，最后1位为数字或“X”）
2，对E-MAIL格式进行校验（要求：形如XX@XX.XX，即首字母不能为“@”，“.”必须在“@”后至少间隔1个字符，且“.”不能为最后一位，并要求只能有1个“.”）
3，在页面上打印九九乘法表
1*1=1
2*1=2 2*2=4
3*1=3 3*2=6 3*3=9
….

我想把一个4行4列的数组,交换第1行与第3行位置,交换第2列与第4列的位置,怎么编写代码?
下面是我编写的代码,我不能交换第2列与第4列的位置,哪里错了?
Option Base 1
Private Sub Form_Click()
Dim a(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = Val(InputBox("请输入数据"))
Next j
Next i
For i = 1 To 4
For j = 1 To 4
Print a(i, j);
Next j
Print
Next i

For i = 1 To 4

For j = 1 To 4
m = a(1, j)
a(1, j) = a(3, j)
a(3, j) = m

Print a(i, j);
Next j
Print
Next i


For i = 1 To 4
For j = 1 To 4
n = a(i, 2)
a(i, 2) = a(i, 4)
a(i, 4) = n
Print a(i, j);
Next j
Print
Next i
End Sub
同时同样的二维数组我还想知道分别输出各行各列的和的代码.求解大神帮忙啊啊啊啊.

LINGO求助!程序运行一直提示1017错误代码,
MODEL:
SETS:
PERIODS/1,2,3,4,5,6,7,8,9,10,11,12/:DEM,M,W,HF,LF,HS,LS,I,C,OF,OS,PTE,PTT,PTEW,PTET;
ENDSETS
MIN=@SUM(PERIODS:15*63*8*(M*6+W)+22.5*(OF+OS)+3000*(HF+HS)+2500*(LF+LS)+10*PTT+60*C+2*PTE+5*PTEW+11*PTEW);
@FOR(PERIODS(T):D(T)

N-S流程图,伪代码,AS语言表现排序
对随机给出的8个0——100之间的整数（46,12,33,9,88,92,51,74）由大到小进行排序.用自然语言,流程图,N-S流程图,伪代码,AS语言表现均可

.htaccess里边的代码：order allow,deny allow from all deny from xxx.xxx.xx.xx……
order allow,deny
allow from all
deny from 123.126.50.66
deny from 220.181.125.41
deny from 220.181.125.48
deny from 124.115.0.159
deny from 124.115.0.103
deny from 124.115.0.14
deny from 124.115.0.139
deny from 220.181.125.4
deny from 124.115.0.101
deny from 124.115.0.106
deny from 124.115.0.107
这些IP有没有搜索引擎的蜘蛛?
为什么.htaccess里会有这一段?其什么作用?可否删掉?

LINGO整数规划多解情况疑惑
我用的LINGO11,
程序代码如下：
MAX 800X1+400X2+500X3
SUBJECT TO
6X1+2X2+3X3<=1000
1.6X1+0.4X2+0.6X3<=300
X1+X2+X3<=312
END
GIN 3


程序运行结果是：




可是我参考《数学建模方法与分析》里的求解结果是 X1=94,X2=218,同样最大值也是162400,也满足约束条件.请问在LINGO中怎么显示多解啊?我调了设置里K-BEST SOLUTIONS的值还是只有图示的答案?那书上的答案是怎么回事?

为了方便处理日益繁多的图书,每一本图书都有一个唯一的表示代码——（）（ISBN).
ISBN是由（）个数字组成,前三个数字代表（）,中间的（）个数字分成三组,分别表示（）、（）和（）,最后一个数字是（）.

（1） 写出程序计算过程,并加以简单的文字说明.一、 填充题（补充横线上的代码,任
（
2、求三位数中，个位数字与十位数字之和除以10所得的余数是百位数字，且百位数字是偶数的数的个数。
Private Sub Form_click()
Dim s As Integer
Dim x As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
s = 0
x = 100
Do While x

帮忙解释一下这段VB 代码。
题目：
分别用For…Next和Do…Loop结构求π的值
（1）用π/4＝1 - 1/3 + 1/5 - 1/7 + ……级数求π的近似值 (取前50000项来进行计算)。 （2）求π的值，要求精确到最后一项的绝对值小于0.000001为止。
Private Sub Form_Click()
Dim a, b, s, f As Single
f = 1
a = 1
s = 0
Do
s = s + f * (1 / a)
a = a + 2
f = -f
Loop While Abs(1 / a) > 0.000001
s = s * 4
Print "π的值是：", s
End Sub
第二题：
Private Sub Form_Click()
Dim a, b, s, f As Single
f = 1
a = 1
s = 0
Do
s = s + f * (1 / a)
a = a + 2
f = -f
Loop While Abs(1 / a) > 0.000001
s = s * 4
Print "π的值是：", s
End Sub
能解释一下这两题的 意思吗？ 详细点的 追加

限制文本框只能输入两位小数
怎么限制只能输入两位小数啊?
下面的代码是限制只能输入数字和一个小数点
function clearNoNum(obj){
x05//先把非数字的都替换掉,除了数字和小数点
x05obj.value = obj.value.replace(/[^d.]/g,"");
x05//必须保证第一个为数字而不是小数点x05
x05obj.value = obj.value.replace(/^./g,"");
x05//保证只有出现一个小数点而没有多个.
x05obj.value = obj.value.replace(/.{2,}/g,".");
x05//保证小数点只出现一次,而不能出现两次以上
x05obj.value = obj.value.replace(".","$#$").replace(/./g,"").replace("$#$",".");
这样写可以：
//把小数点后面超过两位的数字替换掉,也就是保留两位小数
x05 var strs = "";
x05 var midd = "";
x05 var count = 0;
x05 for(var i=0;i

AutoCAD的符号怎么打啊?
cad建筑制图中比如标高正负零是用%%p来打出来,哪位前辈有关于建筑的符号代码大全,比如一二三级钢筋直径符号,角度度数的小圈圈等等,
不要这样麻烦的

unity,旋转物体代码,物体本身是歪的,求句以世界坐标旋转到某个角度的代码.而不是旋转多少角度
unity,旋转物体代码,物体本身是歪的,求句以世界坐标旋转到某个角度的代码.

物体本身倾斜了一定角度,但是旋转要水平的,比如旋转到30度,就旋转到30度 然后停下来
就像这一句rigidbody.rotation=Quaternion.Euler(0.0f, rigidbody.velocity.x*-tilt ,0.0f);
但是这句是以自身坐标. 我要世界坐标

如果用transform.Rotate(yxuanzhuan *-tilt, Space.World); 这一句,他旋转幅度就会好大.

机械原理的练习题
（将正确的代码A、B、C、D填入横线上方的空格处）
1．对于以曲柄为原动件的曲柄摇杆机构,当时,机构处于极限位置.
A)曲柄与机架共线； B）摇杆与机架共线；
C）曲柄与连杆共线； D) 摇杆与连杆共线.
2．当凸轮机构的从动件推程按正弦加速度运动规律运动时,推程开始和结束位置
冲击.
A) 存在刚性； B) 存在柔性； C) 不存在.
3．对于滚子从动件盘形凸轮机构,滚子半径 理论轮廓曲线外凸部分的最小曲率半径.
A）必须小于； B）必须大于； C）可以等于.
4．单缸内燃机中的曲柄滑块机构,是原动件.
A) 曲柄； B) 滑块； C) 连杆.
5．如果一转子能实现动平衡,则　校核静平衡.
A) 必需再； B) 不需再； C) 有时还要.
6．渐开线直齿圆柱齿轮机构的可分性是指　　　 不受中心距变化的影响.
A) 节圆半径； B) 传动比； C) 啮合角.
7．蜗杆蜗轮机构中,蜗杆和蜗轮轮齿的旋向　　　相同.
A) 一定； B) 不一定； C) 一定不.
8．机械平衡研究的内容是　　　间的平衡.
A)驱动力与阻力； B) 各构件作用力； C)惯性力系.
9．为使机构具有急回运动,要求行程速比系数 .
A) K =1； B) K >1； C) K

程序题 有道题以下程序段用于计算级数t =1/2+2/3+3/4+5/6+. 前500项之和.将下列程序代码补充完整. v
以下程序段用于计算级数t =1/2+2/3+3/4+5/6+. 前500项之和.将下列程序代码补充完整.
var s=0,n;
for(n=1;n<=500;n++) _________;

汉字中不少字都是一字多意
把词语意思的代码和成语的代号写到一起
（1）一心一意 （A) 单独
（2）一唱一和 (B) 一旦
（3）一见如故 (C) 数目一
（4）一尘不染 (D) 刚才
（5）一鸣惊人 (E)一点儿
（6）一面之词 (F)专一
（7）一视同仁 (G)同一
（8）一如既往 (H) 完全

这段ASP代码 请求解释意思 要详细的
0
x=2*(x+1)
arr(i) = "第"&i&"天桃子是"&x&"
"
i=i-1
loop
i=0
do while i
就是这段句话是干吗用的 要详细

读图回答问题．
（1）图中的三条铁路线中，穿过济南的是______ 线（填数字代码），名称是______．
（2）字母A所示山脉的名称是______，它和______构成了我国重要的地理分界线．
（3）下列由青岛港运往海口的农产品，不可能的是______．
A．小麦B．苹果C．甘蔗D．棉花
（4）甲乙两地区中，______地区水资源不足，该地的居民在日常生活中应注意节约用水，请列举一个节约用水的实例．______．

校门外的树 c++ 求大神帮看代码
【描述】
某校大门外长度为L的马路上有一排树,每两棵相邻的树之间的间隔都是1米.我们可以把马路看成一个数轴,马路的一端在数轴0的位置,另一端在L的位置；数轴上的每个整数点,即0,1,2,……,L,都种有一棵树.
马路上有一些区域要用来建地铁,这些区域用它们在数轴上的起始点和终止点表示.已知任一区域的起始点和终止点的坐标都是整数,区域之间可能有重合的部分.现在要把这些区域中的树（包括区域端点处的两棵树）移走.你的任务是计算将这些树都移走后,马路上还有多少棵树.
【输入】
输入的第一行有两个整数L（1 m;
int a[10000];
for(int h=0;h>max;
for(;max-min==0;min++)
{
a[min]=0;
}
}
for(int k=0;k

这段代码的意思是用编号为267的物品点击任意方块生成两个编号为91的方块.求大神指导我如何改成用这个物品点击编号为25的方块才执行setTile的代码?
useItem(x,y,z,a,b)
{if(a==267){preventDefault();
setTile(x-2,y+1,z,91,0);
setTile(x+3,y+1,z,91,0);