Необходимо спроектировать, протестировать и разработать систему, соответствующую нижеописанному сценарию. Любая написанная программа должна включать подсказку для ввода данных, сообщение об ошибке и другую необходимую введённую ясную и понятную информацию.
Любые переменные, константы и другие используемые идентификаторы должны быть обозначены.
Создать проект, который позволяет рассчитать зависимость частоты колебаний основного тона струны от ее длины l, плотности ρ, площади поперечного сечения S и силы натяжения F, используя выражение:

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.

Объяснение:

Программа на языке Паскаль