Текст программы на Паскале

Program Work_4;

Var r,m,n,l:real;

Begin

writeln('Введите l');

readln(l);

m:=exp(1/3*ln(4.2013*sqrt(0.1)+l));

If m<2*l then

begin

r:=sqrt(abs(3*m-5*l));

n:=1;

end

else

If m=2*l then

begin

r:=m+l;

n:=2;

end

else

begin

r:=sqrt(abs(3*m+5*l));;

n:=3;

end;

Writeln(' Номер формулы=',n);

Writeln(' l=',l:7:3);

Writeln(' m=',m:7:3);

Writeln(' r=',r:7:3);

end.

Результаты расчёта

Проверка

m=1.172 истинно для третьего условия 1.172≥2*0.28, тогда

Контрольный расчет

а) Для проверки первой формулы выберем l=1, тогда

то есть 1.325<2*1, значит

;

б) Для проверки второй формулы подобрать число не удалось.

в)Для проверки третьей формулы выберем l=0.1, тогда ; то есть 1.126≥2*0.1, значит

Не нашли, что искали? Воспользуйтесь поиском: