برمجة وبرامج


أهلا وسهلا بك زائرنا الكريم, أنت لم تقم بتسجيل الدخول بعد! يشرفنا أن تقوم بالدخول أو التسجيل إذا رغبت بالمشاركة في المنتدى

منتدى هواة البرامج » المنتدى التقني » نصوص برمجية بلغة الدلفي » نص برنامج لحساب قوة الشد في حبل مصعد أثناء الصعود أوالهبوط

نص برنامج لحساب قوة الشد في حبل مصعد أثناء الصعود أوالهبوط

اذهب الى الأسفل  رسالة [صفحة 1 من اصل 1]

حسب نيوتن : تحسب القوة F المطبقة على جسم كتلته m  ويتحرك بتسارع a  بالقانون التالي : 
F=m a

مثال : مصعد بعمارة وزنه m  له حركتين وهما الصعود والنزول ، 
ونفرض أن a هو تسارع عربة المصعد ، يكون a موجب في حالة الصعود وسالب في حالة الهبوط، 
نريد أن نعرف ما هي قيمة شدة توتر الحبل الذي يربط العربة عندما  يتغير التسارع
نعلم أن شدة التوتر T تحسب بالقانون التالي : 

T=m(a+g);

حيث g هو تسارع الجادبية الأرضية وقيمته التقريبية هي :
g=9.8ms-2 

البرنامج التالي مكتوب بلغة  دلفي ويقوم بحساب قيمة شدة توتر حبل المصعد حسب كتلة العربة والتسارع الذي تتحرك به هذه العربة.
البرنامج يمكن أن يكون بالشكل التالي : 


لقراءة قيم الكتلة والتسارع وحساب التوتر نستعمل كود باسكال التالي :

procedure TForm1.Button1Click(Sender: TObject);
var
 
a, m, g, t: single;
begin
 
t := 0;
 
g := 9.8;
 
a := SpinBox1.Value;
 
if trystrtofloat(Edit1.text, m) then
   
t := m * (g + a);
 
Edit3.text := FORMAT('%9.2f', [t]);
 
Label7.text := FORMAT('T=%9.2f N', [t]);
end;

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة  رسالة [صفحة 1 من اصل 1]

صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى