суббота, 14 января 2012 г.

Константы в программе

Вы можете удивляться сколько угодно, но задачи по физике можно решать на информатике. Созданные программы пригодятся для обработки результатов лабораторных работ с маятниками в понедельник (нужны будут кое-какие преобразования). Привожу примеры программ, которые успели разобрать.

Задача 1. Нахождение конечной скорости свободно падающего тела.

program Bashnya;
 const g=9.8;
 var V,h: real;
begin
 write ('Высота башни h, м:   ');
 readln (h);
 V:=sqrt(2*g*h);
 writeln ('Конечная скорость тела V = ', V:5:2, 'м/с');
end.

Задача 2. Нахождение периода колебаний математического маятника.

program Period_MM;
 const g=9.8;
 var T,l: real;
begin
 write ('Длина нити l, м:  ');
 readln (l);
 T:=2*Pi*sqrt(l/g);
 writeln ('Период колебаний T = ', T:5:2, ' c');
end.

Задача 3. Нахождение периода колебаний пружинного маятника (жёсткость пружины постоянна).

program Period_PM;
 const k=5;
 var T,m: real;
begin
 write ('Масса груза, кг:  ');
 readln (m);
 T:=2*Pi*sqrt(m/k);
 writeln (' Период колебаний T  = ', T:5:2, ' c');
end.


Комментариев нет:

Отправить комментарий