Delphi设计程序,求S=1 (1 2)-搜答案-神马作文网

开始i=1s=0s=s+ii=i+1i>1000输出s结束我不会标图,主要是这样

datareasegmentndw3resultdwdatareaendsstack_segsegmentdw128dup(0)toslabelwordstack_segendsprognamsegm

PrivateSubForm_Load()DimS,SUMAsIntegerDimiAsIntegerS=0SUM=0Fori=1To10S=S+(2*i-1)SUM=SUM+SNextDebug.P

再问：谢谢咯

借楼上的代码改一下producerxxxxx;vars,sum,i:integer;beginsum:=0;s:=0;fori:=1to100dobegins:=s+i;sum:=sum+s;end;

inti,j,s=0;for(i=1;i

是VB,就做界面.先做一个窗体,其上有四个文本框,text1、text2、text3、text4依次输入边长a、b、角A的值,在text4中输出面积,你可以在前面加上标签说明再加一个命令按钮comma

C语言都忘了,我用白话写下程序过程吧：定义N＝取值函数定义S=0N取值如果N>1,则S=S+1/NN=N-1返回“如果”语句否则：输出S不知道能不能看明白?这是从最后一个往前加

INPUTS=1I=1DOS=S+1/(I+1)LOOPUNTILI+1=N

//uses math;//为了它的使用max 和min 函数；//在public处,添加一个自定义排序函数sort,原型为：function sort(a:i

求s＝1+12+13+…+1n的值的程序如下：INPUT“n=”；ni=1s=0DOs=s+1/ii=i+1LOOP UNTIL i＞nPRINT

S1输入S=1,I=2I+1S2S=S+I,I=I+1S3如果I小于等于24则重复S2；否则输出SS4END流程图放假后在写,没时间了,在此献丑了,呵呵

1.输入任意正整数n,首先判断是否是1或2,是就输出1或2,否就进行下一步2.循环计算s=s+n(n+1)3.n=n-1,判断n是否等于0,是则跳出循环,输出计算结果s,否就返回上一步继续循环

代码!InputnS=0Fori=1TonS=S+iNextiPrintS

delphi中dimens[1].

你肯定是断章取义了,lev不是关键词,也不是方法,似乎是某个类的成员.你要查看全部的数据定义才能知道.

程序框图如下：程序如下：S=0FOR k=1 TO 100S=S+k^2NEXT PRINTSEND

我只会交互设计,主代码是求阶乘部分#include"stdio.h"intf(inta){intsum=1,i;for(i=1;i

Rem语言：VisualBasic6.0SubMain() '开始 S=0:i=1 Do S=S+1/i

n=Val(InputBox("请输入n=","输入")) S=0:i=1 Do S=S+1/