помогите пожалуйста  написать программу на ПАСКАЛЕ:   вычислить 15 значений функции

Помогите пожалуйста написать программку на ПАСКАЛЕ: вычислить 15 значений функции y=2-sin x из спектра [pi/4, pi/2]

Задать свой вопрос
1 ответ
Const
  pi=3.14159265;
  n=15;
var
  a,b,h,x,y:real;
begin
  a:=pi/4; b:=pi/2;
  h:=(b-a)/(n-1);
  x:=a;
  while xlt;=b+h/2 do h/2 - компенсация скопления погрешности
  begin
    y:=2-sin(x);
    Writeln(x:7:5,y:8:5);
    x:=x+h
  end
end.

Результат выполнения программки:
0.78540 1.29289
0.84150 1.25436
0.89760 1.21817
0.95370 1.18444
1.00980 1.15328
1.06590 1.12478
1.12200 1.09903
1.17810 1.07612
1.23420 1.05612
1.29030 1.03908
1.34640 1.02507
1.40250 1.01413
1.45860 1.00629
1.51470 1.00157
1.57080 1.00000

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт