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

حسب نيوتن : تحسب القوة 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;