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 14:21:01)

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

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

Мій блог про ОС сімейства *nix - http://nixtravelling.blogspot.com/

4

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

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

Навчаюсь вчитись, щоб навчатись.

5

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

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

6

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

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

7

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

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

Мій блог про ОС сімейства *nix - http://nixtravelling.blogspot.com/
Подякували: VertoX, Stanislav Stecenko2

8 Востаннє редагувалося Torbins (09.04.2015 16: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