1 Відповідь від virliana

(7 відповідей, залишених у Pascal/Delphi)

потрібно Вивести на екран значення функції, які задовольняють умову у<2.5 i y>1.5:

Перейти до форуму: Pascal/Delphi

2 Відповідь від virliana

(7 відповідей, залишених у Pascal/Delphi)

зовсім нічого не виводить(

Перейти до форуму: Pascal/Delphi

3 Тема від virliana

(7 відповідей, залишених у Pascal/Delphi)

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.

Перейти до форуму: Pascal/Delphi