vfp中打印正三角形如何写程序,如图 ▲

作者&投稿:并金 (若有异议请与网页底部的电邮联系)
高手帮忙,VFP程序设计,打印图形“倒等腰三角形”~

倒三角形
CLEAR
INPUT "请输入三角形的边长:" TO N
*用INPUT命令输入边长存放到变量N中
?
FOR I=N TO 1 STEP -1
*循环变量I控制行,从N到1
??SPACE(20-I) &&输出20-I个空格
FOR J=1 TO 2*I-1
*循环变量J控制列,输出2*I个*
??"*"
ENDFOR
? &&换行
ENDFOR
RETURN

我给出的图形是靠左侧对齐的。已经上机验证过了。

clear
input "输入行数:" to n
dime a(n,n)
for i=1 to n
for j=1 to i
if j=1 or i=j
a(i,j)=1
else
a(i,j)=a(i-1,j-1)+a(i-1,j)
endif
??str(a(i,j),3)
endfor
?
endfor
cancel

先找出规律

第一行, 1个,前面有6个空格

第二行,3个, 前面有4个空格

第三行,5个,前面有2个空格

第四行,7个,前面没空格


clear

for i=1 to 4

   n=2*i-1  &&字符个数

   n2=7-n  &&空格个数

   ?

   for j=1 to n2

      ??' '

   endfor

   for k=1 to n

      ??'▲'

   endfor

endfor






求助~~立体几何!!!
由于PF⊥AB,F为AB中点,所以PAB是一个等腰三角形。由于PEF是正三角形,所以PF的长度已确定,这样就可以知道P点的移动范围了(是个圆)。并且这个圆上只有一点到E点的距离等于PF长度。好了,P点的具体位置已经确定。】我们假设正三角形PEF边长为1,那么ABC的边长就是2了。由于FA=FP=1,AB⊥PF,...

如图,四棱锥A-BCDE中,△ABC是正三角形,四边形BCDE是矩形,且平面ABC⊥...
(Ⅰ)证明:连接CE、BD,设CE∩BD=O,连接OG,由三角形的中位线定理可得:OG∥AC,∵AC?平面BDG,OG?平面BDG,∴AC∥平面BDG.(Ⅱ)∵平面ABC⊥平面BCDE,DC⊥BC,∴DC⊥平面ABC,∴DC⊥AC,在Rt△ACD中,CD=AD2?AC2=42?22=23.取BC的中点M,连接AM,则AM⊥平面BCDE.取BM 的中点N...

...正方形里面的一点,角PAB=角PBA=15度,求证三角形PCD是正三角形...
法一:作FDC=FCD=15 易证ADE全等CDF DE=DF EDF=90-15-15=60 DEF等边三角形 所以可求DFC=EFC=150 易证EFC全等DFC EC=DC=BC 法二作等边三角形ADF,易证EF是AD中垂线,EFD=FDA=75 EF=ED=AD=DC 所以EF\/\/=CD EFCD平行四边形 EC=FD=AD=BC也就做出来了 法三:思路最简单求出15度直角三角...

求几道数学题解法(初二的)
1、延长AC,BE交于点F 因为三角形ABF中AE即为高又为角平分线所以三角形ABF是等腰三角形!E为BF中点!证明三角形ADC与三角形BCF全等 AD=BF BF=2BE AD=2BE 2、 延长ED至G,使GD=ED;连接CG 证明三角形DGC与三角形BED全等 BE=GC 因为BDC在一条直线上,所以过D的角平分线之和为90度 又因为...

如图,△ABC和△FPQ均是等边三角形,点D、E、F分别是△ABC三边的中点,点...
∵点D、E、F分别是等边△ABC三边的中点,AB=6,PB=1,∴AD=BD=AF=3,DP=DB﹣PB=3﹣1=2,EF为△ABC的中位线。∴EF∥AB,EF= AB=3,△ADF为等边三角形。∴∠FDA=60°,∴∠1+∠3=60°。∵△PQF为等边三角形,∴∠2+∠3=60°,FP=FQ。∴∠1=∠2。∵在△FDP和△FEQ中,FP=...

等腰直角三角形斜边怎么算?
设cf为a,fp为b,则斜边 cp²=a²+b²,因为a=b,所以斜边²=2a²。等腰直角三角形是一种特殊的三角形。两直角边相等 直角边夹一直角锐角45°,斜边上中线角平分线垂线 三线合一。等腰直角三角形一般是(1,1,√2)(直角边,直角边,斜边,下同)。

求过程和答案。在平面直角坐标系中,初中数学题。
HQ=FP.设AH=QF=m,则HQ=HF-QF=DC-QF=16-m.∵HQ∥AE.∴⊿DAE∽⊿DHQ,DA\/DH=AE\/HQ,即8\/(8+m)=6\/(16-m), m=40\/7.则FP=HQ=16-m=72\/7,CP=FC-FP=HD-FP=(8+40\/7)-72\/7=24\/7.所以,在BC上存在一点P,即当P为(16,24\/7)时,⊿APQ是以Q为直角顶点的等腰直角三角形....

