Складання та виконання лінійних алгоритмів опрацювання величини. Мова програмування Object Pascal

 

Практична робота

«Складання та виконання лінійних алгоритмів опрацювання величини»

 

Завдання: створити проект для розв’язання задачі.

 

Два потяги виїхали одночасно назустріч один одному. Потрібно знайти, через який час вони зустрінуться, якщо задано значення відстані між ними в момент початку руху та швидкості руху кожного потяга.

 

Після введення значень відстані та швидкостей у поля Edit, виконання обробника події OnClick кнопки повинне призвести до виведення шуканого часу.

 

var v1, v2, s, t:real;

begin

v1:=StrToFloat(Edit1.Text);

v2:=StrToFloat(Edit2.Text);

s:=StrToFloat(Edit3.Text);

t:=S/(v1+v2);

ShowMessage(FloatToStr(t));

end; 

 

Отримайте результати для таких наборів початкових даних:

 

а) відстань – 1000 км, швидкість руху – 120 та 130 км/год відповідно;

 

б) відстань – 600 км, швидкість руху – 80 та 120 км/год відповідно;

 

в) відстань – 1200 км, швидкість руху – 115 та 85 км/год відповідно.

 

Перевірте, чи збігаються результати, отримані при виконанні проекту, з очікуваними результатами.                 

 

 

 

 

 

Практична робота

«Складання та виконання лінійних алгоритмів опрацювання величини»

 

Завдання: створити проект для розв’язання задачі.

 

Два потяги виїхали одночасно назустріч один одному. Потрібно знайти, через який час вони зустрінуться, якщо задано значення відстані між ними в момент початку руху та швидкості руху кожного потяга.

 

Після введення значень відстані та швидкостей у поля Edit, виконання обробника події OnClick кнопки повинне призвести до виведення шуканого часу.

 

var v1, v2, s, t:real;

begin

v1:=StrToFloat(Edit1.Text);

v2:=StrToFloat(Edit2.Text);

s:=StrToFloat(Edit3.Text);

t:=S/(v1+v2);

ShowMessage(FloatToStr(t));

end; 

 

Отримайте результати для таких наборів початкових даних:

 

а) відстань – 1000 км, швидкість руху – 120 та 130 км/год відповідно;

 

б) відстань – 600 км, швидкість руху – 80 та 120 км/год відповідно;

 

в) відстань – 1200 км, швидкість руху – 115 та 85 км/год відповідно.

 

Перевірте, чи збігаються результати, отримані при виконанні проекту, з очікуваними результатами.