Расчёт кинетическую, потенциальную энергию

Введение:

Техника вообще и вычислительная техника в частности всё больше приручается человеком. Исследователи, экспериментаторы, педагоги напряжённой работой навели порядок в этой области знаний, выявили её элементарную сторону, научились излагать её начала и сделали тем самым доступной многим.

Управлять компьютером тоже стало легче. Пахари информатики садятся на свой личный "трактор". И снова соединяются чувство хозяина и комфорт пассажира: программа, создать которую самостоятельно мы были бы не в силах, сама отвезёт куда нужно, позволяя нам оставаться профессионалами в своей области и не знать сложностей и тягот программирования.

Ясно одно: времена меняются и из ремесла программирование, превратилось в академическую дисциплину. В предисловии своей книги "Ремесло, наука, искусство..." Н. Вирт утверждает: "Думается, что, превратившись в академическую дисциплину, программирование не перестало быть и ремеслом. " Поистине место программирования в нашей жизни в должной степени ещё не осознано.

Условие:

Написать программу, чтобы она рассчитывала кинетическую, потенциальную энергию, потенциальную энергию деформированного тела, количество теплоты выделенной на проводнике, работу силы тока, сопротивление через плотность, длину проводника, площадь поперечного сечения.

Необходимые формулы расчётов:

Eк =[pic 1];

Eп =[pic 2];

Eпп =[pic 3];

A =[pic 4];

R =[pic 5];

Q =[pic 6];

Метод решения:

С помощью оператора ‘case’ мы делаем программу, так что в зависимости от выбранного действия PASCAL будет высчитывать одно из выше указанных выражений. Пользователь вводит все данные (все переменные), а потом выбирает, что ему нужно посчитать.

Тестовые примеры:

1.

Введите значения физических величин:

 R (сопротивление) = 21

 U (напряжение) = 22

 I (сила тока) = 33

 t (время) = 3

 m (масса) = 5

 V (скорость) = 8

 h (высота) = 2

 K (коэффициент жёсткости) = 7

 S (площадь) = 2

 L (длина) = 7

 p (плотность) = 4

Выберите одно из следующих действий и нажмите соответствую цифру

1 - Нахождение сопротивления (R) через p,L,S

2 - Нахождение работы (A) через I,U,t

3 - Нахождение теплоты (Q) через I,R,t

4 - Нахождение кинетической энергии (Eк) через m,V

5 - Нахождение потенциальной энергии (Eп) через m,g,h