Тема: Обчислення значення функції
program Kalyn_lab4_1 ;
const
x=3.241;
var
y,a:real ;
begin
a:=1.15;
while a<6.3 do
begin
y:=(arctan(a*a+x*x))/(a*exp(x/2));
if (y>1.5) and (y<2.3) then
writeln ('y=',y:6:2);
a:=a+0.1;
end;
end.Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
