برمجة وبرامج


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

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

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل  رسالة [صفحة 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]

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