i=1;a=0;s=1; do{a=a+s*i;s=-s;i++;}while(i

i=1;a=0;s=1; do{a=a+s*i;s=-s;i++;}while(i 下面程序段运行结果是 i=1; a=0; s=1; do{a=a+s*I; s=-s; i++;}while(i var a,i,s:longint; begin readln(a); s:=0; for i:=1 to a do s:=s+i; writeln(s); end.vara,i,s:longint;beginreadln(a);s:=0;for i:=1 to a dos:=s+i;writeln(s);end. private sub command1_click() a=10:s=0 do s=s+a*a*a a=a-1 loop until a a=8 s=1 do s=s+a a=a-1 loop while a Dim a(4) s=0 For i=1 to 4 s=s+a(i) Next i if(s[i]>=‘a’&&s[i] main() {int a=1,i=a+1; do {a++; }while(!i++>3); printf(%d ,a); } main(){int a=1,i=a+1;do{a++;}while(!~i++>3);printf(%d ,a)} 计算式子的值：s=1+2+3+...+100（编程 pascal语言 for语句）这是我编的：var a,s,i:integer;begins:=0;beginfor i:=1 to 10 do;readln(a);a:=1+i;s:=s+i;end;writeln(s:10)end. if s=1+2+3+4+5 clear s=0 a=1 do while a if s=1+2+3+4+5 clear s=0 a=1 do while a 请帮忙解释一下程序的每步的含义(VF)i=1s=0a=2b=1do while i Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+i; for j:=1 to i do a[j]:=a[i]+j; .Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+i;for j:=1 to i do a[j]:=a[i]+j;end;for i:=1 to 10 do write(a[i],' ');eod. int f() { static int i=0; int s=1; s+=i; i++; return s; }main() { int i,a=0; for(i=0;i c语言用π=1-1/3+1/5-1/7+.公式求π的近似值,直到最后一项的绝对值小于10^-6为止我编的程序#include#includevoid main(){int i;float s,a;i=0;s=1;do{i=i+1 ;s=s+1/(2*i+1)*((-1)^i);} while ((1/(2*i+1)>10^(-6));a=s*4;printf(PI=%f,a if(s->s>a[i].s)可以换成if(*s.s>a[i].#include#include#include#include#define N 10typedef struct ss{ char num[10]; int s;} STU;fun(STU a[],STU *s){int i;*s=a[0]; /*先认为第1个值最小*/for(i=0;is>a[i].s)*s=a[i];}void main(){ FILE *wf;STU a[N] 若变量已正确定义,以下不能正确计算1+2+3+4+5的程序段A.i=1;s=1;do { s=s+i;i++;｝ while(i