Вы можете удивляться сколько угодно, но задачи по физике можно решать на информатике. Созданные программы пригодятся для обработки результатов лабораторных работ с маятниками в понедельник (нужны будут кое-какие преобразования). Привожу примеры программ, которые успели разобрать.
Задача 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.
Задача 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.
Комментариев нет:
Отправить комментарий