下列程序段的输出结果为______。Dim S1(5)As Integer,S2(5)As Integer,S3(5)As IntegerN=4ForI=1 To NS1(I)=IL=N+i-IS2(I)=LNextIS3(5)=0ForK=1 To NS3(K)=S1(K)*S2(K)S3(5)=S3(5)+S3(K)NextKPrintS1(3)=S1(5);S1(2)PrintS2(4)=S3(

下列程序段的输出结果为______。

Dim S1(5)As Integer,S2(5)As Integer,S3(5)As Integer

N=4

ForI=1 To N

S1(I)=I

L=N+i-I

S2(I)=L

NextI

S3(5)=0

ForK=1 To N

S3(K)=S1(K)*S2(K)

S3(5)=S3(5)+S3(K)

NextK

PrintS1(3)=S1(5);S1(2)

PrintS2(4)=S3(


相关考题:

program exam(output); var x,y,x:integer; proedure silly(x:integer;vary:integer); begin x:=5;y:=6;z:=3; writeln(x,y,z) end; begin x:=1;y:=2;z:=3; silly(x,y); writeln(x,y,z) end. 以上程序运行结果为(). A567 563B567 567C567 167D567 163

下列程序中,实现将封装数据类型Integer和基本数据类型int之间的转换,以及Integer,int类型和String类型之间的转换。请将程序补充完整。程序运行结果如下:123456456public class ex7_1{public static void main(String[]args) {Integer intObj;int n;String s;intObj = new Integer(123);n=intObj.__________;System.out.printin(Integer.toString(n));s=new String("456");intObj=Integer._________;System.out.println(intObj.__________);n=Integer.parseInt(s);System.out.println(Integer.toString(n));}}

如果Add函数的调用代码为:func main() {var a Integer = 1var b Integer = 2var i interface{} = asum := i.(Integer).Add(b)fmt.Println(sum)}则Add函数定义正确的是() A.type Integer intfunc (a Integer) Add(b Integer) Integer { return a + b}B.type Integer intfunc (a Integer) Add(b *Integer) Integer { return a + *b}C.type Integer intfunc (a *Integer) Add(b Integer) Integer { return *a + b}D.type Integer intfunc (a *Integer) Add(b *Integer) Integer { return *a + *b}

下列程序的运行结果为______。 #define MS DOS #ifdef MS DOS #define INTEGER SIZE 32 #else #define INTEGER SIZE 16 #endif main () { printf ("integer_size=%d\n", INTEGER_SIZE); }A.integersize=32B.integer_size=16C.integersize=32,integer_size=16D.错误

素数的求法A.小范围内判断一个数是否为质数:function prime (n: integer): Boolean;var I: integer;

已知前序后序求中序的一种function ok(s1,s2:string):boolean;var i,l:integer; p:boolean;

排列的生成:(1..n)procedure solve(dep:integer);vari:integer;

8、下面哪些是将分数化为浮点数的正确定义?A.type Fraction = (Integer, Integer) rateq :: Fraction - Float rateq (a,b) = a/b###SXB###B.type Fraction = (Integer, Integer) rateq :: Fraction - Float rateq (a,b) = (fromInteger a)/ (fromInteger b)###SXB###C.type Fraction = (Integer, Integer) rateq :: Fraction - Float rateq (a,b) = fromInteger (a/b)###SXB###D.type Fraction = (Integer, Integer) rateq :: Fraction - Float rateq (a,b) = (fromIntegral a)/ (fromIntegral b)###SXB###E.ty

11、下面哪些定义是类型正确的?A.f :: (Integer, Integer) - Float f (x,y) = x / yB.f :: (Integer, Integer) - Float f (x,y) = (fromInteger x) / (fromInteger y)C.f :: (Integer, Integer) - Float f (x,y) = 3*x + yD.f :: (Integer, Integer) - Integer f (x, y) = 3*x + y