Ответ:

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.

Объяснение:

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