Delphi设计程序,求S=1 (1 2)

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/11 18:54:56
已知s=1+2+3+4+----1000,帮忙设计算法程序框图

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

设计程序,求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+n)的值

datareasegmentndw3resultdwdatareaendsstack_segsegmentdw128dup(0)toslabelwordstack_segendsprognamsegm

需要设计一个VB程序,求S=1+(1+3)+(1+3+5)+……+(1+3+5+……+19)的值

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

设计程序,求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+100)的值 ,用delphi程序

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

求VB小程序!设计一个VB小程序,给定三角形任意两边的长度,和夹角的度数,求三角形的面积.S=absinα

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

对任意正整数n(n>1)设计一个程序框图求s=1/2+1/3+...+的值,并写出程序

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

用Delphi设计一个程序,从键盘输入a,b,c3个整数,将它们按照从大到小的次序输出

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

对任意正整数n,设计一个程序求s=1+12+13+…+1n

求s=1+12+13+…+1n的值的程序如下:INPUT“n=”;ni=1s=0DOs=s+1/ii=i+1LOOP  UNTIL  i>nPRINT 

设计一个计算简单算法设计一个计算S=1+3+5+.+49的流程图并写出相应程序

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

对任意正整数n,请设计一个程序框图,求s=1×2+2×3+3×4+…+n(n+1)的值,并写出程序

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

设计一个算法求S=1+2+3+…n的值,并画出程序框图

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

delphi中dimens[1].

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

设计一个求S=12+22+…+992+1002的值程序框图并用For语句写出程序.

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

请用for ….. next 设计一个程序,求:s=1!+2!+3!+…n!,界面如图:

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

对正整数100,设计一个程序框图求S=1+1/2+1/3..+1/100的值,并写出程序

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

设计一个程序框图求S=1+1/2+1/3+1/4+……+1/n之值,并写出程序

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