vj1125 自由落体

Vj1125 自由落体

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
//±ÉÈ˵ķ½·¨ //Ëã³öÄܽӵ½µÄ×îССÇò±àºÅºÍ×î´óСÇò±àºÅ / //×¢Òâ½Óµ½µÄÌõ¼þ ²»Ò»¶¨Êdzµ¶¥ / const g=10; zero=1e-5; var n,ans:integer; h,s1,v,l,k,t1,t2,p,q:real; procedure main; begin readln(h,s1,v,l,k,n); t1:=sqrt(2*h/g); t2:=sqrt(2*(h-k)/g);
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 02/21/2011 for the course CS 001 taught by Professor 001 during the Spring '11 term at Shandong University.

Ask a homework question - tutors are online