tomax+real

澹鸿奇2707刷爆某人的信用卡 . 可以说 to Max out one's credit card 吗? 或者怎么说谢谢. -
石姜府15364577315 ______ 可以的~max out (非正式美式用语) 可以表示刷爆(信用卡)

澹鸿奇2707菜鸟求教VBA二位数组赋值 -
石姜府15364577315 ______ 你写代码时最好写全,这样便于分析 1、你开始应该先声明dim arr() 2、ReDim的位置不对,并且后面应该加Preserve;如果想在循环外应该是ReDim arr(max, max). 3、max没有赋值 4、数组是下标通常是0开始 5、单元格如果要记录每个数据...

澹鸿奇2707PASCAL 编程 让电脑产生10个随机数,然后在输出他们的和,平均数,最大数和最小数. -
石姜府15364577315 ______ var max,min,i,a,sum:longint; begin randomize; max:=-maxlongint; min:=maxlongint; sum:=0; {以上四行为初始化} for i:=1 to 10 do begin a:=random(100);{随机产生一个0—99的自然数} if a>max then max:=a;{如果输入数据比当前最大值大,那...

澹鸿奇2707勾股定理三个数的关系是,a ^ 2 + b ^ 2 = c ^ 2..编写程序,输出30以内满足上述关系的整数组合. -
石姜府15364577315 ______ Dim a%, b%, c% For a = 1 To 30 For b = 1 To 30 For c = 1 To 30 If c ^ 2 = a ^ 2 + b ^ 2 And a < b And b < c And a < c Then Print a; b; c Print End If Next c Next b Next a

澹鸿奇2707本人急需解决一个赛事计分程序设计. 设计要求 编写一个程序,实现选手成绩的录入、平均分计算与显示. -
石姜府15364577315 ______ pascal code:var i,j:integer; t,x,max,min:real; begin min:=maxint; for i:=1 to 10 do begin read (t);x:=x+t; if t>max then max:=t; if t<min then min:=t; end; writeln ((x-max-min)/8:0:2); readln (x); end.

澹鸿奇2707vb题 编写程序,输出30以内满足a*a+b*b=c*c关系的整数组合 -
石姜府15364577315 ______ Private Sub Command1_Click() For i = 1 To 30 For j = i To 30 For k = 1 To 30 s1 = i * i + j * j s2 = k * k If s1 = s2 Then Print i, j, k Next k Next j Next i End Sub

澹鸿奇2707一个排列组合的编程问题 -
石姜府15364577315 ______ 其实去取那五个不连续的数相对简单点,然后在从全部数字当中去除取出的那几个数字,剩下的就是我们要存到文件的了. 现在,问题就变成了:1~14中取5个不连续的数字.简单点,我们拿1~8取3个不连续的数来举例子: 1 3 5 1 3 6 1 3 7 ...

澹鸿奇2707英文图纸中 heat treat to MAX hardness of s1x1x[材料] (AS PER MAN.SPEC.) 后面括号中的内容如何翻译???
石姜府15364577315 ______ 按照(材料)加工的规格要求 MAN.=manufacture SPEC.=specification