Складання та виконання лінійних алгоритмів опрацювання величини. Мова програмування 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 км/год відповідно.

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