1

Тема: Обчислення значення функції

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.

2

Re: Обчислення значення функції

Чому ви вважаєте, що помилка існує?

Подякували: koala1

3 Востаннє редагувалося Master_Sergius (09.04.2015 13:21:01)

Re: Обчислення значення функції

Тому, що виводить на екран y= і незрозумілі цифри :)

4

Re: Обчислення значення функції

якщо незрозумілі символи  значить - кодування

5

Re: Обчислення значення функції

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

6

Re: Обчислення значення функції

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

7

Re: Обчислення значення функції

Пані virliana, компютери - такі дурнуваті машини, які роблять рівно те, що Ви їй скажете

Подякували: VertoX, Stanislav Stecenko2

8 Востаннє редагувалося Torbins (09.04.2015 15:37:08)

Re: Обчислення значення функції

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));
    writeln(y:6:2);
    if (y>1.5) and (y<2.3) then 
      writeln(y:6:2);
    a:=a+0.1;
  end;
end.

Спробуйте так, і ви побачите чому не виводить

Подякували: virliana1