編程彈個球
❶ vf編程：一個球從100米高度自由落下，每次落地後反彈回原高度的一半；再落下，求它在第10次落地時
h=100
s=100
for n=1 to 10
h=h/2
s=s+h
endfor
?"在第10次落地時,共經過米數:",s-h
?"第10次反彈高度米數:",h
❷ 編程三球運動怎麼做
剛才的話我說剛才我講的話因為我說想要變成刪除運動的東西的話大家可以直接從特大方
❸ 如何實現AS3.0編程中小球跳躍求完整代碼~
舞台上放個小球，實例名mc，第一幀輸代碼
varg:Number=0.5;//重力加速度
vardg:Number=0.7;//反彈的衰減值，如果是1不會衰減，小球會一直彈跳，小於1的時候每次彈跳會衰減
vardx:Number=0.99;//水平方向衰減值，同上
varsw:Number=stage.stageWidth;
varsh:Number=stage.stageHeight;
mc.vy=0;//小球垂直方向的速度
mc.vx=28;//小球水平方向的速度，不需要水平運動設為0就行
//用ENTER_FRAME驅動小球運動
mc.addEventListener(Event.ENTER_FRAME,onEnter);
functiononEnter(evt:Event):void{
//豎直方向的運動
evt.target.vy+=g;
evt.target.y+=evt.target.vy;
//水平方向的運動
evt.target.x+=evt.target.vx;
evt.target.vx*=dx;
//判斷水平方向是否碰到邊界
if(evt.target.x>=sw-evt.target.width/2||evt.target.x<=evt.target.width/2){
evt.target.vx*=-1;
}
//如果水平方向運動值已經衰減的非常小，則判斷水平方向運動已經停止
if(Math.abs(evt.target.vx)<1){
evt.target.vx=0;
}
//判斷豎直方向是否碰到地面
if(evt.target.y>=sh-evt.target.height/2){
evt.target.y=sh-mc.height/2;
evt.target.vy*=dg*-1;
//如果豎直方向運動值已經衰減的非常小，則判斷豎直方向運動已經停止
if(Math.abs(evt.target.vy)<0.5){
evt.target.vy=0;
evt.target.y=sh-mc.height/2;
}
}
//如果水平方向和豎直方向速度都為0，運動完畢，停止偵聽
if(evt.target.vx==0&&evt.target.y==0){
evt.target.removeEventListener(Event.ENTER_FRAME,onEnter);
}
}
❹ c語言編寫程序解決小球下落反彈問題用
#include <stdio.h>
main()
{
float sum=0;
int i=0;
float height=100;
sum+=height;
while(i<10)
{
height=height/2;
sum+=2*height;
i++;
}
printf("總長度:%f 第10次跳%f米",sum,height);
}
❺ 模擬一個小球在屏幕上勻速直線運動,當小球碰到屏幕第四個邊時便會彈回,用QBASIC怎麼編程序
首先創建一個不規則形狀的窗口,網上很多例子.
然後聲明2個整數變數CX,CY和兩個Boolean 變數ToLeft,ToTop
窗口上添加一個Timer控見.
添加如下代碼:
Private sub Timer1_timer()
if cx<=0 Then
toleft=true
else
toleft=false
end if
if cy<=0 then
totop=false
else
totop=true
end if
if toleft then
cx=cx-10
else
cx=cx+10
end if
if totop then
cy=cy-10
else
cy=cy+10
end if
move cx,cy
end sub
❻ c語言，一個球從某高度h落下，每次落地後反彈回原來高度的一半，再落下。編程計算球在10次落地
根據你的題目和輸出樣式截圖分析：
1、每次輸出當前墜落的高度，及球本次墜落後經過的距離總和。
2、輸出包含小數，因此高度及距離變數採用浮點數。
3、遞歸/循環只執行10次。
3、看你圖上，輸出浮點數小數不顯示多餘的0，因此列印格式要用%g而不是%f（最多保留6位）。
#include <stdio.h>
void drop(float height);
int main()
{
float height;
printf("初始高度：");
scanf("%f",&height);
drop(height);
return 0;
}
void drop(float height)
{
static int cnt=1;
static float distance=0;//每次墜落後球移動的距離總和
if(height>0){
distance+=height;
printf("第%d次高度%g ",cnt,height);
printf("第%d次距離%g ",cnt,distance);
if(cnt<10)
cnt++,distance+=height/2,drop(height/2);
else
cnt=1,distance=0;
}
}
❼ 通過VB編寫程序，單擊開始，實現一個小球從高處落下，碰到地面後彈起到原來高度的一半，再次落下......
Dim h As Integer, h0 As Integer, d As Integer, n As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Form_Load()
Shape1.Shape = 3
Shape1.FillStyle = 0
Shape1.FillColor = vbYellow
d = 1
Timer1.Interval = 50
Timer1.Enabled = False
h = Shape1.Top
h0 = h
End Sub
Private Sub Timer1_Timer()
If d = 1 Then
If Shape1.Top < Form1.Height - 1500 Then
Shape1.Top = Shape1.Top + 50
Else
d = 0
h = Form1.Height - 1500 - (Form1.Height - 1500 - h) / 2
End If
Else
If Shape1.Top > h Then
Shape1.Top = Shape1.Top - 50
Else
d = 1
n = n + 1
If n > 10 Then Timer1.Enabled = False
End If
End If
End Sub
❽ java編程一個球從100米處落下，反彈回原來高度的一半，行程200米反彈多少次
寫了個小程序試了下，如果不取精確到某位的近似值的話，估計應該是個無限循環吧。這個題挺有意思，期待高手指教。 import java.math.BigDecimal; public class fantan200m { public static void main(String[] args){ BigDecimal total=new BigDecimal(200); BigDecimal journeyInit=new BigDecimal(100); BigDecimal journey=new BigDecimal(100); BigDecimal divisor=new BigDecimal(2); int count=0; while(true){ if(journey==total |count==2000){ System.out.println("finish!"); System.out.println("total count="+count); break; }else{ count++; BigDecimal fantan=journeyInit.divide(divisor); journeyInit=fantan; journey=journey.add(fantan); System.out.println("journey."+count+"="+journey); } } } }
❾ java編程一個球從100米高度落下，每次反彈回原來高度的一半，行程200米反彈多少次
設球目前高度是x;
x1=100;
球掉下去，反彈一次，高度變為x2=x1/2;
設行程為s。剛開始s=0;反彈一次s=x1+x2;
具體代碼大致如下：
int x1,x2,n;
x1=100;
do while(s<=200){
x2=x1/2;
s=x1+x2;
x1=x2;『』每彈一次，目前高度x1就變成x2了。
n+n++;『』用來統計彈了多少次
}
System.out.println("共彈了"+n+"次");
鄙人愚見，您參考參考。
❿ 程序設計繪制一個自由落體後反彈的皮球
您好，1、同一個皮球，從不同的高度讓其自由落體，起始高度越高，反彈高度越高。
2、同一個皮球，每次放出一些氣，從相同的高度讓其自由落體，氣越足，反彈高度越高。
3、同一個皮球，每次使用不同密度的氣體將其充滿，從相同的高度讓其自由落體，氣體密度越低，反彈高度越高。
4、不同材質同樣大小的皮球，充滿同樣的氣體，從相同的高度讓其自由落體，發現材質不同，反彈高度也不同。
5、相同材質不同大小的皮球，充滿同樣的氣體，從相同的高度讓其自由落體，發現大小不同，反彈高度也不同。