Необходимо спроектировать, протестировать и разработать систему, соответствующую
нижеописанному сценарию. Любая написанная программа должна включать подсказку для ввода данных, сообщение об ошибке и другую необходимую введённую ясную и понятную информацию.
Любые переменные, константы и другие используемые идентификаторы должны быть обозначены.
Создать проект, который позволяет рассчитать зависимость частоты колебаний основного тона струны от ее длины l, плотности ρ, площади поперечного сечения S и силы натяжения F, используя выражение:
СРОЧНООО ДАЮ 30 баллов,
Ответы
Ответ:
program Struna;
uses crt;
var F, p, l, S, nu:real;
begin
clrscr();
writeln('Данная программа рассчитывает частоту колебаний струны в зависимости от её физических параметров и силы натяжения') ;
write('Укажите длину струны в метрах: ');
readln(l);
while l<0 do begin
write('Длина струны не может быть отрицательным числом, повторите ввод: ');
readln(l) end;
write('Укажите укажите силу натяжения струны в Ньютонах: ');
readln(F);
while F<0 do begin
write('Сила натяжения струны не может быть отрицательным числом, повторите ввод: ');
readln(F) end;
write('Укажите площадь поперечного сечения струны в квадратных метрах: ');
readln(S);
while S<0 do begin
write('Площадь поперечного сечения струны не может быть отрицательным числом, повторите ввод: ');
readln(S) end;
write('Укажите плотность струны в кг/м³: ');
readln(p);
while p<0 do begin
write('Плотность струны не может быть отрицательным числом, повторите ввод: ');
readln(p) end;
nu:=1/2/l*sqrt(F/p/S);
write('На основе введенных данных частота колебания струны составляет ',nu,' Гц');
readln;
end.
Объяснение:
Программа на языке Паскаль