三角形ABC中,D,E,F分别是内切圆的切点,过点F作FP垂直DE,求证角DBP=角E...
如图,作∠A的平分线交DE于H、交BC于G,延长FP交AC于Q。则AG垂直平分DE,AG‖QF。设AE=AD=a, BD=BF=b, CE=CF=c, AQ=x, PH=y, FG=z, EH=HD=m.AG为三角形ABC的角平分线,则有AB\/AC=BG\/CG,即(a+b)\/(a+c)=(b-z)\/(c+z).化解得:z=a(b-c)\/(2a+b+c) ---(1)...

(高分啊)数学题啊,初二的啊。。求证题,证明题。帮帮忙噻
在直角三角形中,如果某一直角边等于斜边的一半,那么这一直角边所对的那个角等于30度。下面是几何证明方法.连接定点到斜边的中点 得到AD,AD=CD=BC=1\/2BC 因为AC=1\/2BC, 三角形ACD是正三角形, 角C=60, 所以角B=30.3.两腰上的中线相等的三角形是等腰三角形 先画一个三角形ABC,作AC中线BD...

★★21、(2010黄冈)已知抛物线 顶点为C(1,1)且过原点O.过抛物线上一点P...
P的纵标=1/4,可得出P的横标=1+√3/2。要想证明三角形为正三角形,只要证明FP=PM就行。MP=5/4-1/4=1,FP=√[(3/4-1/4)²+(1-1-√3/2)²]=1。所以FP=PM=MF=1,这是一个正三角形。3、先设存在,P(m,-m²+2m).N(1,t),M(m,5/4)PM&#...

金阳县15359995627: 编写vfp程序输出三角形 -
凌莎安可: set talk off CLEAR FOR I=1 TO 4 ? SPACE(4-I) FOR J=1 TO 2*i-1 ?? "*" ENDFOR ENDFOR Retu

金阳县15359995627: 请教:用VFP编写“用你的姓打印出5行的三角形” -
凌莎安可: mm=" " @1,2 say "输入你的姓" get mm read clear for i=1 to 5 mm1="" for j=1 to 2*i-1 mm1=mm1+mm endf ? mm1 endf wait retu

金阳县15359995627: 用VFP编程序?要在屏幕上打印出图形? -
凌莎安可: *用VFP编程序?要在屏幕上打印出图形?*打印如下图形: 1 22 333 4444 FOR il=1 TO 4 ??REPLICATE(' ',10-il)+REPLICATE(STR(il,1),il) ENDFOR

金阳县15359995627: 编写一过程使VF窗口中输出一个“*”组成的三角形,行数由运行主程序定
凌莎安可: 产生“*”的子程序 clear for i=1 to 5 ?space(5-i) for j=1 to 2*i-1 ??"*" endfor endfor

金阳县15359995627: vfp编写程序用“*”打印一个金字塔型的图形:第一行一个星,第二行三个星,第三行五个星,最后一行13个星 -
凌莎安可: 程序如下,希望对你有所帮助: set talk off clear ? "欢迎使用本程序,用*组成三角形" l = 20 for h = 1 to 7for a = l-(h-1) to l+(h-1)@ h+5,a say alltrim('*')endfor endfor set talk on return

金阳县15359995627: VB中如何打印正三角图案 -
凌莎安可: 1、具体实现星号三角形的代码如下: Public Function sanjiaoxing(ByVal num As Integer) As StringDim i, j As IntegerDim st As Stringst = ""Dim m As IntegerIf (num Mod 2 = 0) Thensanjiaoxing = ""End If '输出上三角形For i = 1 To ...

金阳县15359995627: VFP 打印图形
凌莎安可: 新建一个程序(文件菜单——新建——程序——新建文件),写代码: s="*" for i=3 to 1 step -1 ?space((2*i-1)) ??s s=s+" * *" next i s="* * *" m=1 for i=1 to 2 ?space(2*i+1) ??s s=substr(s,1,m) m=m-2 next 然后,直接点击感叹号保存并运行,图:

金阳县15359995627: 打印正三角形的vb代码,每一行分别从1到0 -
凌莎安可: Private Sub Command1_Click() n = Val(InputBox("n=")) For i = 1 To nPrint Spc(n - i); String(2 * i - 1, Chr(48 + i)) Next i End Sub 以下是输入7时的运行图形:

金阳县15359995627: 帮帮忙啊!!vf编写程序,输出如下三角形. -
凌莎安可: for(int i=1;i<10;i++) { for (int j = 10 - i; j>0; j--) { Response.Write(" "); } for(int j=1;j<=i;j++) { Response.Write("*");} Response.Write("<br>");} c#版的,是这个效果

金阳县15359995627: VFP中打印特定图形 -
凌莎安可: clear for i=1 to 7 ?space(7-i) for j=1 to 2*i-1 ??"*" endfor endfor

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网